Templates by BIGtheme NET
|
Willkommen,
Gast
|
THEMA:
Farbspirale 26 Jan 2026 21:59 #1
|
Hallo liebe CX User.
Eine Farbspirale mit dem Zeichne Befehl und der Turtlegrafik. Zum Nachschlagen und experimentieren. Das Skript wie immer zur absolut freien Verwendung.
1 *** SpiraleTurtle 2 Anzeige-Fenster 'Farbspirale', ID='demofenster', Farbe=0 3 *** Stapelliste mitFarben erstellen 4 Setze in [cX.Stapel(farbe).Liste]: 'DarkGreen¶Coral¶MediumVioletRed¶PeachPuff¶Blue' 5 *** Turtle in der Fenstermitte platzieren 6 Zeichne Turtlegrafik, Y=[cX.Rechne([cX.Anzeige(demofenster).Höhe]/2)], Ziel 'demofenster' 7 Schleife ab hier mit Variable [x] von 1 bis 155 8 Setze in [farbzahl]: '[cX.Rechne([x]°6)]' 9 *** 0 Fehler abfangen... 10 Wenn (? '[farbzahl]=0') 11 Setze in [farbe]: 'yellow' 12 Sonst 13 Setze in [farbe]: '[cX.Stapel(farbe).Wert([farbzahl])]' 14 Ende Wenn 15 Zeichne Turtlegrafik, Text 'F[farbe];[cX.Rechne([x]/3)];L59', Ziel 'demofenster' 16 Schleife bis hier 17 Warte Endlos (Warten auf zu behandelnde Ereignisse)
Hinweis: Bei besonderem Lizenzerfordernis, daß Skript bitte im Volltestmodus ausführen. Gruß Christian |
|
Bitte Anmelden oder Registrieren um der Konversation beizutreten. |
cX4Web CodeFarbspirale Gestern 19:00 #2
|
Und noch ein paar Zeilen in dem Kontext zur freien Verwendung.
1 *** Orbiter 2 Anzeige-Fenster 'Spyra', ID='demofenster', maximiert, Farbe=0 3 Setze in [cX.Stapel(color).Liste]: '11¶12¶13' 4 5 Zeichne Turtlegrafik, X=[cX.Rechne([cX.Anzeige(demofenster).Breite]/2)], Ziel 'demofenster' 6 Schleife ab hier mit Variable von 1 bis 300 7 Setze in [farbzahl]: '[cX.Rechne(°3)]' 8 *** Nullfehler auffangen.. 9 Wenn (? '[farbzahl]=0') 10 Setze in [farbe]: 'green' 11 Sonst 12 Setze in [farbe]: '[cX.Stapel(color).Wert([farbzahl])]' 13 Ende Wenn 14 Zeichne Turtlegrafik, Text 'F[farbe];[cX.Rechne(*1,5)];R121', Ziel 'demofenster' 15 Schleife bis hier 16 17 Warte Endlos (Warten auf zu behandelnde Ereignisse)
Hinweis: Bei besonderem Lizenzerfordernis, daß Skript bitte im Volltestmodus ausführen. Gruß Christian |
|
Bitte Anmelden oder Registrieren um der Konversation beizutreten. |