Willkommen, Gast

THEMA:

Das Sierpinskidreieck 18 Jan 2026 19:39 #1

daywalker
Autor
Offline
Platinum Boarder
Beiträge: 1117
Dank erhalten: 708

Hallo liebe CX User.

Wieder ein kleines Beispiel mit Turtlegrafik zum ausprobieren, nachschauen und zur freien Verwendung.

 cX4Web Code

Was ist das?
*** Das Sierpinski Fraktal rekursiv 

Anzeige-Fenster 'Sierpinski Dreieck Rekursiv', ID='Demofenster', Breite=200, Höhe=200, Rahmen: veränderbar

Button 'Neustart' (ID='Button_1', X='5', Y='5', Zielfenster='Demofenster')

:: neu

Setze in [cX.LöscheVariablen]: '*' 

Zeichne Turtlegrafik, X=1, Y=1, Ziel 'Demofenster', erst löschen

 
*** Setup 
*** Hier werden die Farbnamen entnommen... 

Setze in [cX.Stapel(farben).Liste]: 'Khaki¶DodgerBlue¶13¶14¶10¶Red¶¶' 

Setze , MultiSet 'x=10¶y=160¶level=4¶laenge=150¶'

Eingabe 'Bitte legen Sie die Rekursionstiefe fest (Ideal 1-5) ^M Abhängig von der Rechenleistung ihres Computers' in [rekurs] , Vorgabe '6'

 
*** unsichtbares Ausgangsdreieck zeichnen und Eckpunkte in Stapel schreiben 

Zeichne Turtlegrafik, Text 'R30', X=[x], Y=[y], erst löschen

Schleife ab hier mit Variable [a] von 1 bis 3

Zeichne Turtlegrafik, Text '[laenge];R120', Ziel 'Demofenster'

Setze in [cX.Stapel(eckpunkte).Liste]: '[cX.Anzeige(Demofenster).AusgabeX]¶[cX.Anzeige(Demofenster).AusgabeY]' , Als neue Zeile anhängen'

Schleife bis hier

 

...
cX4Web Code: Einfach anklicken zum Kopieren und in click.EXE 5.0 einfügen
			
**cx5AR-LC AAAAAAABAC 9WOtu4jgU_ r_SvoOVlVa wo6FNaEcrU UZqS9EwU6o RdHoRylaGH MAiOJHjtDD Ps8-wLzAvt sdOAEOBpIX 2B8ROTnxu3 _l8nJN2T7B Qfv79N0JOz mNfxgI-e3B yMBsnD4Lxm HIv0rPFnKT X62kIVUtNg EuLXMNEVq0 ajUibgQgZj 0aM1AUdSeo TAaNYROzRI gdbV2sPg6d bxr3gySIND 5eDcdAHHkk QMw3G6jUBD Hoj0pqvfss 8OaxazuGhR b4AGwxlOjk LhAeiLac-a jnOMuMsljL giQnJ-MGe6 b-COJJUoMf fqUDP64EYP zP1MuhRyQJ -p5XNZvdql ipG1fWAy4U hB6kFWw37G o_DJhUji1z RMc45xJkhB XlDBaNdHyw yG1Wt3l3p8 td_UW8Is3v o7zlahC5Vr b-yVq0Jiil Kxn9jKIKIp f7ai9m9niX 5bNRWQnTuA xV1JiKppHa KysU4lNMsi 1eAimGJwxe -8wWhR54Ak cSJx4DUqeh yzAMnKMS1b KlUen1C2pK G4Bf6uCzwY umSYaSMpHw b0hH7849Jr YJ_p5Va4A1 AnPkxLO7ZZ WN8ZIwPF-M WeIvJYvQis 5vIEwzvVK1 J1Vx7WrU_G VMfHsGvGnb 4FPgAqvbxY X7FDR7G0ox UQiYIMxFg4 rFCmZRAfBh gIpAddGpSS ggQbAz6QPo QSVJoeIBkZ H88LpJ_muS 0O_z1Lx-wA XkMMKGY2xZ gPXAfMPAxH xA2FBApY9A AUBpr0Kfoe dX6lGX0ayA Z84j1hrJLl dbTOBpQPoi 8lON-Aj7j6 GGMq1z0RmH MR-g1Q5c1a giWMop2VRm _qHQT3a3y4 VIVdybuUh1 3pu5eS7atK BSp08wrRcL lqJD6NxRRr cmjSSdsHI_ TG-VX-dZJU OdWWraDXl4 LyqNQcXdvi jrU7rCeonZ zMKvKYZbD5 4XeQalTjhk fQMEwqFjSo OjCnbuoniz Ze8zbqYf70 1EmZLmnE7J _YF8IZRKpx aI39Gncz3p d7XIWme11y U5XV7FCLJY W-38hiV9FV 3hR78coqio 1CeGGQLuVA BEw2JCW2sU owF6BcSoND t6R0e31Od6 i0n2LPDQwN roRiWgX6QJ rTWra03tZG l-ze0NyAcZ RoI15A4Y0y mP5U2bvcGu KW6wWt7Na3 J2E1zM9X7d 6lEkdRrzVU DE9h0JHuB_ toltUJUSHP upuSwhz8Pt -IbrOIg2Dm 4CfsajQidy KKRO5H45RJ rm50jXcgpB qlaL7jgBX- l4B8b0SUy6 pJkQRVbWfV EQdg8UGOZq 2W8rkXkpyt YOfg6apuhh f46Wgg2VX9 MVJLuXkclT MEQcLG5lI9 ykGaAqdZFX 3QzJw3OKBU 1zZSZZlyzP Zo0T2bQOQn uYKaceTVo6 GdabTWwAa- kw2-PyQU6j 0J3alP8Xfx MEr_iZlvJa LJnKXbMj02 -w6jpfbKFS 20kihand-U MXnjrs4quJ DxxC_K2uJs rmCvjUtuxv PVbUgRj_P4 n4fhObB88A PhHpLRRLfq zPf_04RbIL r51dBC_rYc qI5hzuewxT 03hIim4lVO YGpw429l7D __vCCcEG0I FgQKwiVFaT khEguvzdYN Q5_rLDqWtL oIFAqHcRTp TNVI4RSdsl uVHn5ApX2X KW9i8pWPpX OXKWTV-Uu0 U-pIOgufSD pYIRM7kTrz SnaZ8x0xe_ QT2xnxqWew rAWg6Or47U JSZfyGR9FW z3_seR5ecn z8nt7rs3dk -sCd0O54nt rm-_Oku_Oe _ue2Jvb-Vx VsdxOmPAyX F2K_fP7qV1 vsjekZ9-HC x_UUacw-1x bfPjms94of waSubOajhx fWF-67c03U _Vl_eQg_Rb _P2yhJRGUF wAA=*
  (62 Zeilen, cX 5.0.10.8, Lizenz: Pro)

Bei besonderem Lizenzerfordernis, das Skript bitte im Volltestmodus ausführen.

Gruß Christian

Folgende Benutzer bedankten sich: Grisu, Meiky

Bitte Anmelden oder Registrieren um der Konversation beizutreten.

Forum

click.EXE 5.0

Allgemeines

Beispielskripte

Das Sierpinskidreieck

THEMA:

Das Sierpinskidreieck 18 Jan 2026 19:39 #1

Community

Anmelden