Sayfa 58

* Çeşitli demolarda gördüğünüz yıldız kayma efektinin nasıl yapıldığını merak ediyorsanız işte size BASIC'te yazılmış bir kayan yıldız programı.

DECLARE FUNCTION Viewport Address &( ) LIBRARY

LIBRARY "intuition.library" LIBRARY "graphics.library" SCREEN 2,320,256,4,1 WINDOW 2,,,0,2 PALETTE 0,0,0,0 PALETTE 1,0,0,0 FOR i = 1 TO 500 x = RND*320 y = RND*256 f = RND*15 PSET (x,y), f

NEXT x= l:y = 0:s=l kaydırma: w&= x*(2 16) + y vp& = ViewportAddress& (WINDOW (7)) t& = PEEKL (VD& + 36)

POKEL t&+8,w& CAL L RethinkDisplay& CALL ScrollVPort&(vp&) RETURN

* Eğer DeluxePaint (3.14, 3.18 ve 3.21 versiyonları) ile beraber programın data disketlerine sahipseniz ekranda Workbench fontlarından başka ilginç fontlar kullanabilirsiniz. Bunun için önce DeluxePaint disketinizi takın ve Workbench ekranının yüklenmesini bekleyin. Disket ikonuna klik ettikten sonra açılacak olan pencerede DPaint ikonunun yanısıra bir de ColorFonts isimli programın ikonu bulunmalıdır. Bu ikona iki defa klikleyerek programı çağırın. Şimdi disketi çıkarıp yerine data disketlerinden herhangi birini takın ve disketin ismini öğrenin. İkinci data disketinin de ismini aynı şekilde öğrendikten sonra ismi "Arts" olan disketi bir kenara ayırın. Şimdi yine DPaint disketinizi takın ve DeluxePaint ikonu üzerine iki defa klik ederek çizim programını yükleyin. Gerekli çizim modunu seçtikten sonra (en az 8 renk) program karşınıza çıkacaktır. Şimdi ekranın en sağındaki ikon topluluğundan üzerinde "A" harfi bulunan yazı aracını sol tuşla klik ederek seçtikten sonra aynı kutuya bir de sağ tuşla klik edin. Karşınıza çıkacak pencerede "PATH:" yazısının yanındaki boş siyah bölgeye "ARTS:FONTS/" yazıp (RETURN) tuşuna basın. Bilgisayar ana disketten biraz bilgi yükledikten sonra sizden "ARTS" isimli disketi takmanızı isteyecektir. Az önce kenara ayırdığınız data disketini bilgisayara takın. Ardından bilgisayar ana disketi ve biraz daha sonra da data disketini yine isteyecektir. Gerekli disketleri sırasıyla taktıktan sonra pencerenin sol üst köşesindeki kutuda alt alta iki isim belirecektir. Bunların isimlerinin başında "KARA" kelimesi vardır. Bunlar Electronic Arts firmasının hazırlamış olduğu renkli yazı karakterleridir (font). Bunlardan istediğiniz birine klik ederek kullanabilirsiniz.