Amiga Dunyasi - Sayi 23 (Nisan 1992).pdf - Retro Dergi

Merhaba AMOS severler. Korkanm bu ayki yazıya kötü bir haberlebaşlayacağım. Bir süre için AMOS yazısını iki ayda bir yayınlayacağız.Umarım çok büyük bir ara olmaz.Bu ay sizlere vereceğim program, ivmeli hareket ile ilgili. Yanicismin yerini direk olarak mouse'la okumaktansa, mouse ile sadececisim üzenndeki kuvvetlerin okunmasını ve geri kalanlarınburadan hesaplanmasını göreceğiz. Bazılarınız bunu gereksiz vesıkıcı bulabilir ama bu şekilde daha ilginç hareketler elde edebilirsiniz.Programda kullandığım formüller herhangi bir temel fizik kitabındabulunabilir. Ama ben yinede bunları şelil birde yenidenyazmakta fayda görüyorum.Program her döngüde mouse'ın ne kadar hareket ettiğine bakarve bunu kuvvet olarak algılar. (Sanki cismi bir lastikle çekiyormuşuzgibi.)Programda ki değişkenlerden 'M' cismin kütlesini ve 'FS' sürtünmekuvvetini belirler. Bunları değiştirip daha değişik efektlerelde edebilirsiniz. Bu aylık hosçakalın.Rpm ********************************************Rem ***********************************************Rpm ********************************************Rem ** **Rem ** **Rem ** AMIGA DÜNYASI **Rem ** **Rem ** AMOS Demo Program **Rem ** **Rem ** Written by **Rem ** **Rem ** Burak Ozdemir **Rem ** **Rem ** **Rem** AMOS Copyright 1990 **Rem ** Mandarin/Jawx **Rem ** **Rem ** **Dam ********************************************Rem *******************************************Rpm *******************************************Screen Close 0Screen Open 0,640.200.16.HiresCurs OffFlash OffLoad "files.amos files amos-programs sprite 600aliens/ alien4.abk"HideGet Sprite PalettePalette 0,0X=130Y=230M=6VX=0VY=0T=1FS=21=1X Mouse=XY Mouse=YFor Q=1 To 50lnkRnd(16)Plot Rnd(600)+10,Rnd(150)+10NextQDoFX=X Mouse-200FY=YMouse-150X Mouse=200Y Mouse=150FSX=0If VX>0 Then FSX=FSIf VX0 Then FSY=FSIf VY430 Then X=430lfX230 Then Y=230If Y4 Then 1=1Wait 2LoopAMIGA DÜNYASI 36