Bu sayfadaki yazılar
Sayfanın metni
Sayfa 36
ADRES: Şişli Bahariye / İSTANBUL
TOLGA KAHRAMAN
Global PIXKAY2,PARSINY(),PARSINX() '* Pixkay2 Kac pıxel kayacak (Bulanik2) '* ParSinYy(l) SCOPY Y rutininin parametreleri 1. Aci Alt Sinir 2. Aci Ust Sinir 3. Islemin Baslatilacagi Aci Degeri Zayi 4. Aci Artis Degeri 5. Max itilecek pixsel SCOPY X rutininin parametreleri 1. Aci Alt Sinir . Aci Ust Sinir * Islemin Baslatilacagi Aci Degeri . Aci Artis Degeri * Max itilecek pixsel
ParSinX() *
Procedure MAIN
MAIN LOOP Limit Mouse 128,243 To 448,308 Do PRESKEY-Asc(Inkey$) RAWKEYS-Key Shift —MOUSEKEY-Mouse Key If MOUSEKEY>O If CMDSCRBCK-İ Screen Show 0 Repeat Until Mouse Key-0 Else MX-zX Screen(X Mouse) MY-Y Screen(Y Mouse) BASILAN-0 For To IKONSAY I£ MX>-IKONT(K,İ) and MY>-IKONT(K,2) If MX<-IKONBİK,İ) and MY<-IKONB(K,2) BASILAN-K Exit End If End If Next I£ IKONTEX$(BASILAN)<>"Ouit" and Len(FILE$)-0 and BASILAN>3 HATA("Herhangi bir resim yuüklenmedi",1)| BASILAN-0 End If If BASILAN>O0O If SHADEBOX(IKONT(K,1) ,IKONT(K,2), | IKONB(K,1) ,IKONB(K,2), Ü | Repeat Until Mouse Key-z0 End If If BASILAN-2 Limit Mouse LODİFF Limit Mouse 128,243 To 448,308 Screen To Front O Screen 0 SHADEBOX(IKONT(K,1),IKONT(K,2), Ü IKONB(K,1),IKONBİK,2), True, IKONTEX$ (K) ,IKONCOL(K) |
End If If BASILAN-3 Limit Mouse SAVIFF Limit Mouse 128,243 To 448,308 Sereen To Front 0 : Screen 0 SHADEBOX(IKONT(K,1),IKONT(K,2), IKONB(K,1),IKONB(K,2), True, IKONTEX$ (K) , IKONCOL (K) | End If If BASILAN-5 SCOPY X| MOUSKEY) Ü IKONB(K,1),IKONB(K,2), Trüe, IKONTEX$ (K) , IKONCOL (K) | End If If BASILAN-6 SCOPY YI MOUSKEY) SHADEBOXİIKONT(K,1),IKONT(K,2), | IKONB(K,1),IKONB(K,2), Ü True, IKONTEX$ (K) , IKONCOL(K) | End If If BASILAN-8 BULANIKİ| MOUSEKEYİ SHADEBOXİIKONT(K,1),İKONT(K,2), | IKONB(K,1İ),IKONB(K,2), Ü True, IKONTEX$ (K) , IKONCOL (K) |
NOT: Program dökümünde kullanılan | işareti, sütunlarımızın darlığı yüzünden kesilen satırları göstermektedir. Lütfen bu işaretin bulunduğu satırlarda return veya enter'a basmadan altındaki satırı yazmaya devam edin.
Klavyeyle gezinmek için ← ve → tuşları.
Sayfa 37
End If If BASILAN-I1İ2 BULANIK2| MOUSEKEY | SHADEBOX(IKONT(K,1),IKONT(K,2), | IKONB(K,1),IKONB(K,2), Ü True, IKONTEX$ (K) , IKONCOL (K) | End If If BASILAN-I10 CMDSCRBCK-İ SHADEBOX(IKONT(K,1),IKONT(K,2), Ü IKONB(K,1),IKONB(İK,2), True, IKONTEX$ (K) , IKONCOL (K) | Sereen Hide 0 End If If IKONTEX$ (BASILAN) -"Undo" UNDO SHADEBOX(IKONT(K,1),IKONT(K,2), | IKONB(K,1),IKONB(K,2) True, IKONTEX$ (K) , IKONCOL (K) | End If If IKONTEX$(BASILAN)-"Ouit" Fade 3 Wait 45 Exit End If End If End If End If ARX—İ : ARY-Iİ If RAWKEYS-LAMIGA : ARY-A * End If If RAWKEYS-RAMIGA ARX-XDISP : ARY-YDISP End If If PRESKEY-UARROW Add SCROFFY, -ARY If SCROFFY>O Screen Offset 4,SCROFFX, SCROFFY
Else SCROFFY-0 Screen Offset 4, SCROFFX, SCROFFY End If End If
If PRESKEY-DARROW Add SCROFFY,ARY If SCROFFY<Screen Height (4) -YDISP Screen Offset 4, SCROFFX, SCROFFY Else SCROFFY-Screen Height (4) -YDISP Screen Offset 4, SCROFFX, SCROFFY End If End If If PRESKEY-LARROW Add SCROFFX, -ARX If SCROFFX>0O Screen Offset â4,SCROFFX, SCROFFY
Else Screen Offset 4,SCROFFX, SCROFFY End If End If
If PRESKEY-RARROW Add SCROFFX,ARX If SCROFFX<Screen Width(4)-XDISP Screen Offset 4,SCROFFX, SCROFFY Else SCROFFX-Screen Width (4) -XDISP Screen Offset 4,SCROFFX, SCROFFY End If End If Loop Screen Close O End Proc
Procedure INITPROG
cx PROGRAM HAZIRLIKLARI * "& VAR: PIXKAY2-10
PARSINY(1)-0 PARSINY(2)-360 PARSINY(3)-0 PARSINY(4)-4 PARSINY(5)-10 For K-l1 To 5 Next
** CONTS: RARROW-28 UARROW-30 DARROW-31 LAMIGA-6GA RAMIGA-128 Degree Screen Open 0,640,70,16,Hires Screen Display 0,,244,, Palette $0,$BA9,$310,$FED,$F,$505,$A64, | Off Flash Off Paint 0,0 SHADEBOX(0,0,639,49,True,'',0) Ink 3 Set Text 6 Text 5,60,"Efekt 1.00 Amiga Dergisi 1993" Set Text 0 INITIKON BASIKON End Proc
Procedure INITIKON
rk IKON DATALARI BURADA
IKONSAY-1İ2 For To IKONSAY Read IKONT(K,1İ),IKONT(K,2) Read IKONB(K,1),IKONBİK,2) Read IKONTEXŞ$ (K) , IKONCOL (K) Next Data Data 6,17,106,30,"Load Iff",5 Data 6,32,106,45,"Save Ifİf",5 Data 118,2,184,15,"$Sinus",15 Data 118,17,184,30,"x",4 Data 118,32,184,45,"Yy",4 Data 196,2,265,15,"$Pixel",15 Data 196,17,276,30,"Bulanik X",5 Data 565,2,615,45,"Ouit",15 Data 625,2,635,6,"",5 Data 505,2,553,45,"Undo",15 Data 196,32,276,45,"Bulanik Y",5 End Proc
Procedure GETSINPARL(AXIS$I
'* Scopy X ve Scopy Y rutinleri icin parametre okur. * Hk * '* AXIS$ Hangi rutin icin Ki Vi okuyacagi bu degiskendedir. *
If AXIS$-"axis y" ALTDEGER-PARSINY(1) USTDEGER-PARSINY(2) BASDEGER-PARSINY(3) ARTIS-PARSINY (4) PIX-PARSINY (5) Else ALTDEGER-PARSINX(1) USTDEGER-PARSINX(2) BASDEGER-PARSINX(3) ARTIS-PARSINX (4) PIX-PARSINX(5) End If Screen Open 2,320,80,4,Hires Screen Display 2,208,163,, Curs Off Flash Off Palette $0,$BA9,$555, $FED Cls 1 SHADEBOX(1,0,319,79,False,"",3| Pen 2 Locate 1,İ : Print "Alt Sinir" 22,1 : Print “Ust Sinir" Locate 1,3 : Print "Baslangic" hocate 22,3 : Print "Artis" Locate 8,5 : Print "Pixel Derinligi " Paper 0 Pen 3 Locate 15,1 : Print (ALTDEGER) ,3) Locate 35,1 : Print "*Str$ (USTDEGER) ,3) Locate 15,3 : Print Right$(" "*Str$(BASDEGER) ,3)
NOT: Program dökümünde kullanılan | işareti, sütunlarımızın darlığı yüzünden kesilen satırları göstermektedir. Lütfen bu işaretin bulunduğu satırlarda return veya enter'a basmadan altındaki satırı yazmaya devam edin.