1. Erstelle eine Prozedur “Dreieck“
PR dreieck :d
wh 3 [vw :d re 120]
ENDE

2. Erstelle eine Prozedur "Spinnennetz"
Pr spinnennetz :d :minus
wenn :d>0 dann sh aufxy 500 290 wh 8 [sa farbe zz 255 zz 255 zz 255 dreieck :d re 225] vw :d re 120 setze "d" :d-:minus spinnennetz :d :minus sonst Ende
ENDE

3. Erstelle eine Prozedur "Init"
Pr Init :d :minus
bild
farbe 0 0 0
fülle 0
Spinnennetz :d :minus
ENDE

Diese Prozedur zeichnet zuerst ein Dreieck, welches sich um 225 Grad nach rechts dreht. Dieses Verfahren wird acht Mal wiederholt. Es ist ein Drehdreieck entstanden. Um es farbig zu gestalten, haben wir den Befehl “ farbe zz 255 zz 255 zz 255“ eingefügt. In dieses Drehdreieck wird ein weiteres Drehdreieck gezeichnet, welches um die Variable “:minus“ kleiner ist. Dies wird solange wiederholt bis die Zahl durch das Subtrahieren negativ wird und durch den Befehl “Wenn, dann, sonst“ gestoppt wird. Damit das Spinnennetz auf einem schwarzen Hintergrund erscheint, muss man in eine weitere Prozedur “Init“ die Farbe des Hintergrundes festlegen (für Schwarz: farbe 0 0 0 und danach fülle 0).

Viel Spaß beim erstellen dieser Prozedur!!!