blob: 414b1628a2255af53050b0015d2f9809ccd5763a (
plain)
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
|
setPen black
setBrush 7f7fff
path_moveTo star 50 0
path_lineTo star 30 90
path_lineTo star 100 60
path_lineTo star 0 20
path_lineTo star 80 100
setFont "times" 50
path_addText text 0 50 "ABCD, 1234, abcd, #¤%&"
path_addRect rectncircle 0 0 75 75
path_addEllipse rectncircle 25 25 75 75
path_setFillRule rectncircle winding
path_moveTo curve 100 0
path_cubicTo curve 100 100 50 50 0 100
begin_block drawing
drawPath star
translate 100 0
drawPath rectncircle
translate 100 0
drawPath curve
translate -200 100
drawPath text
end_block
translate 50 100
rotate 10
repeat_block drawing
|
