Chip: Hang es video/CHIP_ZENESZERKESZTO_2005.ISO/audio_1/softstep/softstep3.msi/Data1.cab/drawstarpaint.ufn

Text File | 2001-07-06 | 2KB | 133 lines

0
0
0
0
0.
1. Initialize = pixsize(320,240), Pixon, ~PixShapeSet(1, 1, 1, 0),~PixPatternSet(0, rgb(255,128,0), 0),~PixFreeze(1),    ; freeze frame for drawing~PixToolTip(),    ; remove the frame tool tip~goto(me+1),~
2. Paint Star = switch(Run, me+2, me+1) ; Draw on Run, move frame on Stop
3. UnFreeze = PixFreeze(0)
4. Get Mouse = M.(PixMouse(1, 0)),  ; get mouse flag~LED(M),              ; show button down on LED~Switch(M, me+1, 0)   ; draw on mouse button down
5. Draw Shape = Switch(PixMouse(1, 1) and 2 , me+1, 0), ; rand color on right btn~x.(PixMouse(1, 5) - 20),    ; get mouse to star center~y.(PixMouse(1, 6) - 20),~PixShape(X, Y, 40, 40, 9001,1)   ; draw the shape~
6. Random Color = R.(ran*256), G.(ran*256), B.(ran*256), ; get color~PixPatternSet(0, rgb(r,g,b), 0), ; set fgnd color~PixShapeSet(1, 1, 1, rgb(r/2,g/2,b/2)) ; set outline color
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.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.