Templates by BIGtheme NET
|
Willkommen,
Gast
|
THEMA:
Schneeflocke 30 Jan 2026 09:14 #1
|
Hallo liebe CX User.
Anbei noch ein kleines Skript, daß mit der Turtlegrafik und Winkellisten eine Schneeflocke zeichnet.
1 *** Schneeflocke 2 Anzeige-Fenster 'Schneeflocke', ID='demofenster', Höhe=150 3 Bezeichner Text='Größe' (ID='Bezeichner_1', X='3,18', Y='5,29', Zielfenster='demofenster') 4 Bezeichner Text='Y' (ID='Bezeichner_2', X='53,18', Y='5,29', Zielfenster='demofenster') 5 Bezeichner Text='X' (ID='Bezeichner_3', X='32,81', Y='5,29', Zielfenster='demofenster') 6 Eingabe-Element Text='90', Validierung '"#"', nur Zahl (ID='Eingabe-Element_1', X='14,29', Y='4,5', Breite='11,38', Zielfenster='demofenster') 7 Eingabe-Element Text='15', nur Zahl (ID='Eingabe-Element_2', X='38,1', Y='4,5', Breite='11,38', Zielfenster='demofenster') 8 Eingabe-Element Text='40' (ID='Eingabe-Element_3', X='58,47', Y='4,5', Breite='11,38', Zielfenster='demofenster') 9 Button 'Zeichne' (ID='Button_1', X='80', Y='4,5', Zielfenster='demofenster') 10 Setze in [cX.Stapel(winkel).Liste]: '60¶-120¶60¶0' 11 Setze in [winkelliste]: 'L150¶R30¶L150¶L150¶L150¶R30¶L150¶R30¶L150¶R30¶L150¶L150¶L150¶R30¶L150¶' 12 Zeichne Turtlegrafik, Text 'R90', X=[.Eingabe(Eingabe-Element_2).Wert], Y=[.Eingabe(Eingabe-Element_3).Wert], Ziel 'demofenster' 13 14 *** Schneeflocke beim Start zeichnen 15 Schleife ab hier mit Variable [r] von 1 bis 3 16 Schleife ab hier mit Variable [wkoord] über Liste: '[winkelliste]' 17 Aufruf Marke 'Funktion.Kochkurve(laenge;order)', Parameter '[.Eingabe(Eingabe-Element_1).Wert];3' 18 Zeichne Turtlegrafik, Text '[wkoord]', Ziel 'demofenster' 19 Schleife bis hier 20 Zeichne Turtlegrafik, Text 'R30' ...
Das Skript natürlich zur freien Verwendung und zum nachschlagen. Hinweis: Bei besonderem Lizenzerfordernis, das Skript bitte im Volltestmodus ausführen. LG Christian |
|
Bitte Anmelden oder Registrieren um der Konversation beizutreten. |
cX4Web Code