1 ' Svjatoslav Agejenko
\r
3 ' Up, Down, Left, Right, w, z - rotate
\r
4 ' <space> - speed down
\r
7 DECLARE SUB getcor ()
\r
8 DECLARE SUB mulcor ()
\r
9 DECLARE SUB nait3d ()
\r
10 DECLARE SUB calcsin ()
\r
12 DIM SHARED Xn(100), Yn(100), Zn(100)
\r
13 DIM SHARED Xs1(100), Ys1(100), Xe1(100), Ye1(100)
\r
14 DIM SHARED x(100), y(100), z(100), pointers1(100), pointers2(100)
\r
15 DIM SHARED Cosine&(360), Sine&(360)
\r
131 FOR a! = 0 TO 359 / 57.29577951# STEP 1 / 57.29577951#
\r
132 Cosine&(a) = INT(.5 + COS(a!) * 1024)
\r
133 Sine&(a) = INT(.5 + SIN(a!) * 1024)
\r
140 READ x(a), y(a), z(a)
\r
141 IF x(a) = 999 THEN x(a) = 0: y(a) = 0: z(a) = 0: GOTO 1
\r
147 READ pointers1(a), pointers2(a)
\r
148 IF pointers1(a) = 999 THEN GOTO 2
\r
158 IF ABS(x(a)) > suur THEN suur = ABS(x(a))
\r
159 IF ABS(y(a)) > suur THEN suur = ABS(y(a))
\r
160 IF ABS(z(a)) > suur THEN suur = ABS(z(a))
\r
165 x(a) = x(a) * ksuur
\r
166 y(a) = y(a) * ksuur
\r
167 z(a) = z(a) * ksuur
\r
179 IF Deg1 <= 0 THEN Deg1 = Deg1 + 360
\r
180 IF Deg2 <= 0 THEN Deg2 = Deg2 + 360
\r
181 IF Deg3 <= 0 THEN Deg3 = Deg3 + 360
\r
183 IF Deg1 >= 360 THEN Deg1 = Deg1 - 360
\r
184 IF Deg2 >= 360 THEN Deg2 = Deg2 - 360
\r
185 IF Deg3 >= 360 THEN Deg3 = Deg3 - 360
\r
187 C1& = Cosine&(Deg1): S1& = Sine&(Deg1)
\r
188 C2& = Cosine&(Deg2): S2& = Sine&(Deg2)
\r
189 C3& = Cosine&(Deg3): S3& = Sine&(Deg3)
\r
191 FOR a = 0 TO np - 1
\r
193 Xo = x(R): Yo = y(R): Zo = z(R)
\r
195 X1 = (Xo * C1& - Yo * S1&) \ 1024
\r
196 Y1 = (Xo * S1& + Yo * C1&) \ 1024
\r
198 X2& = (X1 * C2& - Zo * S2&) \ 1024
\r
199 z1 = (X1 * S2& + Zo * C2&) \ 1024
\r
201 Y2& = (Y1 * C3& - z1 * S3&) \ 1024
\r
202 z2 = (Y1 * S3& + z1 * C3&) \ 1024
\r
205 Xn(R) = 320 + (X2& / z2 * 500)
\r
206 Yn(R) = 240 + (Y2& / z2 * 500)
\r
210 FOR a1 = 0 TO nl - 1
\r
220 LINE (Xs1(a1), Ys1(a1))-(Xe1(a1), Ye1(a1)), 0
\r
221 LINE (X1, Y1)-(Xn, Yn), 15
\r
224 Xs1(a1) = X1: Ys1(a1) = Y1
\r
225 Xe1(a1) = Xn: Ye1(a1) = Yn
\r
234 CASE CHR$(0) + CHR$(72)
\r
237 CASE CHR$(0) + CHR$(80)
\r
240 CASE CHR$(0) + CHR$(75)
\r
243 CASE CHR$(0) + CHR$(77)
\r