LustigeDreiecke1.txt
*******************************************
Script: Diashow lustige Dreiecke

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


____________________________________________

ScriptBegin
var Grafik="Script Turtle";

function init()  //Initialisierungen
{ t.setRndRGB("darkgreen","Khaki"); //"PaleGreen"
  t.setBrush( t.rndRGB2(),1,150);
  t.setPage();
}

function dreieck()
{ x=t.lastX(); y=t.lastY(); w=t.lastW();

  t.trianglePolygon( 1+t.rnd(8),
                     t.rndW(60,120),
                     1+t.rnd(8));

  t.setBrush("Crimson");
  t.turnTo(0); t.goTo(0,0); t.drawPolygon();
  t.turnTo(w); t.goTo(x,y);
}


function draw() //Zeichenbefehle
{
  t.msg("Diashow: "+t.showDia(1000,100,5), "blue");
  t.setPen("black"); 

  dreieck();

  for(i=0; i<2000; i++)
  { t.move(2+t.rnd(8)); t.turn(t.rndW(60,130));
    dreieck();
  }
}
ScriptEnd
