1 Ağustos 1986 Tarihli Commodore Gazetesi Sayfa 63

Sağa git Yukarı çık Aşağı in Sola git Anlamı yok Sağa git ve bir nokta koy Yukarı çık ve nokta koy Aşağı in ve nokta koy Sola git ve nokta koy Dur ö ea Gebe e e Örneğin A$—**559“ ile iki yatay noktadan oluşan bir şekil tanımlamış oluruz. Ancak DRAW komutundan önce, cisimin ekrandaki büyüklüğünü ve PROGRAM ADI : S.CIİRCLE BA100 HİIRES 2,15 BOl1l1ö FOR I-i TO 188 STEP 3 BA120 CIİRCLE 168,1060,100,1,1 BO13ü NEKT :PAUSE 3 PROGRAM ADI : S5S.CHAR B0100 HİRES 8,15:AÂsİ Bo1l1ğ FOR I-i TÜ 315 STEP 8 BO120 CHAR 1,O,K,İ , ALASASİ 00130 NEXT :PAUSE 3iK-K4İSİF K Bğ PROGRAM ADI : 5.PLÜOT 00010 HİIRES 2,154MULTI 2,3,4 gogzd FOR I-i Tü SağA:Lüy CÜL NDB)*16,RND(SB)*16 B08630 PLÜOT RNODCS)4320,RNOCB)K2BO,LİNEKT OğAdA PAUSE 3:RUN PROGRAM ADI : 5S.BLÜCK Bdi0 HIRES 2,15 açısını belirtmemiz gerekir. Bunu da, ROT açı, ölçek ile yapabiliriz. “açı' ye- rine Ü-7 arası bir değer verilebilir. Her bir değer 45 ile çarpıldığında elde edi- lecek açıyı temsil eder. Ölçek için her- hangi bir sınırlama yok. Ancak çok büyük olursa ekrana sığmayabilir. Eğer hazırladığınız ekranı MPS80z veya MPS803'de bastırmak isterseniz COPY komutunu kullanacaksınız. Diğer yazıcı markaları, eğer uygun bir arabirim taşımıyorlarsa bu komutla işlemezler. Ve son emir de geldi artık. Bu pek önemli bir emir değil. Eğer A- GRAPHICS komutunda olduğu gibi PROGRAM âDI * 088216 HIRES 8, <256 THEN 1 PROGRAM ADI : RNOC8)*16,R PROGRAM ADI BOdlü HIİRES 2, Boaza aaa3a FOR I-5 bir değişkene GRAPHICS'i eşitlerse- niz, sonuçta o değişkenin içeriği 53248 olacaktır. Bu, “'Video İInterface Chip” (VIC) adı verilen ve COMMO- DORE 64'ün tüm grafik işlemlerini gerçekleştiren ünitesinin yazmaçları- nın (register) başlangıç adresidir. Ör- neğin POKE 53281,2 diyerek ekran kırmızı yapılabilmekteyken, POKE GRAPHICS 4 332,2 ile de aynı şey yapılabilir, çünkü ekran rengi 33 nu- maralı sicile bağlıdır. Sicil nu- maralarını CÖMMODÜORE 64 elkita- bında bulabilirsiniz. Grafikle işimiz bu kadar. Gelecek sayıda görüşürüz... 5S.REC & PAINT 15 gas2a FOR I-i Tü Z8 0025 KERNDCS) 320 YERNDİB) K2BBEKİSRNDOCB) *B2diYLERNDCS) KABA pğB26 İF K4K1>319 OR Y*Y1>199 THEN 25 BA028 REC K.Y,RL,YL,LENEKT gğğ30 FOR I-1 TÜ 1İS5:PAİNT RNDCB)K280420,R NO(8)x1604*20,1:NEXT Baa40 PAUSE 3:RUN S.MULTI 20010 HİRES 2,15 goo22 MULTİ RENOCS) *16,RNDCB)KLE,RNDİS)*16 poa3o FOR 1-5 TO Sâ STEP 5 g0040 CIİRCLE 80,108,1,1,RNODCSB)43141 maoadü PAUSE S3iRÜN : S.MULTI 15 MULTİ RNDCB)KİS,RNODCB)K1E,RNODCS)*İ16 TO S& STEP 5 Bgall10 FOR I-€ TÜ 18f ad120 BLÖCK 3204RNOCL) , EADARNOCL),32B4RND CI ,BBOARNDALİ,SENEKT göza0 PAUSE 5:GOTO 1ğl PROGRAM ADI : Boağlf K-s2 BoazA HİIRES 2,15 noa3a A$- 8888888757855555788888 75785555555788888889" ağdüdAa FOR Izü TÜ F7iROT İ,Cİ*KİI/ZiDRALNI AŞ, I*3O,I*20,1:NEKT aağ5a PAUVSE 3:K-K4*7:60ÜTÜ Bü PROGRAM ADI : 5.LINE 00018 HIRES 2,15 BOA20 DEF FNRCX)-SİINCX44/180) 4804108 AB025 XLERNDCB) *15-7ERSSRNOCB)KL5-7EYLERN DCB)*20-10: YZzRNOCB) K20-10 OdA30 FOR X-18 TO 3d0 STEP 3 28040 LİNE K*Kİ , FENROMANE)*YL RAKA,FNROKAK 1)*Ya,1 BAdS5A NEXT Ba06A PAUSE 4:GOTO 5S.DRALI 18 ZK —_commodor'e go0dü CIİRCLE 8A,100,1,1,RNDC8B)4341 aaga50 PAINT 8SA-I42,100,RNDCB)X3tİ gğd6d NEKT poa65 FOR Isi TO 182:MULTİ RNDCB)*LE,RNDİ 8)*l16,RNDSB)*İ1G:FOR IIi TÜ Z20diNEK T :NEKT AdüT0 RUN PROGRAM ADI : S.ANGL g0810 HIİRES 2,15 gasze FOR I-i TÜ 1f BğA3A PİAZERND (8 ) 4320 : MYZERND (8 ) Kdf BOB40 RKKERNOCG)KMAZEIF MİKZSİSA THEN RAAS RNDCB)*CEZA-MKA) IF RAXSS THEN 38 RYZERNO (8 ) 4MİYA IF MY4Z>1G€ THEN RYAF RNODCB) 4CEOG-MYA) IF RYA<S5 THEN 38 SPZARNDİB)&1OSİSİIF TESTİMKA,MYA)S1 THEN 38 FOR Ilsf Tü 360 STEP SPASANGL MAZ M YAŞIL , RAZ,RYA,LENEKT NEKT PAUSE 3:60ÜT0 iü 63 aaa5a AğASA gaaTa goasa aaaaga Batısa BaL10