Robotrontechnik-Forum

Registrieren || Einloggen || Hilfe/FAQ || Suche || Mitglieder || Home || Statistik || Kalender || Admins

Willkommen Gast!

Robotrontechnik-Forum » Sonstiges » Wie wurde diese Grafik erzeugt? » Themenansicht

Autor

Thread - Seiten: -1-

000
30.03.2026, 12:25 Uhr
ThomasR

Avatar von ThomasR

Zum BasiCode-Rundfunklehrgang konnte man sich das Begleitmaterial zusenden lassen.

Auf der vorletzten Seite ist diese

Grafik abgebildet. Weiß jemand, wie sie erzeugt wurde, kennt jemand das Programm dazu?

Bei der Suche im Internet fand ich eine Grafik

,

die anscheinend nach dem gleichen Prinzip erzeugt wurde, dazu das passende LOGO-Programm https://www.fraktalwelt.de/myhome/js/turtle.js .
--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!

Dieser Beitrag wurde am 30.03.2026 um 12:30 Uhr von ThomasR editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

001
30.03.2026, 17:55 Uhr
RenéB

Hallo
es erinnert mich an Fragestrategien - Shannon-Fano oder Huffmann. Siehe „Computer und Kunst“ von Völz. Da ist aber kein Programm dabei.

Grüße René

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

002
30.03.2026, 18:06 Uhr
Dresdenboy

Die Stichworte lauten "L-System" und "Fraktal"

VG,
Matthias
--
___________________________________
Produktionen im Rahmen der "The Computer Art Community" (Demoszene): https://demozoo.org/sceners/64936/, YT-Kanal: https://www.youtube.com/@4lpha0ne/videos
Aktuelle Projekte: GDC-Analysen für Grafikeffekte u. Demo/Game-Framework, universelles BIC-Modul auf Pico-Basis, Packer mit sehr kleinem 6502-Dekompressor
HW: BIC, MSX2+, KC87, KC85/2-4, KCC, LC-80, PC1715, C64, C16, Plus/4, A500, A1200, Mega 65, µCs ...

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

003
30.03.2026, 21:57 Uhr
BICa5105

Hallo,

am BIC in etwa so :

10 SCREEN5:CLS:PI!=3.14159265#:MX%=220:MD%=8
20 DIMX%(MX%),Y%(MX%),D%(MX%),A!(MX%),L!(MX%):TP%=0
30 X%(0)=130:Y%(0)=0: D%(0)=0:A!(0)=PI!/2:L!(0)=52
40 IFTP%<0THEN190
50 X1%=X%(TP%):Y1%=Y%(TP%): D1%=D%(TP%)
60 A1!=A!(TP%):L1!=L!(TP%)
70 TP%=TP%-1
80 X2%=X1%+L1!*COS(A1!)
90 Y2%=Y1%+L1!*SIN(A1!)
100 IFD1%<6THENC%=4ELSEC%=10
110 LINE(X1%,Y1%)-(X2%,Y2%),C%
120 IFD1%>=MD%THEN40
130 D2%=D1%+1
140 TP%=TP%+1
150 X%(TP%)=X2%:Y%(TP%)=Y2%: D%(TP%)=D2%:A!(TP%)=A1!-.33:L!(TP%)=L1!*.88
160 TP%=TP%+1
170 X%(TP%)=X2%:Y%(TP%)=Y2%: D%(TP%)=D2%:A!(TP%)=A1!+.68:L!(TP%)=L1!*.5
180 GOTO40
190 A$=INKEY$:IFA$=""THEN190
200 SCREEN0:COLOR6:CLS

VG Cornelius
--
https://www.youtube.com/@robotronA5105

Dieser Beitrag wurde am 30.03.2026 um 21:59 Uhr von BICa5105 editiert.

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

004
31.03.2026, 08:21 Uhr
ThomasR

Avatar von ThomasR

Danke, Cornelius!

Wenn ich doch nur diese verflixte Rekursion in meinen Schädel hineinbekäme … :/
--
Tot wie ein Dodo?
viele Informationen zu BasiCode auf basicode.de

Cu via komputilo povas Esperanto?
Jes, BasiCode!

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

005
31.03.2026, 09:51 Uhr
Bert

Zitat:

ThomasR schrieb
Wenn ich doch nur diese verflixte Rekursion in meinen Schädel hineinbekäme … :/

Um Rekursion zu verstehen, muß man jemanden kennen, der Rekursion verstanden hat

--
Viele Grüße,
Bert

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

006
31.03.2026, 19:20 Uhr
BICa5105

Hier noch als Assembler Version für den BIC unter SCPX:

https://www.dropbox.com/scl/fi/r4bqyc7fcfq68rtfj472k/fraktal.com?rlkey=p7fnbv3nay3lie9w68trjdzuj&st=gv84127w&dl=0

Erheblich schneller als RBASIC ;-)

VG Cornelius
--
https://www.youtube.com/@robotronA5105

Profil || Private Nachricht || Suche

Zitatantwort || Editieren || Löschen

Seiten: -1- [ Sonstiges ]