Listing-Ausschnitt 13 (in Amiga-Basic):

für Abb.1 aus raum&zeit 81, S.6

Rest des Programms
wie Listing 9 in raum&zeit 82, S.112

..............

bry=1: brx=50: vsx=brx/2: vsy=.5: iy=0
groesse=10
..............

WHILE iy < iye

iy=iy+1: tanf=tanf-swy: ix=0: panf=-brx/2-swx+vsx
tw=tanf: tq1=1+tw: tq2=1-tw: tq3=1.37: tq4=1-tw*.73
tq5=2-tw*.88: tq6=tw*1.66: ky$="a" :

punkt:
ix=ix+1: panf=panf+swx
ky$=INKEY$
IF ky$="s" THEN GOTO end1
k1=COS(panf*tq1): k2=COS(panf*tq2)
k3=COS(panf*tq3): k4=COS(panf*tq4)
k5=COS(panf*tq5): k6=COS(panf*tq6)
ks=k1+k2+k3+k4+k5+k6
ksr8!=ks: IF ABS(ksr8!)<1E-10 THEN ks=1E-10
gr1!=15
IF ks>3.7 THEN gr1!=31
IF ks>3.8 THEN gr1!=30
IF ks>3.9 THEN gr1!=29
IF ks>3.99 THEN gr1!=28
IF ks<-3.7 THEN gr1!=13
IF ABS(ks)<.4 THEN gr1!=5
IF ABS(ks)<.3 THEN gr1!=4
IF ABS(ks)<.2 THEN gr1!=3
IF ABS(ks)<.1 THEN gr1!=2
IF ABS(ks)<.01 THEN gr1!=1

abbruch:
ic=INT(gr1!): PALETTE ic,r(ic),g(ic),b(ic)
COLOR ic: LINE(ix,iy)-(ix,iy),,Bf
IF ix < ispalten THEN GOTO punkt

WEND

----------------------------------------------------------------------

Listing 7: Bild 17 in Amiga-Basic

DEFINT i,j: DEFDBL a-h,k-z: DIM r(31),g(31),b(31)
INPUT " b = ",b :REM b=2

im=30: imm=im*1000: ipix=180: s=SQR(ipix*im)
s2=s*SQR(7): s1=s*SQR(b): r1=s1/ipix: r2=s2/ipix

SCREEN 1,320,200,5,1

pastr$=STR$(b): REM pastr$="(xy) mod 30"
WINDOW 2,pastr$,(0,0)-(310,180),16,1

f5=29/31: br=6: y1=0: y2=br: s=1/16: r(1)=1: g(1)=-s
r(18)=0: g(18)=1: b(18)=0: PALETTE 0,0,0,0: PALETTE 1,1,1,1

FOR ic=2 TO 31 :REM Farbkeil senkrecht
IF ic<18 THEN r(ic)=r(ic-1)-s: g(ic)=g(ic-1)+s: b(ic)=0
IF ic>18 THEN g(ic)=g(ic-1)-s: b(ic)=b(ic-1)+s: r(ic)=0
PALETTE ic,r(ic),g(ic),b(ic)
COLOR ic : LINE(302,y1)-(311,y2),,Bf: y1=y1+br: y2=y2+br
NEXT: PALETTE 18,.6,1,.6
r(0)=0:g(0)=0:b(0)=0:g(1)=1:b(1)=1:r(18)=.6:g(18)=1:b(18)=.6

FOR ix=1 TO 311
FOR iy=1 TO ipix
ky$="a": ky$=INKEY$: IF ky$="s" THEN GOTO end1
x=ix*r1: y=iy*r2
xy=x*x+y*y
reduz1: IF xy>imm THEN xy=xy-imm
IF xy>imm THEN GOTO reduz1
reduz2:
IF xy<-imm THEN xy=xy+imm
IF xy<-imm THEN GOTO reduz2
ia=INT(xy+.5)
f=ia/im: f1=INT(f)*im: f=ia-f1
gr1!=f+2: IF gr1!>31 THEN gr1!=31
ausgabe:
ic=INT(gr1!): PALETTE ic,r(ic),g(ic),b(ic)
COLOR ic: LINE(ix,iy)-(ix,iy),,Bf
NEXT iy,ix

end1: ky$="a": WHILE ky$<>"e" : ky$=INKEY$:

WEND
ende: WINDOW CLOSE 2: SCREEN CLOSE 1
END