|
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. | ||