Beispie_dia.txt
*******************************************
Beispiele mit Grafik "Script Turtle"

Script mit Doppelklick oder STRG+R aufrufen
===========================================

____________________________________________

Random Dreiecke
===============
ScriptBegin
var Grafik = "Script Turtle";

function init()
{ t.setBrush("firebrick");
  t.setPage();
  t.msg( "Diashow: "+t.showDia(500,10), "blue");
}


function dreieck()
{ t.setNoStyle();
  t.goTo(0,0); t.turnTo(t.rnd(360));
  t.trianglePolygon(t.rnd(40)+20,
                    t.rnd(90)+30,
                    t.rnd(50)+20);
  
  t.setPen(); t.setBrush(t.rndRGB1());
  t.goTo( 130-t.rnd(260), 100-t.rnd(200)); 
  t.drawPolygon();
} 

function draw()
{
 // t.setRndRGB("lightblue","gold");
 for(var i=0; i<300; i++) dreieck();
}
ScriptEnd
____________________________________________


