Sayfa 99

Bu ay BASIC köşemizde iki küçük programımız var: RENKLER ve MEKİK. Programları her zaman olduğu gibi yine AMIGA BASIC'in liste penceresine yazıp boş bir diskete kaydedin.

Renkler programı çalıştırıldığında, ilginç renk geçiş efektleri yaratacaktır. Hoşlanacaksınız.

Mekik programı, vereceğiniz açı değerlerine göre üç boyutlu mekik çizecektir. Program çalıştırıldığında sizden x, y ve z açılarının değerini ister. Uzay mekiği, vereceğiniz değerlere uygun olarak çizilecektir.

10 WINDOW 1, "Mekik", (0,0)-(631,186), 0 20 X=0:Y=0:Z=0:X3=0:Y3=0:Z3=0:AM=0:BM=0 21 CM=0:DM=0:EM=0:FM=0:GM=0:HM=0:IM=0 25 D=0:P=0:B=0:H=0:U=0:V=0:U1=0:V1=0 30 DIM V(300,3),E(300) 40 COLOR 1,2:CLS 50 READ NV 60 FOR P=1 TO NV 70 READ V(P,1),V(P,2),V(P,3) 80 V(P,1) = .12*V(P,1) 90 V(P,2) = .12*V(P,2) 100 V(P,3) = .12*V(P,3) 110 NEXT P 120 READ NE 130 FOR E=1 TO NE 140 READ E(E) 150 NEXT E 170 D=120 190 INPUT "3 aciyi verin x,y,z: "; P0,P1,P2 210 CLS:pi = 3.1416 220 P= (2*pi) * P0 / 255 - pi 230 B= (2*pi) * P2 / 255 240 H= (2*pi) * P1 / 255 250 GOSUB 390 260 XV = -D * CP * SH: REM —ALTRUTIN— 270 YV = -D * CP * CH 280 ZV = -D * SP 290 REM —NE NOKTALARI— 300 FOR E=1 TO NE 310 X = V(ABS(E(E)),1)