TP2JS


// Lutz Tautenhahn (c) 1995, 1999 var MaxS1=15; var MaxS2=20; var MaxS3=25; var MaxS4=30; var MaxS5=40; var key='a'; var Zyklus=16; function Staub(InitX, InitY, InitPeriode, InitFarbe) { this.fX=InitX; this.fY=InitY; this.X=InitX; this.Y=InitY; this.Periode=InitPeriode; this.Farbe=InitFarbe; this.GetX=function() { return(this.X); }; this.GetY=function() { return(this.Y); }; this.GetPeriode=function() { return(this.Periode); }; this.GetFarbe=function() { return(this.Farbe); }; this.Verschieben=function(dX, dY) { this.fX+=dX; this.fY+=dY; this.X=Math.floor(this.fX); this.Y=Math.floor(this.fY); }; this.Vorsetzen=function() { while (this.X<0) this.X+=this.Periode; }; this.Ruecksetzen=function() { while (this.X>this.Periode) this.X-=this.Periode; }; this.Zeichnen=function() { setcolor(this.Farbe); setpixel(this.X, this.Y); }; this.ReiheZeichnen=function() { var ii, TempX, TempPeriode; TempX = this.GetX(); TempPeriode = this.GetPeriode(); for (ii=-1; this.X<540+100; ii++) { this.X=TempX+iiTempPeriode; this.Zeichnen(); } this.X=TempX; }; this.Bewegen=function(dX) { this.ReiheZeichnen(); this.Verschieben(dX, 0); if (dX < 0) this.Vorsetzen(); if (dX > 0) this.Ruecksetzen(); }; return(this); } function Koerper(InitX, InitY, InitPeriode, InitGroesse, InitFarbe) { Staub.call(this, InitX, InitY, InitPeriode, InitFarbe); this.Groesse = InitGroesse; this.GetGroesse=function() { return(this.Groesse); }; return(this); } function Fisch(InitX, InitY, InitPeriode, InitGroesse, InitFarbe, InitZweitFarbe, InitTyp) { Koerper.call(this, InitX, InitY, InitPeriode, InitGroesse, InitFarbe); this.ZweitFarbe=InitZweitFarbe; this.Typ=InitTyp; this.Zeichnen=function() { var ii; if (this.Typ==0) { setcolor(this.Farbe); for (ii=0; ii<=this.Groesse; ii++) { moveto(this.X+4this.Groesse, this.Y+this.Groesse); lineto(this.X+2this.Groesse, this.Y+ii); moveto(this.X-4this.Groesse, this.Y+this.Groesse); lineto(this.X-2this.Groesse, this.Y+ii); } fillellipse(this.X-3this.Groesse, this.Y-this.Groesse, this.X+3this.Groesse, this.Y+this.Groesse); setcolor(this.ZweitFarbe); moveto(this.X-4this.Groesse,this.Y+this.Groesse); lineto(this.X+4this.Groesse,this.Y+this.Groesse); } if (this.Typ==1) { setcolor(this.Farbe); for (ii=-2this.Groesse; ii<=2this.Groesse; ii++) { moveto(this.X-14this.Groesse, this.Y+ii); lineto(this.X-8this.Groesse, this.Y); } fillellipse(this.X-9this.Groesse, this.Y-3this.Groesse, this.X+9this.Groesse, this.Y+3this.Groesse); setcolor(this.ZweitFarbe); moveto(this.X-3this.Groesse,this.Y+this.Groesse); lineto(this.X,this.Y); moveto(this.X+6this.Groesse,this.Y-this.Groesse); lineto(this.X+7this.Groesse,this.Y-this.Groesse); moveto(this.X+6this.Groesse,this.Y+this.Groesse); lineto(this.X+8this.Groesse,this.Y+2this.Groesse); } if (this.Typ==-1) { setcolor(this.Farbe); for (ii=-2this.Groesse; ii<=2this.Groesse; ii++) { moveto(this.X+14this.Groesse, this.Y+ii); lineto(this.X+8this.Groesse, this.Y); } fillellipse(this.X-9this.Groesse, this.Y-3this.Groesse, this.X+9this.Groesse, this.Y+3this.Groesse); setcolor(this.ZweitFarbe); moveto(this.X+3this.Groesse,this.Y+this.Groesse); lineto(this.X,this.Y); moveto(this.X-6this.Groesse,this.Y-this.Groesse); lineto(this.X-7this.Groesse,this.Y-this.Groesse); moveto(this.X-6this.Groesse,this.Y+this.Groesse); lineto(this.X-8this.Groesse,this.Y+2this.Groesse); } if (this.Typ==2) { setcolor(this.ZweitFarbe); for (ii=-2this.Groesse; ii<=2this.Groesse; ii++) { moveto(this.X-14this.Groesse, this.Y+ii); lineto(this.X-8this.Groesse, this.Y); } bar(this.X-3this.Groesse, this.Y-6this.Groesse, this.X+3this.Groesse, this.Y-5this.Groesse); setcolor(this.Farbe); fillellipse(this.X-9this.Groesse, this.Y-5this.Groesse, this.X+9this.Groesse, this.Y+5this.Groesse); setcolor(this.ZweitFarbe); moveto(this.X-3this.Groesse,this.Y+this.Groesse); lineto(this.X,this.Y); moveto(this.X+6this.Groesse,this.Y-this.Groesse); lineto(this.X+7this.Groesse,this.Y-this.Groesse); moveto(this.X+6this.Groesse,this.Y+this.Groesse); lineto(this.X+8this.Groesse,this.Y+2this.Groesse); } if (this.Typ==-2) { setcolor(this.ZweitFarbe); for (ii=-2this.Groesse; ii<=2this.Groesse; ii++) { moveto(this.X+14this.Groesse, this.Y+ii); lineto(this.X+8this.Groesse, this.Y); } bar(this.X-3this.Groesse,this.Y-6this.Groesse,this.X+3this.Groesse,this.Y-5this.Groesse); setcolor(this.Farbe); fillellipse(this.X-9this.Groesse, this.Y-5this.Groesse, this.X+9this.Groesse, this.Y+5this.Groesse); setcolor(this.ZweitFarbe); moveto(this.X+3this.Groesse,this.Y+this.Groesse); lineto(this.X,this.Y); moveto(this.X-6this.Groesse,this.Y-this.Groesse); lineto(this.X-7this.Groesse,this.Y-this.Groesse); moveto(this.X-6this.Groesse,this.Y+this.Groesse); lineto(this.X-8this.Groesse,this.Y+2this.Groesse); } }; return(this); } function Alge(InitX, InitY, InitPeriode, InitGroesse, InitFarbe) { Koerper.call(this, InitX, InitY, InitPeriode, InitGroesse, InitFarbe); this.Zweig=[[],[],[],[],[]]; var ii, jj; for (ii=0; ii<4; ii++) { for (jj=0; jj<5; jj++) this.Zweig[ii][jj] = rand()%8-4; } this.Zeichnen=function() { var ii, jj, XTemp, YTemp; setcolor(this.Farbe); for (ii=0; ii<4; ii++) { XTemp = this.X; YTemp = this.Y; for (jj=0; jj<5; jj++) { moveto(XTemp,YTemp); XTemp += this.Groessethis.Zweig[ii][jj]; YTemp -= (6this.Groesse+ii); lineto(XTemp,YTemp); } } }; this.Bewegen=function() { var ii, jj; for (ii=0; ii<4; ii++) { for (jj=0; jj<5; jj++) this.Zweig[ii][jj] = (this.Zweig[ii][jj]+rand()%8-4)/2; } }; return(this); } var S1=[]; for (j=0; j<MaxS1; j++) S1[j]=new Staub(rand()%90,265+rand()%40,96,0); var S2=[]; for (j=0; j<MaxS2; j++) S2[j]=new Staub(rand()%90,250+rand()%40,93,7); var S3=[]; for (j=0; j<MaxS3; j++) S3[j]=new Staub(rand()%90,50+rand()%200,90,6); var F1=new Fisch( 20, 275, 89, 1, 5, 7, -1); var F2=new Fisch( 20, 185, 89, 1, 13, 14, -1); var F3=new Fisch( 20, 150, 88, 1, 6, 7, -2); var F4=new Fisch( 20, 270, 87, 3, 9, 4, 0); var A1=new Alge( 60, 325, 87, 2, 2); var S4=[]; for (j=0; j<MaxS4; j++) S4[j]=new Staub(rand()%86,40+rand()%250,86,0); var F5=new Fisch( 20, 100, 85, 2, 3, 4, 2); var F6=new Fisch( 20, 220, 85, 1, 8, 7, 1); var F7=new Fisch( 20, 310, 84, 1, 7, 12, -1); var F8=new Fisch( 20, 180, 84, 2, 9, 8, 1); var F9=new Fisch( 20, 105, 83, 1, 8, 7, -1); var A2=new Alge( 30, 340, 83, 3, 2); var S5=[]; for (j=0; j<MaxS5; j++) S5[j]=new Staub(rand()%82,30+rand()%300,82,7); function rand() { return(Math.floor(Math.random()1048576)); } function animate() { var j; setcolor(1); bar(0,0,640,300); setcolor(8); bar(0,300,640,350); for (j=0; j<MaxS1; j++) { S1[j].Verschieben(rand()%5-2,rand()%5-2); S1[j].ReiheZeichnen(); } for (j=0; j<MaxS2; j++) { S2[j].Verschieben(rand()%5-2,rand()%5-2); S2[j].ReiheZeichnen(); } for (j=0; j<MaxS3; j++) { S3[j].Verschieben(rand()%5-2,rand()%5-2); S3[j].ReiheZeichnen(); } F1.Bewegen(-89.0/Zyklus); F2.Bewegen(-89.0/Zyklus); F3.Bewegen(-88.0/Zyklus); F4.Bewegen(87.0/Zyklus); A1.Bewegen(); A1.ReiheZeichnen(); for (j=0; j<MaxS4; j++) { S4[j].Verschieben(rand()%5-2,rand()%5-2); S4[j].ReiheZeichnen(); } F5.Bewegen(85.0/Zyklus); F6.Bewegen(85.0/Zyklus); F7.Bewegen(-84.0/Zyklus); F8.Bewegen(84.0/Zyklus); F9.Bewegen(-83.0/Zyklus); A2.Bewegen(); A2.ReiheZeichnen(); for (j=0; j<MaxS5; j++) { S5[j].Verschieben(rand()%5-2,rand()%5-2); S5[j].ReiheZeichnen(); } if (keypressed()) { key=readkey(); if ((key=='f')\|\|(key=='F')) { pause-=10; if (pause<10) pause=10; } if ((key=='s')\|\|(key=='S')) { pause+=10; } if ((key=='e')\|\|(key=='E')) { closegraph(); ctx.canvas.height=480; exit(); return; } } setTimeout('animate()',pause); } var pause=80; function run() { if (nreadln<1) { writeln('keys: f - faster \| s - slower \| e - end'); write('press Enter to continue ...'); readln(''); return; } if (nreadln<2) { initgraph(); ctx.canvas.height=350; nreadln++; animate(); } }

var MaxS1=15;
var MaxS2=20;
var MaxS3=25;
var MaxS4=30;
var MaxS5=40;

var key='a';
var Zyklus=16;

var S1=[]; for (j=0; j<MaxS1; j++) S1[j]=new Staub(rand()%90,265+rand()%40,96,0);
var S2=[]; for (j=0; j<MaxS2; j++) S2[j]=new Staub(rand()%90,250+rand()%40,93,7);
var S3=[]; for (j=0; j<MaxS3; j++) S3[j]=new Staub(rand()%90,50+rand()%200,90,6);
var F1=new Fisch( 20, 275, 89, 1, 5, 7, -1);
var F2=new Fisch( 20, 185, 89, 1, 13, 14, -1);
var F3=new Fisch( 20, 150, 88, 1, 6, 7, -2);
var F4=new Fisch( 20, 270, 87, 3, 9, 4, 0);
var A1=new Alge( 60, 325, 87, 2, 2);
var S4=[]; for (j=0; j<MaxS4; j++) S4[j]=new Staub(rand()%86,40+rand()%250,86,0);
var F5=new Fisch( 20, 100, 85, 2, 3, 4, 2);
var F6=new Fisch( 20, 220, 85, 1, 8, 7, 1);
var F7=new Fisch( 20, 310, 84, 1, 7, 12, -1);
var F8=new Fisch( 20, 180, 84, 2, 9, 8, 1);
var F9=new Fisch( 20, 105, 83, 1, 8, 7, -1);
var A2=new Alge( 30, 340, 83, 3, 2);
var S5=[]; for (j=0; j<MaxS5; j++) S5[j]=new Staub(rand()%82,30+rand()%300,82,7);

function rand()
{ return(Math.floor(Math.random()*1048576));
}