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

Text File | 2001-01-05 | 1.9 KB | 139 lines

5
1
0
0
C=#HFFFFFF
DURATION=24
MID=0
PERCENTON=80
RULE=#B0101101
PARAM() = Y.(IN1*SIN(IN1) ), X.(IN1*COS(2*IN1))
0.
1. INIT_A = LET(X, 0), GOTO(ME+1) ;
2. PARAM FUNC = X.(X+1), SWITCH( (X<800) , 0, ME+1) , PARAM(), WPIX(MID , X +63, Y+63, C ) , OUT( ABS(Y )); output y-component
3. RESET_A = CLSPIX(MID), LET(X, 0)
4.
5. INIT PIX = PIXON, PIXMOVE(20, 20) , PIXSIZE(400,400), PIXFILL(RGB(226,164,33)), GOTO(ME+1), LET(Z,0); setup canvas
6. ONE = SWITCH(Z<200, 0, ME+4), Z.(Z+1), PIXPENCOLOR(RGB(256-ABS(Z),0,0)), PIXPENWIDTH(IN1), PIXLINE(X+200, Y+150, X-Z+200, Y+Z+150),
7. TWO = SWITCH(Z<200, 0, ME+4), Z.(Z+1), PIXPENCOLOR(RGB(IN1,IN2,256-ABS(Z))), PIXLINE(X+200, Y+150, X-Z+200, Y-Z+150),
8. THREE = SWITCH(Z<200, 0, ME+4), Z.(Z+1), PIXPENCOLOR(RGB(IN1,IN2,256-ABS(Z))), PIXLINE(X+200, Y+150, X+Z+200, Y-Z+150),
9. FOUR = SWITCH(Z<200, 0, ME+4), Z.(Z+1), PIXPENCOLOR(RGB(256-ABS(Z),IN1,0)), PIXLINE(X+200, Y+150, X+Z+200, Y+Z+150),
10. Z_NUL = LET(Z,0), GOTO(ME-3)
11. Z_NUL = LET(Z,0), GOTO(ME-3)
12. Z_NUL = LET(Z,0), GOTO(ME-3)
13. RESET = LET(X, 0), LET(Z,0), GOTO(ME-7); PIXFILL(RGB(226,164,33)),
14.
15. PARAM FUNC X = OUT( ABS(X )); output x-component
16.
17. Pix Off on Stop = SWITCH( IN1 , ME+1, 0 )
18. Pix Off  = PIXOFF
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.