Amiga Dunyasi - Sayi 21 (Subat 1992).pdf - Retro Dergi
Amiga Dunyasi - Sayi 21 (Subat 1992).pdf - Retro Dergi
Amiga Dunyasi - Sayi 21 (Subat 1992).pdf - Retro Dergi
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
F. Kağan Gürkaynak<br />
Herkese merhabalar. Bu ay yine biraz değişiklik yapalım.<br />
Hatırlarsanız daha önceleri, <strong>Amiga</strong> Basic ile yapılması zor<br />
olan belirli işleri nasıl halledebileceğimiz konusunda örnekler<br />
vermiştik. Bu iş için sık sık Library fonksiyonlarına başvurduk.<br />
Nereden geldiği özellikle yeni başlayanlar için oldukça<br />
anlamsız olan birçok terim, kelime ve emir kullandık.<br />
Bu ay biraz Basic'in kendisine ait emirle üzerinde durmak<br />
istiyorum. İki dakikada etkileyici birşeyler gösterebilmek<br />
için yapılacak tek program, grafik üzerinedir. Biz de kolaya<br />
kaçalım ve biraz grafik ile ilgilenelim.<br />
Basic elkitabımızı biraz karıştıralım ve kendimize uygun<br />
bir emir arayalım. Eveeet, grafik emirlerinden Circle bu ay<br />
ilgimizin odak noktası olacak. Bakalım Circle emri ile neler<br />
yapabileceğiz? Daha önceden mutlaka bildiğiniz gibi Circle<br />
emri genel olarak ekrana daireler ve elipsler gibi yuvarlak<br />
şekiller çizebilmek için kullanılır. El kitabından bu emir ile<br />
ilgili parametreleride öğrenebiliyoruz.<br />
CIRCLE STEP(x,y),r,Renk,Başlama,Bitiş.Ekran Oranı<br />
Step kullanıldığı takdirde, koordinatlar son kullanılan<br />
koordinatlara eklenecektir.<br />
PSET (320,100),1<br />
CIRCLE STEP (0,0),50<br />
Ekranın (kabaca) ortasına bir nokta ve etrafına yarıçapı 50<br />
olan bir daire çizecektir. Ekran oranı adı verilen değer, oldukça<br />
önemli. Bildiğiniz gibi ekranın yatay ve dikey çözünürlüğü<br />
aynı değil. Yukarıdaki örnekte eğer dairenin yatay<br />
ve dikey yarıçapı 50 olsa idi, daireden çok bir elipse benzeyecekti.<br />
Ekran oranı ile yatay ve dikey çözünürlüğün oranlarını<br />
girerek (Eğer değer girmezsek 0.44 olarak alınır. 640x200 için<br />
doğru oran) dairelerimizi, daire gibi gösterebiliriz. Aynı sayıyı<br />
kendimize daireler yerine elipsler çizmek için kullanabiliriz.<br />
Hemen size bir örnek:<br />
SCREEN 1,320,200,2,1<br />
WINDOW 2„(0,0)-(311,185),16,1<br />
FOR g = 0 TO 80 STEP 2<br />
CLS<br />
FOR f = .0001 TO 1 STEP .1<br />
CIRCLE (100,100),(80-g*f)„„f<br />
CIRCLE (100,100),(80-g*f)„„1/f<br />
NEXTf<br />
WHILE INKEY$ = "": WEND<br />
NEXT g<br />
WINDOW CLOSE 2<br />
SCREEN CLOSE 1<br />
Burada çok işe yarayan bir teknik kullanılmış, iki elipsin<br />
içice dönüşümü, genelde hep eğlencelidir. Burada iki eş<br />
merkezli elips alınmış, f sayısı, ekran oranını tutan sayı. Bu<br />
sayede çemberlerin biri X yönünde basık iken, diğeri Y yönünde<br />
basık yapılmış ve iki oran yavaş yavaş birbirine yaklaştırılmış.<br />
Bunun yanında yarıçap her defasında biraz daha<br />
küçültülmüş. Eğlence şimdi başlıyor. Yukarıdaki programda<br />
ufak tefek değişiklikler yapmak gerekiyor. Kendi formüllerinizi<br />
yaratın. Formül uydururken değiştireceğiniz değerleri<br />
iyi düşünün (Yarıçapı attırayım, y koordinatı önce artsın<br />
sonra azalsın, vs, vs): mantıklı değerler verecek şekilde uydurmaya<br />
başlayın. Kısa süre içinde ilginç sonuçlar çıkacağına<br />
eminim. Daha sonra daireleri değişik renklerde yapmayı,<br />
renk sayısını değiştirmeyi (Screen komutunda) deneyin. Paleti<br />
de değiştirirerek mükemmel sonuçlar alabilirsiniz. İşte<br />
size başka bir örnek:<br />
SCREEN 1,320,200,2,1<br />
WINDOW 2„(0,0)-(311,185),16,1<br />
WHILE INKEY$ = ""<br />
FOR g = OTO 3.14 STEP .08<br />
f = 1<br />
y= SIN(g)*70<br />
IFy
Change language