Digimon - Revision history

121.74.230.95 at 20:47, 3 February 2013

2013-02-03T20:47:22Z

Lerc at 19:07, 26 August 2012

2012-08-26T19:07:56Z

Lerc: Created page with "

 100   /* func sample, coast creation */ 110   float s 120   while s<1 or s>2 130        input "ratio 1 to 2"; s 140   endwhile 150   s = (s-1)/10+1 160   screen 1..."


2012-08-26T19:00:19Z
Created page with " <code><pre> 100   ‎func sample, coast creation:  110   float s 120   while s<1 or s>2 130        input "ratio 1 to 2"; s 140   endwhile 150   s = (s-1)/10+1 160   screen 1..."
New page


<code><pre>

100   /* func sample, coast creation */

110   float s

120   while s<1 or s>2

130        input "ratio 1 to 2"; s

140   endwhile

150   s = (s-1)/10+1

160   screen 1,2,1,1

170   s=sqr(s*s-1)

180   float x0=100, x1=412, y0=0, y1=0

190   fractal(x0,x1,y0,y1,1)

200   line(100, 50, 412, 50, 255, 65535)

210   end

220   func fractal(x0;float,x1;float,y0;float,y1;float,sp;int)

230        float l, r, x2, y2

240        l=sqr[(x1-x0)*(x1-x0)+(y1-y0)*(y1-y0)]

250        if l<2 or sp>=9 then (

260               line(x0,y0/3+50,x1,y1/3+50,255,65535) ; return()

270        )

280        r=rnd()+rnd()+rnd()-2

290        x2=(x0+x1)/2+s*(y1-y0)*r

300        y2=(y0+y1)/2+s(x0+x1)*r

310        sp = sp + 1

320        fractal(x0,x2,y0,y2,sp)

330        fractal(x2,x1,y2,y1,sp)

340   endfunc

</pre></code>



<edcode>

var s = Math.random()+1;

    

s = (s-1)/10+1;



//canvasScale(10,10);

s=Math.sqrt(s*s-1);



var x0=100;

var x1=412;

var y0=0;

var y1=0;

fractal(100,412,0,0,1);

drawLine(100,50,412,50);





function fractal(x0,x1,y0,y1,sp){

  var l,r,x2,y2;

  l = Math.sqrt((x1-x0)*(x1-x0) + (y1-y0)*(y1-y0));

  if ( (l<2) || (sp>9) ) {

    drawLine(x0,y0/3+50,x1,y1/3+50);

    return;

  }

  r=Math.random()+Math.random()+Math.random()-2;

  x2=(x0+x1)/2 + s*(y1-y0) * r;

  y2=(y0+y1)/2 + s*(x0-x1) * r;

  sp=sp+1;

  fractal(x0,x2,y0,y2,sp);

  fractal(x2,x1,y2,y1,sp);  

}

</edcode>

← Older revision		Revision as of 20:47, 3 February 2013
Line 1:		Line 1:
−	Code from Digimon.	+	Code from an episode of Digimon.
		+
		+	http://i.imgur.com/gh3dK.jpg
		+
	http://thegenuisishere.multiply.com/journal/item/48?&show_interstitial=1&u=%2Fjournal%2Fitem		http://thegenuisishere.multiply.com/journal/item/48?&show_interstitial=1&u=%2Fjournal%2Fitem