1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
{ Include file for "Complex shapes" tests. Used by vtmain.pas. }
// Path with hole (solid fill)
node := Tree.Items.AddChild(mainnode, 'Path with hole (solid fill)');
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CCW',
TRenderParams.Create(@Render_Path_Hole, 'path_hole_solid.png_rot30ccw.png', $00010000));
Tree.Items.AddChildObject(node, 'normal',
TRenderParams.Create(@Render_Path_Hole, 'path_hole_solid.png', $00000000));
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CW',
TRenderParams.Create(@Render_Path_Hole, 'path_hole_solid.png_rot30cw.png', $00020000));
// Path with hole (gradient fill)
node := Tree.Items.AddChild(mainnode, 'Path with hole (gradient fill)');
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CCW',
TRenderParams.Create(@Render_Path_Hole, 'path_hole_gradient_rot30ccw.png', $00010003));
Tree.Items.AddChildObject(node, 'normal',
TRenderParams.Create(@Render_Path_Hole, 'path_hole_gradient.png', $00000003));
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CW',
TRenderParams.Create(@Render_Path_Hole, 'path_hole_gradient_rot30cw.png', $00020003));
// Self-intersecting polygon (solid fill, even-odd rule) - tip at bottom
node := Tree.Items.AddChild(mainnode, 'Self-intersecting polygon (solid fill, even-odd rule) - tip at bottom');
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CCW',
TRenderParams.Create(@Render_SelfIntersectingPoly, 'selfintersecting_poly_solid_eo_rot30ccw.png', $00010000));
Tree.Items.AddChildObject(node, 'normal',
TRenderParams.Create(@Render_SelfIntersectingPoly, 'selfintersecting_poly_solid_eo.png', $00000000));
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CW',
TRenderParams.Create(@Render_SelfIntersectingPoly, 'selfintersecting_poly_solid_eo_rot30cw.png', $00020000));
// Self-intersecting polygon (gradient fill, even-odd rule) - tip at bottom
node := Tree.Items.AddChild(mainnode, 'Self-intersecting polygon (gradient fill, even-odd rule) - tip at bottom');
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CCW',
TRenderParams.Create(@Render_SelfIntersectingPoly, 'selfintersecting_poly_gradient_eo_rot30ccw.png', $00010003));
Tree.Items.AddChildObject(node, 'normal',
TRenderParams.Create(@Render_SelfIntersectingPoly, 'selfintersecting_poly_gradient_eo.png', $00000003));
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CW',
TRenderParams.Create(@Render_SelfIntersectingPoly, 'selfintersecting_poly_gradient_eo_rot30cw.png', $00020003));
// Self-intersecting polygon (solid fill, nonzero winding rule) - tip at bottom
node := Tree.Items.AddChild(mainnode, 'Self-intersecting polygon (solid fill, nonzero winding rule) - tip at bottom');
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CCW',
TRenderParams.Create(@Render_SelfIntersectingPoly, 'selfintersecting_poly_solid_nzw_rot30ccw.png', $00010100));
Tree.Items.AddChildObject(node, 'normal',
TRenderParams.Create(@Render_SelfIntersectingPoly, 'selfintersecting_poly_solid_nzw.png', $00000100));
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CW',
TRenderParams.Create(@Render_SelfIntersectingPoly, 'selfintersecting_poly_solid_nzw_rot30cw.png', $00020100));
// Self-intersecting polygon (gradient fill, nonzero winding rule) - tip at bottom
node := Tree.Items.AddChild(mainnode, 'Self-intersecting polygon (gradient fill, nonzero winding rule) - tip at bottom');
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CCW',
TRenderParams.Create(@Render_SelfIntersectingPoly, 'selfintersecting_poly_gradient_nzw_rot30ccw.png', $00010103));
Tree.Items.AddChildObject(node, 'normal',
TRenderParams.Create(@Render_SelfIntersectingPoly, 'selfintersecting_poly_gradient_nzw.png', $00000103));
Tree.Items.AddChildObject(node, 'rotated around (10,10) by 30deg CW',
TRenderParams.Create(@Render_SelfIntersectingPoly, 'selfintersecting_poly_gradient_nzw_rot30cw.png', $00020103));
|
