// EOS 1.5 - Programm //Deklaration mit Erzeugung der Objekte f: Fenster d1: Dreieck k1: KREIS blume1, blume2,blume3,blume4: Gruppe r,d,winkel,zaehler: Integer f1,f2,f3: Farbe bed: boolean methode blume_bauen(var a: Gruppe; var b: Dreieck; var c: Kreis; var f1,f2,f3: Farbe; var r,d: Integer) //Blumenmitte als Kreis c.radius := r c.randstärke := d c.füllfarbe := f1 c.randfarbe := f2 a.kopiere(c) //Blumenblatt setzen b.füllfarbe := f3 b.randfarbe := f2 b.randstärke := 5 b.eckensetzen(r-d,-20,r-d,20,r+3*d,0) a.kopiere(b) //jetzt kommt der Trick: 12*30 = 360 , also fehlen noch 11 Blätter wiederhole 23 mal b.drehenum(0,0,15) a.kopiere(b) *wiederhole ende //Hauptprogramm r:= 50 d:= 20 f1:= blau f2:= rot f3:= gelb blume_bauen(blume1,d1,k1,f1,f2,f3,r,d) blume1.strecken(0.5) blume1.verschieben(75,50) r:= 80 d:= 50 f1:= schwarz f2:= rot f3:= gelb blume_bauen(blume2,d1,k1,f1,f2,f3,r,d) blume2.strecken(0.8) blume2.verschieben(200,-80) r:= 60 d:= 20 f1:= gelb f2:= blau f3:= weiß blume_bauen(blume3,d1,k1,f1,f2,f3,r,d) blume3.strecken(0.6) blume3.verschieben(-75,150) r:= 50 d:= 20 f1:= weiß f2:= gelb f3:= schwarz blume_bauen(blume4,d1,k1,f1,f2,f3,r,d) blume4.strecken(0.5) blume4.verschieben(-180,-150) //Fenster setzen f.links := 200 f.oben := 100 f.breite := 800 f.höhe := 800 f.zeichne(blume1) f.zeichne(blume2) f.zeichne(blume3) f.zeichne(blume4) wiederhole 10 mal winkel := zufall(0,100) zaehler := 0 solange zaehler < winkel tue blume1.drehen(1) blume4.drehen(1) blume2.drehen(-1) blume3.drehen(-1) zaehler := zaehler +1 *solange winkel := zufall(0,100) zaehler := 0 solange zaehler < winkel tue blume1.drehen(-1) blume4.drehen(-1) blume2.drehen(1) blume3.drehen(1) zaehler := zaehler +1 *solange *wiederhole