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

Text File | 2001-06-29 | 4KB | 134 lines

0
1
0
0
EDGEDETECT(current, position, size, outer, inner=0) = IIF(position <= inner, 1, IIF((position+size) >= outer, -1, current)) ~; current must be +/-1, returns current if not at edge~
0.
1. Initialize Frames = PixNumFrames(4),~goto(me+1)
2. Initialize = pixactive(1), pixsize(320,240), Pixon, pixfill(0),~V0.(ran*160), V1.(ran*120), ; initialize starting X, Y~v2.(1), v3.(1),             ; initialize direction flags~PixShapeSet(1, 1, 0, 0),~PixPatternSet(0, rgb(255,128,0), 0),~TxtLabel("Trailing Background")~goto(me+1),~
3. Draw Shape = pixactive(1),~a.(v2), b.(v3),                         ; save current direction flags~v2.(edgedetect(v2, v0, 40, 320)),       ; get new X direction flag~v3.(edgedetect(v3, v1, 40, 240)),       ; get new Y direction flag~v0.(v0+(v2*IN1)), v1.(v1+(v3*IN2)),     ; calculate new position~PixShape(v0, v1, 40, 40, 9001,1),      ; draw the shape~out( iif( a==v2, 0, 1) + iif( b==v3, 0, 2)) ; output flags if direction changed
4.
5. Initialize = pixactive(2), pixsize(320,240), PixOn,~V0.(ran*160), V1.(ran*120), ; initialize starting X, Y~v2.(1), v3.(1),             ; initialize direction flags~PixShapeSet(1, 0, 1, rgb(255,128,0)), ; set up border & color~PixFillStyle(0), PixDrawMode(1), ; set up blackness to erase~TxtLabel("Overwrite Animation")~goto(me+1)
6. Draw Shape = pixactive(2),~PixAutoRepaint(0),    ; turn off repaint to avoid flicker~a.(v2), b.(v3),                         ; save current direction flags~v2.(edgedetect(v2, v0, 40, 320)),       ; get new X direction flag~v3.(edgedetect(v3, v1, 40, 240)),       ; get new Y direction flag~PixRect(v0, v1, 40, 40),~v0.(v0+(v2*IN1)), v1.(v1+(v3*IN2)),     ; calculate new position~PixShape(v0, v1, 40, 40, 9001),         ; draw the shape~PixRepaint, PixAutoRepaint(1), ; show the new image; restore auto repaint~out( iif( a==v2, 0, 1) + iif( b==v3, 0, 2)) ; output flags if direction changed
7.
8. Initialize = pixactive(3), pixon,~PixLoad(-1, "hivprot", "", "gif", 1) ; load a background~pixactive(4), pixcopy(3), pixactive(3)~~V0.(int(ran*160)), V1.(int(ran*120)), ; initialize starting X, Y~v2.(1), v3.(1),             ; initialize direction flags~PixShapeSet(1, 0, 1, rgb(255,128,0)),~TxtLabel("Double Buffer Anim")~goto(me+1),~
9. Draw Shape = pixactive(3), PixAutoRepaint(0),~a.(v2), b.(v3),                         ; save current direction ~v2.(edgedetect(v2, v0, 40, PixFrameWidth)), ; get new X direction flag~v3.(edgedetect(v3, v1, 40, PixFrameHeight)), ; get new Y direction flag~PixCombine(4,, v0, v1, 40, 40, v0, v1),~v0.(v0+(v2*IN1)), v1.(v1+(v3*IN2)),     ; calculate new position~PixShape(v0, v1, 40, 40, 9001),         ; draw the shape~PixRepaint, PixAutoRepaint(1),~out( iif( a==v2, 0, 1) + iif( b==v3, 0, 2)) ; output flags if direction changed
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.