Das Script 04: zurück zur Koralle

PROCEDURE sweep_02;

VAR

   x:REAL;
   xDim:REAL;
   xLoch:REAL;
   y:REAL;
   yDim:REAL;

BEGIN

   x:=1.3;
   xDim:=0.3;
   xLoch:=0.4;
   y:=10;
   yDim:=0.4;

{BeginSweep(#10d,#360d,#20d,0');
Smooth(3);
   Poly(x+xDim,0,x,yDim,x,y-4*yDim,x-xDim,y-2*yDim,xLoch,y,
   xLoch,y-yDim,x-2*xDim,y-3*yDim,x-xDim,y-3*yDim,x-xDim,yDim,x,0);
EndSweep;}

{-----------------------------eins-----------------------------------}

BeginSweep(#90d,#360d,#10d,0');
Smooth(3);
   Poly(x,0,x,y-4*yDim,x-xDim,y-2*yDim,xLoch,y,xLoch,y-yDim,
   x-2*xDim,y-2*yDim,x*xDim,y-3*yDim,x-xDim,0);
   Locus(0,0);
EndSweep;

{-----------------------------zwei-----------------------------------}

BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   Poly(x,0,x,y-4*yDim,x-xDim,y-2*yDim,xLoch,y,xLoch,y-yDim,
   x-2*xDim,y-2*yDim,x*xDim,y-3*yDim,x-xDim,0);
   Locus(0,0);
EndSweep;
Rotate3D(21d 10' 22",-18d 44' 50",-7d 5' 45");

{----------------------------drei-------------------------------------------}

BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   Poly(x,0,x,y-4*yDim,x-xDim,y-2*yDim,xLoch,y,xLoch,y-yDim,
   x-2*xDim,y-2*yDim,x*xDim,y-3*yDim,x-xDim,0);
   Locus(0,0);
EndSweep;
Rotate3D(30d 30' 40",50d 44' 60",50d 5' 90");
Move3D(0",0.2",0");

{----------------------------drei-------------------------------------------}

BeginSweep(#10d,#360d,#10d,0');
Smooth(3);

   Poly(x,0,x,y-4*yDim,x-xDim,y-2*yDim,xLoch,y,xLoch,y-yDim,
   x-2*xDim,y-2*yDim,x*xDim,y-3*yDim,x-xDim,0);
   Locus(0,0);
EndSweep;
Rotate3D(30d 30' 40",120d 44' 60",60d 5' 90");
Move3D(0",0.1",0");





END;

RUN (sweep_02);