Flashforum - Die Community zu Adobe Flash, Flex AIR. Web Design und Inspiration.

Klesk · 21-03-2003, 22:34

eine kleine modifizierte kochkurve von mir:

hauptfilm:

ActionScript:

#include "Turtle.mx"
paint = function () {
    t = new Turtle(_root.createEmptyMovieClip("container", 0), 100,200);
    kochkurve(t,1000, 5);
};
kochkurve = function (t, strecke, ebene) {
    if (ebene>0) {
        kochkurve(t, strecke/3, ebene-1);
        t.rt(80);
        kochkurve(t, strecke/3, ebene-1);
        t.rt(-160);
        kochkurve(t, strecke/3, ebene-1);
        t.rt(80);
        kochkurve(t, strecke/3, ebene-1);
    } else {
        t.fd(strecke);
    }
};
paint();

Turtle.mx:

ActionScript:

Turtle = function (ct, x, y) {
    this.c = ct;
    this.c.lineStyle(1, 0x000000, 100);
    this.x = x;
    this.y = y;
    this.alpha = 0;
};
Turtle.prototype.fd = function(strecke) {
    this.aa = this.alpha*Math.PI/180;
    this.dx = strecke*Math.cos(this.aa);
    this.dy = strecke*Math.sin(this.aa);
    this.c.moveTo(this.x, this.y);
    this.c.lineTo(this.x+this.dx, this.y+this.dy);
    this.x += this.dx;
    this.y += this.dy;
};
Turtle.prototype.rt = function(winkel) {
    this.alpha = this.alpha-winkel;
};

direkt von java geportet, hab nicht viel verändern müssen

bokel · 21-03-2003, 22:56

Sehr schön,

ich mag vor allem den diskreten Aufbau der Turtle.
Die kann man ja für alles Mögliche gebrauchen.
Ich habe den Thread gleich mal in die Liste der
Algorithmen und Datenstukturen aufgenommen

mfg r.

Klesk · 22-03-2003, 17:50

hier ein menger schwamm, wieder gleich aus java geportet

ActionScript:

MovieClip.prototype.drawRect = function(x, y, x1, y1) {
    this.beginFill(0x000000, 100);
    this.moveTo(x, y);
    this.lineTo(x+x1, y);
    this.lineTo(x+x1, y+y1);
    this.lineTo(x, y+y1);
    this.lineTo(x,y);
    this.endFill();
};
function paint() {
    mengers(_root.createEmptyMovieClip("container", 0), 240, 240, 240);
}
function mengers(ct, c, x, y) {
    if (c>7) {
        mengers(ct, c/3, x-2*c/3, y-2*c/3);
        mengers(ct, c/3, x, y-2*c/3);
        mengers(ct, c/3, x+2*c/3, y-2*c/3);
        mengers(ct, c/3, x-2*c/3, y);
        mengers(ct, c/3, x+2*c/3, y);
        mengers(ct, c/3, x-2*c/3, y+2*c/3);
        mengers(ct, c/3, x, y+2*c/3);
        mengers(ct, c/3, x+2*c/3, y+2*c/3);
    } else {
        ct.drawRect((x+c), (y+c), (2*c), (2*c));
    }
}
paint();

Klesk · 22-03-2003, 18:03

mal wieder was mit turtle...

ActionScript:

#include "Turtle.mx"
paint = function () {
    t = new Turtle(_root.createEmptyMovieClip("container", 0), 300, 300);
    t.rt(80);
    fbaum(t, 200, 52, 12);
};
function fbaum(t, stamm, winkel, ebene) {
    if (ebene>0) {
        t.fd(stamm);
        t.rt(winkel+15);
        fbaum(t, stamm/1.3, winkel, ebene-1);
        t.rt(-2*winkel-15);
        fbaum(t, stamm/2, winkel, ebene-1);
        t.rt(winkel);
        t.fd(-stamm);
    }
}
paint();

v0id · 22-03-2003, 19:32

find ich sseeeeeehr schön

Janoscharlipp · 22-03-2003, 21:34

da hab ich doch gestern auch was dazu gebaut:

ActionScript:

MovieClip.prototype.drawFourangle = function(x1, y1, x2, y2, x3, y3, x4, y4, bThick, bClr, bAlpha, f, fClr, fAlpha){
    this.lineStyle( bThick, bClr, bAlpha);
    if(f) this.beginFill( fClr, fAlpha);
    this.moveTo(x1, y1);
    this.lineTo(x2, y2);
    this.lineTo(x3, y3);
    this.lineTo(x4, y4);
    this.lineTo(x1, y1);
    if(f) this.endFill();
}
 
MovieClip.prototype.drawTriangle = function(x1, y1, x2, y2, x3, y3, bThick, bClr, bAlpha, f, fClr, fAlpha){
    this.lineStyle( bThick, bClr, bAlpha);
    if(f) this.beginFill( fClr, fAlpha);
    this.moveTo(x1, y1);
    this.lineTo(x2, y2);
    this.lineTo(x3, y3);
    this.lineTo(x1, y1);
    if(f) this.endFill();
}
 
_global.pi = Math.PI;
_global.piDiv8 = pi/8;
_global.piDiv2 = pi/2;
_global.tan22 = Math.tan(piDiv8);
_global.i = 0;
 
_root.createEmptyMovieClip("m", 1);
function drawNextTriangle(d, x1, y1, x2, y2){
    var xDif = x2-x1,
        yDif = y1-y2,
        bottomLength = Math.sqrt(xDif*xDif+yDif*yDif),
        bottomGradiant = Math.atan2(yDif, xDif),
        stangLength = tan22*bottomLength/2,
        hypoLength = Math.sqrt(stangLength*stangLength+(BottomLength/2)*(bottomLength/2)),
        peakPositionX = x1+Math.cos(bottomGradiant+piDiv8)*hypoLength,
        peakPositionY = y1-Math.sin(bottomGradiant+piDiv8)*hypoLength,
        c1 = Math.round(d*1.5),
        c2 = 9-d;
        
    m.drawTriangle(x1, y1, peakPositionX, peakPositionY, x2, y2, 1, 0xFFFFFF, 100, true, "0x"+c1+""+c1+"00"+c2+""+c2, 100);
    if(d){
        drawNextFourangle(d-1, x1, y1, peakPositionX, peakPositionY);
        drawNextFourangle(d-1, peakPositionX, peakPositionY, x2, y2);
    }else{
        trace(++i);
    }
}
 
function drawNextFourangle(d, x1, y1, x2, y2){
    var xDif = x2-x1,
        yDif = y1-y2,
        bottomLength = Math.sqrt(xDif*xDif+yDif*yDif),
        bottomGradiant = Math.atan2(yDif, xDif),
        newX = Math.cos(bottomGradiant+piDiv2)*bottomLength,
        newY = Math.sin(bottomGradiant+piDiv2)*bottomLength,
        c1 = Math.round(d*1.5),
        c2 = 9-d;
    
    m.drawFourangle(x1, y1, x1+newX, y1-newY, x2+newX, y2-newY, x2, y2, 1, 0xFFFFFF, 100, true, "0x"+c1+""+c1+"00"+c2+""+c2, 100);
    
    drawNextTriangle(d, x1+newX, y1-newY, x2+newX, y2-newY);
}   
 
m.drawFourangle(350, 250, 450, 250, 450, 350, 350, 350, 1, 0xFFFFFF, 100, true, 0xCC0000, 100);
drawNextTriangle(6, 350, 250, 450, 250);
drawNextTriangle(6, 350, 350, 350, 250);
drawNextTriangle(6, 450, 250, 450, 350);
drawNextTriangle(6, 450, 350, 350, 350);

Klesk · 22-03-2003, 21:48

das kenn ich, sag bloß du bist lordmort von piranho

Janoscharlipp · 23-03-2003, 10:33

sag bloß

hatten wir das nicht schonmal?

man muss sich doch ein bissel bekannt machen

Janoscharlipp · 24-03-2003, 18:56

hier nochmal was fraktal artiges, nur wird die fraktilität (???) duch random zerstört...

ActionScript:

_root.createEmptyMovieClip("m", 1);
size = 10;
function drawLine(d, x1, y1, x2, y2, t){
    m.lineStyle(d+1, 0x999999, 100);
    m.moveTo(x1, y1);
    m.lineTo(x2, y2);
    
    if(d){
        drawLine(d-1, x2, y2, d*size*Math.cos(Math.random()*Math.PI)+x2, -d*size*Math.sin(Math.random()*Math.PI)+y2, t);
        drawLine(d-1, x2, y2, d*size*Math.cos(Math.random()*Math.PI)+x2, -d*size*Math.sin(Math.random()*Math.PI)+y2, t);
    }
}
drawLine(9, 400, 600, 400, 500, 10);

bokel · 29-05-2003, 11:28

Apropos Turtle:

Hat schon mal jemand eine Engine für L (indenmayer) - Systeme gebaut ? In der ct 11/03 wird beschrieben, wie man damit Pflanzenbilder generieren kann.

mfg r.

Janoscharlipp · 29-05-2003, 14:10

kann man den Artikel irgendwo lesen?? ich finde ihn nicht

bokel · 29-05-2003, 14:38

Auf Seite 202 in ct 11/03 unter der Überschrift Bildschirmbegrünung

mfg r.

21-03-2003, 22:56	#2 (permalink)
bokel helpQLODhelp Registriert seit: Feb 2002 Ort: Köln Beiträge: 8.505	Sehr schön, ich mag vor allem den diskreten Aufbau der Turtle. Die kann man ja für alles Mögliche gebrauchen. Ich habe den Thread gleich mal in die Liste der Algorithmen und Datenstukturen aufgenommen mfg r. __________________ Ralf Bokelberg™ - Flex & Flash Consulting

29-05-2003, 11:28	#10 (permalink)
bokel helpQLODhelp Registriert seit: Feb 2002 Ort: Köln Beiträge: 8.505	Apropos Turtle: Hat schon mal jemand eine Engine für L (indenmayer) - Systeme gebaut ? In der ct 11/03 wird beschrieben, wie man damit Pflanzenbilder generieren kann. mfg r. __________________ Ralf Bokelberg™ - Flex & Flash Consulting

29-05-2003, 14:38	#12 (permalink)
bokel helpQLODhelp Registriert seit: Feb 2002 Ort: Köln Beiträge: 8.505	Auf Seite 202 in ct 11/03 unter der Überschrift Bildschirmbegrünung mfg r. __________________ Ralf Bokelberg™ - Flex & Flash Consulting

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

22-03-2003, 19:32	#5 (permalink)
v0id Neuer User Registriert seit: Oct 2002 Ort: München Beiträge: 1.582	find ich sseeeeeehr schön

22-03-2003, 21:48	#7 (permalink)
Klesk ohnitsch Registriert seit: Oct 2002 Ort: Wien Beiträge: 42	das kenn ich, sag bloß du bist lordmort von piranho

23-03-2003, 10:33	#8 (permalink)
Janoscharlipp muh Registriert seit: Apr 2002 Ort: Freiburg / Stuttgart Beiträge: 4.338	sag bloß hatten wir das nicht schonmal? man muss sich doch ein bissel bekannt machen

29-05-2003, 14:10	#11 (permalink)
Janoscharlipp muh Registriert seit: Apr 2002 Ort: Freiburg / Stuttgart Beiträge: 4.338	kann man den Artikel irgendwo lesen?? ich finde ihn nicht