Scherbenbild
 
Informatik-Projekt Computerkunst am RTG

erstellt von R. Herzog
 
 
Programm -- Quelltext
PR Scherbenbild
bild
farbe 0 0 0
fülle 0
wh 100000 [ wenn ( Alle? xko<maxx xko>0 yko<maxy yko>0) dann
vw 1 sonst rw 1 farbe zz 255 zz 255 zz 255 re 90+zz 90 vw 1]
wh 10000 [ sh aufxy zz maxx zz maxy sa farbe zz 255 zz 255 zz 255 Fülle 0]
ENDE
 
Beschreibung des Programms
1. Teil
Solange der Igel sich im Bildschirmbereich befindet, läuft er eins vor. Stößt er an einen Bildschirmrand, so dreht er sich um einen zufälligen Winkel größer 90°, wechselt zufällig die Farbe und läuft weiter. Dies wird 100000 Mal wiederholt.

2.Teil
Zufällig wird der Igel an eine Bildschirmposition bewegt und füllt den Bildschirmbereich mit einer Zufallsfarbe. Auch dies wird 10000 Mal wiederholt.
Eine Änderung der Anzahl der Wiederholungen ergibt folgendes Bild.