Sayfa 91

.— GER EM lam

BencetigteStrukturen: POKEL RastPort&-416,Memory& ' Arealnfo POKEL RastPort&412,Memory&4100 'TmpRas InitArea& Memory&,Memory&-*24,10 InitTmpRas& Memory&-4100,Memory&-4 108, 20480

REM Renk tablosu oluşturalım.

FarbenEinlesen: PALETTE 0,0,0,0 : PALETTE 1,0,0,0 PALETTE 18,1,0,0 : PALETTE 19,0,0,.4 PALETTE 20,0,0,.5 FOR TO 17 PALETTE FarbNr,i,0,1-i NEXT FarbNr

REM Burada hesaplar başlıyor

Berechnungen: MalFakt-ABS(MalFakt)*SchrittY 1)/SchrittY XAusdehnung-PxSchritt*SchrittX-SchraegBreite XPos-152-XAusdehnung/2 YPos-120-YAusdehnung/2

FunktionDurchrechnen: Unten-10000 : Oben—-10000 FOR TO YMax STEP SchrittY FOR x-XMin TO XMax STEP SchrittX xl—x : : GOSUB Funktion IF z<Unten THEN Unten—z IF z>Oben THEN Oben-z NEXT x NEXT y StepPerColor-z(Oben-Unten)/16

REM artık çizim Zeichnen: FOR y-YMin TO YMax STEP SchrittY FOR x-XMin TO XMax STEP SchrittX

IF INKEY$-CHR$(27) THEN Ende Pot-0

IF x-XMin THEN u90-YPos4(y-4SchrittY)*Py- .

R b

: : GOSUB Pot-Pot4z :

: yl—y : GOSUB Funktion Pot-Pot-z :

POL POR

xl—x : : GOSUB Funktion Pot-Pot4z : zZ490—-z*ZFakt

REM Karelerin kenar noktaları bulunur

EckpunkteBerechnen: b9o— YPos4y*PySchritt-z 1 90 d9e—

Fakt

h9o-YPos-4(y-4Schritt Y)*PySchritt-z47>

FarbeBerechnen: Pot-Pot/4 - Unten Farbeo-Pot/StepPerColor IF THEN IF THEN Farbe290-18

PlatteZeichnen: Platte Platte

NEXT x xMalus—xMalus4MalFakt

Platte 90),19,20

NEXT y WHILE INKEY$-"" : WEND REM Artık temizlik

Ende: POKEW FlagsAdr&,0 FreeRemember& RememberKey&;,-1 LIBRARY CLOSE WINDOW CLOSE 2 SCREEN CLOSE | END

Fehler: WINDOW 2 RESUME NEXT

REM Burada kare çizmek için bir alt program var.

SUB Platte STATIC SHARED POKE RastPort&-427,Farbe29o SetAPen& RastPort&,Farbe 1 AreaMove& AreaDraw& AreaDraw& RastPort& AreaDraw& AreaEnd& RastPort& END SUB

REM İşte mucizevi fonksiyonumuz

Funktion: RETURN

İşte bu kadar. Aslında bu program oldukça karışık teknikler kullanıyor ve büyük ölçüde sistem komutlarını kullanıyor. Ne var ki, son derece sevimli sonuçlar veriyor. Dediğim gibi REM satırlarını eklemeyin. Gelecek ay, bu ay yazmam gereken HAM ekranları üzerine bir yazı yazacağım ve bu arada sorunlarınıza da değineceğim. İstatistiğe göre 62 saat içinde yeni bir kaza yapmam bekleniyor, görüşmek üzere,

“Hani bir şey olmazsa....