10 'Der tanzende Zirkusdirektor
20 MODE 2:DEG:ORIGIN 320,150 30 GRAPHICS PAPER 1:CLG:GRAPHICS PEN 0 60 dr=75:fx=1:rx=190:ry=100:w1=0:w2=360:GOSUB 120 70 fx=-1:ry=100:GOSUB 120 80 dr=50:fx=1:rx=190:ry=120:w1=10:w2=105:GOSUB 120 90 fx=-1:ry=120:GOSUB 120 100 ORIGIN 0,0:FILL 0 110 CALL &BB18:GRAPHICS PEN 1:END 120 FOR w=w1 TO w2 STEP 5 130 x=rx*COS(w)^3:y=ry*SIN(w)^3 140 x=x+y*SIN(w):y=y+x*COS(w) 150 xx=x*COS(dr)-y*SIN(dr):y=x*SIN(dr)+y*COS(dr) 160 x=xx*fx 170 IF w=w1 THEN PLOT x,y ELSE DRAW x,y 180 NEXT w:RETURN |