CAAD.HBT.ETHZ.CH . NDS0405stu . AestE14

_________________________________________________________________________________________________________________________________________________________
Das Script 05: zurück zur Koralle


Part 01

PROCEDURE sweep_02;

VAR

   x:REAL;
   xDim:REAL;
   xLoch:REAL;
   y:REAL;
   yDim:REAL;
   a:REAL;
   b:REAL;
   c:REAL;
   d:REAL;
   e:REAL;
   f:REAL;
   g:REAL;
   {i:INTEGER;}
   Wx,Wy,Wz       :REAL;
   Wxb,Wyb,Wzb    :REAL;
   Wxc,Wyc,Wzc    :REAL;
   Wxd,Wyd,Wzd    :REAL;
   Wxe,Wye,Wze    :REAL;
   Wxf,Wyf,Wzf    :REAL;
   Wxg,Wyg,Wzg    :REAL;
   Höhe         :REAL;
   returnVal      :REAL;
   {numOfObj      :INTEGER;}
   obj1,obj2,newSolid :HANDLE;



BEGIN

   x:=1.3;
   xDim:=0.3;
   xLoch:=0.4;
   y:=15;
   yDim:=0.4;
   a:=0.7;
   b:=0.5;
   c:=0.3;
   d:=0.2;
   e:=0.4;
   f:=0.1;
   g:=0.85;


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

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

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

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

Wxb:=45;
Wyb:=-45;
Wzb:=0;


Move3D(0,2,0);
Rotate3D(Wxb,Wyb,Wzb );

   obj2 := LObject;   returnVal :=AddSolid(obj1,obj2,newSolid);


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

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

Move3D(0,10,0);
Rotate3D(45,45,0);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);


{----------------------------vier-------------------------------------------}

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

Move3D(0,5,0);
Rotate3D(45,170,0);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);

{----------------------------1 an zwei-------------------------------------------}

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

Wx:=45;
Wy:=45;
Wz:=0;
Höhe:=8;

Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*Höhe,
((cos(Wxb/180*3.1416))*Höhe)+2,
(sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);



{----------------------------2 an zwei-------------------------------------------}

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

Wx:=45;
Wy:=60;
Wz:=0;
Höhe:=6;

Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*Höhe,
((cos(Wxb/180*3.1416))*Höhe)+2,
(sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------3 an zwei-------------------------------------------}

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

Wxc:=60;
Wyc:=-70;
Wzc:=0;
Höhe:=4;

Rotate3D(Wxc,Wyc,Wzc);
Move3D((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*Höhe,
((cos(Wxb/180*3.1416))*Höhe)+2,
(sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*Höhe);

   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);

{----------------------------4 an zwei-------------------------------------------}

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

Wx:=45;
Wy:=200;
Wz:=0;
Höhe:=5.8;

Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*Höhe,
((cos(Wxb/180*3.1416))*Höhe)+2,
(sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------5 an zwei-------------------------------------------}

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

Wx:=10;
Wy:=180;
Wz:=0;
Höhe:=11.5;

Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*Höhe,
((cos(Wxb/180*3.1416))*Höhe)+2,
(sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------6 an zwei-------------------------------------------}

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

Wx:=45;
Wy:=180;
Wz:=0;
Höhe:=4;

Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*Höhe,
((cos(Wxb/180*3.1416))*Höhe)+2,
(sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);



{----------------------------7 an zwei-------------------------------------------}

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

Wx:=45;
Wy:=160;
Wz:=0;
Höhe:=10;

Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*Höhe,
((cos(Wxb/180*3.1416))*Höhe)+2,(sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------8 an zwei-------------------------------------------}

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

Wx:=45;
Wy:=180;
Wz:=0;
Höhe:=8;

Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*Höhe,
((cos(Wxb/180*3.1416))*Höhe)+2,
(sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);

{----------------------------1 an 3 an zwei-------------------------------------------}

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

Wx:=60;
Wy:=250;
Wz:=0;
Höhe:=5;

Rotate3D(Wx,Wy,Wz);
Move3D(((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*4)
+((sin(Wxc/180*3.1416)*sin(Wyc/180*3.1416))*Höhe),
      (((cos(Wxb/180*3.1416))*4))+2+(((cos(Wxc/180*3.1416))*Höhe)),
      ((sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*4)
+((sin(Wxc/180*3.1416)*cos(Wyc/180*3.1416))*Höhe));
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);

{----------------------------2 an 3 an zwei-------------------------------------------}

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

Wx:=-10;
Wy:=120;
Wz:=0;
Höhe:=8;

Rotate3D(Wx,Wy,Wz);
Move3D(((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*4)
+((sin(Wxc/180*3.1416)*sin(Wyc/180*3.1416))*Höhe),
      (((cos(Wxb/180*3.1416))*4))+2+(((cos(Wxc/180*3.1416))*Höhe)),
      ((sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*4)
+((sin(Wxc/180*3.1416)*cos(Wyc/180*3.1416))*Höhe));
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);


{-----------------------------eins_minus-----------------------------------}

BeginSweep(#90d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y-4*yDim,x-2*xDim,
y-3*yDim,xLoch,y-yDim+0.1,0,y+0.1-yDim);
   Locus(0,0);
EndSweep;
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);

{-----------------------------zwei_minus-----------------------------------}

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

Wxb:=45;
Wyb:=-45;
Wzb:=0;


Move3D(0,2,0);
Rotate3D(Wxb,Wyb,Wzb );

   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);


{----------------------------drei_minus-------------------------------------------}

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

Move3D(0,10,0);
Rotate3D(45,45,0);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);


{----------------------------vier_minus-------------------------------------------}

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

Move3D(0,5,0);
Rotate3D(45,170,0);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);

{----------------------------1 an zwei_minus-------------------------------------------}

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

Wx:=45;
Wy:=45;
Wz:=0;
Höhe:=8;

Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*Höhe,
((cos(Wxb/180*3.1416))*Höhe)+2,(
sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);



{----------------------------2 an zwei_minus-------------------------------------------}

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

Wx:=45;
Wy:=60;
Wz:=0;
Höhe:=6;

Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*Höhe,
((cos(Wxb/180*3.1416))*Höhe)+2,
(sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------3 an zwei_minus-------------------------------------------}

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

Wxc:=60;
Wyc:=-70;
Wzc:=0;
Höhe:=4;

Rotate3D(Wxc,Wyc,Wzc);
Move3D((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*Höhe,
((cos(Wxb/180*3.1416))*Höhe)+2,
(sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*Höhe);

   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);

{----------------------------4 an zwei_minus-------------------------------------------}

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

Wx:=45;
Wy:=200;
Wz:=0;
Höhe:=5.8;

Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*Höhe,
((cos(Wxb/180*3.1416))*Höhe)+2,(sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------5 an zwei_minus-------------------------------------------}

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

Wx:=10;
Wy:=180;
Wz:=0;
Höhe:=11.5;

Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*Höhe,
((cos(Wxb/180*3.1416))*Höhe)+2,
(sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------6 an zwei_minus-------------------------------------------}

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

Wx:=45;
Wy:=180;
Wz:=0;
Höhe:=4;

Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*Höhe,
((cos(Wxb/180*3.1416))*Höhe)+2,
(sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);



{----------------------------7 an zwei_minus-------------------------------------------}

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

Wx:=45;
Wy:=160;
Wz:=0;
Höhe:=10;

Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*Höhe,
((cos(Wxb/180*3.1416))*Höhe)+2,
(sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------8 an zwei_minus-------------------------------------------}

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

Wx:=45;
Wy:=180;
Wz:=0;
Höhe:=8;

Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*Höhe,
((cos(Wxb/180*3.1416))*Höhe)+2,
(sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------1 an 3 an zwei_minus-------------------------------------------}

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

Wx:=60;
Wy:=250;
Wz:=0;
Höhe:=5;

Rotate3D(Wx,Wy,Wz);
Move3D(((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*4)
+((sin(Wxc/180*3.1416)*sin(Wyc/180*3.1416))*Höhe),
      (((cos(Wxb/180*3.1416))*4))+2+(((cos(Wxc/180*3.1416))*Höhe)),
      ((sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*4)
+((sin(Wxc/180*3.1416)*cos(Wyc/180*3.1416))*Höhe));
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);

{----------------------------2 an 3 an zwei_minus-------------------------------------------}

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

Wx:=-10;
Wy:=120;
Wz:=0;
Höhe:=8;

Rotate3D(Wx,Wy,Wz);
Move3D(((sin(Wxb/180*3.1416)*sin(Wyb/180*3.1416))*4)
+((sin(Wxc/180*3.1416)*sin(Wyc/180*3.1416))*Höhe),
      (((cos(Wxb/180*3.1416))*4))+2+(((cos(Wxc/180*3.1416))*Höhe)),
      ((sin(Wxb/180*3.1416)*cos(Wyb/180*3.1416))*4)
+((sin(Wxc/180*3.1416)*cos(Wyc/180*3.1416))*Höhe));
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------fünf_minus-------------------------------------------}
   x:=2;
   xDim:=0.5;
   xLoch:=0.4;
   y:=18;
   yDim:=0.5;

BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,-2,x-xDim,-2,x-xDim,y-4*yDim,x-2*xDim,
y-3*yDim,xLoch,y-yDim+0.1,0,y+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wxd:=70;   Wyd:=-10;   Wzd:=0;
Rotate3D(Wxd,Wyd,Wzd);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);

END;

RUN (sweep_02);

Part 02

PROCEDURE sweep_02;

VAR

   x:REAL;
   xDim:REAL;
   xLoch:REAL;
   y:REAL;
   yDim:REAL;
   a:REAL;
   b:REAL;
   c:REAL;
   d:REAL;
   e:REAL;
   f:REAL;
   g:REAL;
   {i:INTEGER;}
   Wx,Wy,Wz       :REAL;
   Wxb,Wyb,Wzb    :REAL;
   Wxc,Wyc,Wzc    :REAL;
   Wxd,Wyd,Wzd    :REAL;
   Wxe,Wye,Wze    :REAL;
   Wxf,Wyf,Wzf    :REAL;
   Wxg,Wyg,Wzg    :REAL;
   Höhe         :REAL;
   returnVal      :REAL;
   {numOfObj      :INTEGER;}
   obj1,obj2,newSolid :HANDLE;

BEGIN

   x:=1.3;
   xDim:=0.3;
   xLoch:=0.4;
   y:=15;
   yDim:=0.4;
   a:=0.7;
   b:=0.5;
   c:=0.3;
   d:=0.2;
   e:=0.4;
   f:=0.1;
   g:=0.85;

{----------------------------BIGGER-------------------------------------------}

   x:=2;
   xDim:=0.5;
   xLoch:=0.4;
   y:=18;
   yDim:=0.5;

{----------------------------fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y-4*yDim,x-xDim,y-2*yDim,xLoch,y,xLoch,y-yDim,0,y-yDim);
   Locus(0,0);
EndSweep;
      Wxd:=70;Wyd:=-10;Wzd:=0;
Rotate3D(Wxd,Wyd,Wzd);
   obj1 := LObject;
{----------------------------smaller-------------------------------------------}

   x:=1;
   xDim:=0.3;
   xLoch:=0.2;
   y:=15;
   yDim:=0.3;

{----------------------------1 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*c-4*yDim,x-xDim,y*c-2*yDim,xLoch,
y*c,xLoch,y*c-yDim,0,y*c-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;Wy:=45;Wz:=0;Höhe:=8;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(obj1,obj2,newSolid);
{----------------------------2 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*d-4*yDim,x-xDim,y*d-2*yDim,xLoch,
y*d,xLoch,y*d-yDim,0,y*d-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;Wy:=60;Wz:=0;Höhe:=6;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------3 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*b-4*yDim,x-xDim,y*b-2*yDim,xLoch,y*b,xLoch,y*b-yDim,0,y*b-yDim);
   Locus(0,0);
EndSweep;
      Wxe:=30;Wye:=-90;Wze:=0;Höhe:=8.5;
Rotate3D(Wxe,Wye,Wze);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------4 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*d-4*yDim,x-xDim,y*d-2*yDim,xLoch,
y*d,xLoch,y*d-yDim,0,y*d-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;Wy:=200;Wz:=0;Höhe:=12;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------5 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*e-4*yDim,x-xDim,y*e-2*yDim,xLoch,
y*e,xLoch,y*e-yDim,0,y*e-yDim);
   Locus(0,0);
EndSweep;
      Wx:=10;Wy:=180;Wz:=0;Höhe:=11;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------6 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*d-4*yDim,x-xDim,y*d-2*yDim,xLoch,
y*d,xLoch,y*d-yDim,0,y*d-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;Wy:=180;Wz:=0;Höhe:=14;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------8 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*c-4*yDim,x-xDim,y*c-2*yDim,xLoch,
y*c,xLoch,y*c-yDim,0,y*c-yDim);
   Locus(0,0);
EndSweep;
      Wx:=20;Wy:=90;Wz:=0;Höhe:=8;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------9 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*d-4*yDim,x-xDim,y*d-2*yDim,xLoch,
y*d,xLoch,y*d-yDim,0,y*d-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;Wy:=120;Wz:=0;Höhe:=6;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------10 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*b-4*yDim,x-xDim,y*b-2*yDim,xLoch,
y*b,xLoch,y*b-yDim,0,y*b-yDim);
   Locus(0,0);
EndSweep;
      Wxe:=30;Wye:=-40;Wze:=0;Höhe:=8.5;
Rotate3D(Wxe,Wye,Wze);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------11 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*d-4*yDim,x-xDim,y*d-2*yDim,xLoch,
y*d,xLoch,y*d-yDim,0,y*d-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;Wy:=100;Wz:=0;Höhe:=12;
Rotate3D(Wx,Wy,Wz);

Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------12 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*e-4*yDim,x-xDim,y*e-2*yDim,xLoch,
y*e,xLoch,y*e-yDim,0,y*e-yDim);
   Locus(0,0);
EndSweep;
      Wx:=10;Wy:=90;Wz:=0;Höhe:=11;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------1 an 3 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*c-4*yDim,x-xDim,y*c-2*yDim,xLoch,
y*c,xLoch,y*c-yDim,0,y*c-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;Wy:=45;Wz:=0;Höhe:=1;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*8
+(sin(Wxe/180*3.1416)*sin(Wye/180*3.1416))*Höhe,      
((cos(Wxd/180*3.1416))*8)+((cos(Wxe/180*3.1416))*Höhe),      
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*8
+(sin(Wxe/180*3.1416)*cos(Wye/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------2 an 3 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*d-4*yDim,x-xDim,y*d-2*yDim,xLoch,y*d,
xLoch,y*d-yDim,0,y*d-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;Wy:=60;Wz:=0;Höhe:=2;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*8
+(sin(Wxe/180*3.1416)*sin(Wye/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*8)+((cos(Wxe/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*8
+(sin(Wxe/180*3.1416)*cos(Wye/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------3 an 3 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*d-4*yDim,x-xDim,y*d-2*yDim,xLoch,
y*d,xLoch,y*d-yDim,0,y*d-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;Wy:=200;Wz:=0;Höhe:=3;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*8
+(sin(Wxe/180*3.1416)*sin(Wye/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*8)+((cos(Wxe/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*8
+(sin(Wxe/180*3.1416)*cos(Wye/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------4 an 3 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*e-4*yDim,x-xDim,y*e-2*yDim,xLoch,
y*e,xLoch,y*e-yDim,0,y*e-yDim);
   Locus(0,0);
EndSweep;
      Wx:=10;Wy:=180;Wz:=0;Höhe:=4;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*8
+(sin(Wxe/180*3.1416)*sin(Wye/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*8)+((cos(Wxe/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*8
+(sin(Wxe/180*3.1416)*cos(Wye/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------5 an 3 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*f-4*yDim,x-xDim,y*f-2*yDim,xLoch,y*f,xLoch,y*f-yDim,0,y*f-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;Wy:=180;Wz:=0;Höhe:=5;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*8
+(sin(Wxe/180*3.1416)*sin(Wye/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*8)+((cos(Wxe/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*8
+(sin(Wxe/180*3.1416)*cos(Wye/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------Grundplatte_01-------------------------------------------}
BeginXtrd(0,4);
Rect(0,-20,12,2);
EndXtrd;
Rotate3D(90,0,0);
Move3D(-10,2,12);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------Grundplatte_-01-------------------------------------------}
BeginXtrd(0,2);
Rect(0,-30,20,2);
EndXtrd;
Rotate3D(90,0,0);
Move3D(-15,0,17);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------fünf_minus-------------------------------------------}
   x:=2;
   xDim:=0.5;
   xLoch:=0.4;
   y:=18;
   yDim:=0.5;

BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,-2,x-xDim,-2,x-xDim,y-4*yDim,x-2*xDim,y-3*yDim,xLoch,y-yDim+0.1,0,y+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wxd:=70;   Wyd:=-10;   Wzd:=0;
Rotate3D(Wxd,Wyd,Wzd);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------smaller-------------------------------------------}
   x:=1;
   xDim:=0.3;
   xLoch:=0.2;
   y:=15;
   yDim:=0.3;
{----------------------------1 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*c-4*yDim,x-2*xDim,y*c-3*yDim,xLoch,y*c-yDim+0.1,0,y*c+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;   Wy:=45;   Wz:=0;   Höhe:=8;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------2 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*d-4*yDim,x-2*xDim,y*d-3*yDim,xLoch,
y*d-yDim+0.1,0,y*d+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;   Wy:=60;   Wz:=0;   Höhe:=6;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------3 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*b-4*yDim,x-2*xDim,y*b-3*yDim,xLoch,
y*b-yDim+0.1,0,y*b+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wxe:=30;   Wye:=-90;   Wze:=0;   Höhe:=8.5;
Rotate3D(Wxe,Wye,Wze);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------4 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*d-4*yDim,x-2*xDim,y*d-3*yDim,xLoch,
y*d-yDim+0.1,0,y*d+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;   Wy:=200;   Wz:=0;   Höhe:=12;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------5 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*e-4*yDim,x-2*xDim,y*e-3*yDim,xLoch,
y*e-yDim+0.1,0,y*e+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=10;   Wy:=180;   Wz:=0;   Höhe:=11;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------6 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*d-4*yDim,x-2*xDim,y*d-3*yDim,xLoch,
y*d-yDim+0.1,0,y*d+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;   Wy:=180;   Wz:=0;   Höhe:=14;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------7 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*g-4*yDim,x-2*xDim,y*g-3*yDim,
xLoch,y*g-yDim+0.1,0,y*g+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wxg:=60;   Wyg:=-50;   Wzg:=0;   Höhe:=11;
Rotate3D(Wxg,Wyg,Wzg);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------8 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*c-4*yDim,x-2*xDim,
y*c-3*yDim,xLoch,y*c-yDim+0.1,0,y*c+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=20;   Wy:=90;   Wz:=0;   Höhe:=8;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------9 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*d-4*yDim,x-2*xDim,
y*d-3*yDim,xLoch,y*d-yDim+0.1,0,y*d+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;   Wy:=120;   Wz:=0;   Höhe:=6;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------10 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*b-4*yDim,
x-2*xDim,y*b-3*yDim,xLoch,y*b-yDim+0.1,0,y*b+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wxe:=30;   Wye:=-40;   Wze:=0;   Höhe:=8.5;
Rotate3D(Wxe,Wye,Wze);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------11 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*d-4*yDim,x-2*xDim,
y*d-3*yDim,xLoch,y*d-yDim+0.1,0,y*d+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;   Wy:=100;   Wz:=0;   Höhe:=12;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------12 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*e-4*yDim,x-2*xDim,
y*e-3*yDim,xLoch,y*e-yDim+0.1,0,y*e+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=10;   Wy:=90;   Wz:=0;   Höhe:=11;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------1 an 3 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*c-4*yDim,
x-2*xDim,y*c-3*yDim,xLoch,y*c-yDim+0.1,0,y*c+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;   Wy:=45;   Wz:=0;   Höhe:=1;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*8
+(sin(Wxe/180*3.1416)*sin(Wye/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*8)+((cos(Wxe/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*8
+(sin(Wxe/180*3.1416)*cos(Wye/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------2 an 3 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*d-4*yDim,x-2*xDim,y*d-3*yDim,xLoch,
y*d-yDim+0.1,0,y*d+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;   Wy:=60;   Wz:=0;   Höhe:=2;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*8
+(sin(Wxe/180*3.1416)*sin(Wye/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*8)+((cos(Wxe/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*8
+(sin(Wxe/180*3.1416)*cos(Wye/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------3 an 3 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*d-4*yDim,x-2*xDim,
y*d-3*yDim,xLoch,y*d-yDim+0.1,0,y*d+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;   Wy:=200;   Wz:=0;   Höhe:=3;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*8
+(sin(Wxe/180*3.1416)*sin(Wye/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*8)+((cos(Wxe/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*8
+(sin(Wxe/180*3.1416)*cos(Wye/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------4 an 3 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*e-4*yDim,x-2*xDim,y*e-3*yDim,
xLoch,y*e-yDim+0.1,0,y*e+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=10;   Wy:=180;   Wz:=0;   Höhe:=4;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*8
+(sin(Wxe/180*3.1416)*sin(Wye/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*8)+((cos(Wxe/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*8
+(sin(Wxe/180*3.1416)*cos(Wye/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------5 an 3 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*f-4*yDim,x-2*xDim,
y*f-3*yDim,xLoch,y*f-yDim+0.1,0,y*f+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;   Wy:=180;   Wz:=0;   Höhe:=5;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*8

+(sin(Wxe/180*3.1416)*sin(Wye/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*8)+((cos(Wxe/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*8
+(sin(Wxe/180*3.1416)*cos(Wye/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{-----------------------------eins_minus-----------------------------------}
BeginSweep(#90d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,-2,x-xDim,-2,x-xDim,y-4*yDim,
x-2*xDim,y-3*yDim,xLoch,y-yDim,0,y-yDim);
   Locus(0,0);
EndSweep;
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);

END;

RUN (sweep_02);

Part 03

PROCEDURE sweep_02;

VAR

   x:REAL;
   xDim:REAL;
   xLoch:REAL;
   y:REAL;
   yDim:REAL;
   a:REAL;
   b:REAL;
   c:REAL;
   d:REAL;
   e:REAL;
   f:REAL;
   g:REAL;
   {i:INTEGER;}
   Wx,Wy,Wz       :REAL;
   Wxb,Wyb,Wzb    :REAL;
   Wxc,Wyc,Wzc    :REAL;
   Wxd,Wyd,Wzd    :REAL;
   Wxe,Wye,Wze    :REAL;
   Wxf,Wyf,Wzf    :REAL;
   Wxg,Wyg,Wzg    :REAL;
   Höhe         :REAL;
   returnVal      :REAL;
   {numOfObj      :INTEGER;}
   obj1,obj2,newSolid :HANDLE;

BEGIN

   x:=1.3;
   xDim:=0.3;
   xLoch:=0.4;
   y:=15;
   yDim:=0.4;
   a:=0.7;
   b:=0.5;
   c:=0.3;
   d:=0.2;
   e:=0.4;
   f:=0.1;
   g:=0.85;

{----------------------------BIGGER-------------------------------------------}

   x:=2;
   xDim:=0.5;
   xLoch:=0.4;
   y:=18;
   yDim:=0.5;


      Wxd:=70;Wyd:=-10;Wzd:=0;

{----------------------------smaller-------------------------------------------}

   x:=1;
   xDim:=0.3;
   xLoch:=0.2;
   y:=15;
   yDim:=0.3;


{----------------------------7 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*g-4*yDim,x-xDim,y*g-2*yDim,
xLoch,y*g,xLoch,y*g-yDim,0,y*g-yDim);
   Locus(0,0);
EndSweep;
      Wxg:=60;Wyg:=-50;Wzg:=0;Höhe:=11;
Rotate3D(Wxg,Wyg,Wzg);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),
(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj1 := LObject;   
{----------------------------1 an 7 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*c-4*yDim,x-xDim,
y*c-2*yDim,xLoch,y*c,xLoch,y*c-yDim,0,y*c-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;   Wy:=45;   Wz:=0;   Höhe:=8;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)
+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(obj1,obj2,newSolid);
{----------------------------2 an 7 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*d-4*yDim,x-xDim,y*d-2*yDim,xLoch,
y*d,xLoch,y*d-yDim,0,y*d-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;   Wy:=60;   Wz:=0;   Höhe:=6;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------3 an 7 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*b-4*yDim,x-xDim,y*b-2*yDim,xLoch,y*b,
xLoch,y*b-yDim,0,y*b-yDim);
   Locus(0,0);
EndSweep;
      Wxe:=30;   Wye:=-90;   Wze:=0;   Höhe:=8.5;
Rotate3D(Wxe,Wye,Wze);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------4 an 7 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*d-4*yDim,x-xDim,y*d-2*yDim,xLoch,
y*d,xLoch,y*d-yDim,0,y*d-yDim);
   Locus(0,0);
EndSweep;   
      Wx:=45;   Wy:=-200;   Wz:=0;   Höhe:=10;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------5 an 7 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*e-4*yDim,x-xDim,y*e-2*yDim,xLoch,
y*e,xLoch,y*e-yDim,0,y*e-yDim);
   Locus(0,0);
EndSweep;
      Wx:=10;   Wy:=180;   Wz:=0;   Höhe:=9;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------6 an 7 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*d-4*yDim,x-xDim,y*d-2*yDim,xLoch,
y*d,xLoch,y*d-yDim,0,y*d-yDim);
   Locus(0,0);
EndSweep;
   Wx:=45;   Wy:=-180;   Wz:=0;   Höhe:=7;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------7 an 7 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*d-4*yDim,x-xDim,y*d-2*yDim,xLoch,
y*d,xLoch,y*d-yDim,0,y*d-yDim);
   Locus(0,0);
EndSweep;
      Wxf:=70;   Wyf:=260;   Wzf:=0;   Höhe:=9;
Rotate3D(Wxf,Wyf,Wzf);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------8 an 7 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*c-4*yDim,x-xDim,y*c-2*yDim,xLoch,
y*c,xLoch,y*c-yDim,0,y*c-yDim);
   Locus(0,0);
EndSweep;
      Wx:=20;   Wy:=90;   Wz:=0;
Höhe:=8;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------9 an 7 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*d-4*yDim,x-xDim,y*d-2*yDim,
xLoch,y*d,xLoch,y*d-yDim,0,y*d-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;   Wy:=120;   Wz:=0;   Höhe:=6;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------10 an 7 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*b-4*yDim,x-xDim,y*b-2*yDim,xLoch,
y*b,xLoch,y*b-yDim,0,y*b-yDim);
   Locus(0,0);
EndSweep;
      Wxe:=30;Wye:=-40;Wze:=0;Höhe:=8.5;
Rotate3D(Wxe,Wye,Wze);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------11 an 7 an fünf-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x,0,x,y*d-4*yDim,x-xDim,y*d-2*yDim,xLoch,y*d,
xLoch,y*d-yDim,0,y*d-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;Wy:=250;Wz:=0;Höhe:=7;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=AddSolid(newSolid,obj2,newSolid);
{----------------------------7 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*g-4*yDim,x-2*xDim,
y*g-3*yDim,xLoch,y*g-yDim+0.1,0,y*g+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wxg:=60;Wyg:=-50;Wzg:=0;Höhe:=11;
Rotate3D(Wxg,Wyg,Wzg);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*Höhe,
((cos(Wxd/180*3.1416))*Höhe),(sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------1 an 7 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*c-4*yDim,x-2*xDim,
y*c-3*yDim,xLoch,y*c-yDim+0.1,0,y*c+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;   Wy:=45;   Wz:=0;   Höhe:=8;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------2 an 7 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*d-4*yDim,x-2*xDim,y*d-3*yDim,
xLoch,y*d-yDim+0.1,0,y*d+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;      Wy:=60;      Wz:=0;   Höhe:=6;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------3 an 7 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*b-4*yDim,x-2*xDim,y*b-3*yDim,xLoch,
y*b-yDim+0.1,0,y*b+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wxe:=30;   Wye:=-90;   Wze:=0;   Höhe:=8.5;
Rotate3D(Wxe,Wye,Wze);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------4 an 7 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*d-4*yDim,x-2*xDim,
y*d-3*yDim,xLoch,y*d-yDim+0.1,0,y*d+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;      Wy:=-200;   Wz:=0;   Höhe:=10;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------5 an 7 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*e-4*yDim,x-2*xDim,
y*e-3*yDim,xLoch,y*e-yDim+0.1,0,y*e+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=10;      Wy:=180;   Wz:=0;   Höhe:=9;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------6 an 7 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*d-4*yDim,x-2*xDim,y*d-3*yDim,
xLoch,y*d-yDim+0.1,0,y*d+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;      Wy:=-180;   Wz:=0;   Höhe:=7;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------7 an 7 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*d-4*yDim,x-2*xDim,
y*d-3*yDim,xLoch,y*d-yDim+0.1,0,y*d+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wxf:=70;   Wyf:=260;   Wzf:=0;   Höhe:=9;
Rotate3D(Wxf,Wyf,Wzf);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------8 an 7 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*c-4*yDim,x-2*xDim,y*c-3*yDim,
xLoch,y*c-yDim+0.1,0,y*c+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=20;   Wy:=90;   Wz:=0;   Höhe:=8;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------9 an 7 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*d-4*yDim,x-2*xDim,y*d-3*yDim,xLoch,
y*d-yDim+0.1,0,y*d+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;   Wy:=120;   Wz:=0;   Höhe:=6;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
   ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
   (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);

{----------------------------10 an 7 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*b-4*yDim,x-2*xDim,y*b-3*yDim,
xLoch,y*b-yDim+0.1,0,y*b+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wxe:=30;Wye:=-40;Wze:=0;Höhe:=8.5;
Rotate3D(Wxe,Wye,Wze);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------11 an 7 an fünf_minus-------------------------------------------}
BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,0,x-xDim,0,x-xDim,y*d-4*yDim,x-2*xDim,y*d-3*yDim,xLoch,
y*d-yDim+0.1,0,y*d+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wx:=45;Wy:=250;Wz:=0;Höhe:=7;
Rotate3D(Wx,Wy,Wz);
Move3D((sin(Wxd/180*3.1416)*sin(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*sin(Wyg/180*3.1416))*Höhe,
      ((cos(Wxd/180*3.1416))*11)+((cos(Wxg/180*3.1416))*Höhe),
      (sin(Wxd/180*3.1416)*cos(Wyd/180*3.1416))*11
+(sin(Wxg/180*3.1416)*cos(Wyg/180*3.1416))*Höhe);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);
{----------------------------fünf_minus-------------------------------------------}
   x:=2;
   xDim:=0.5;
   xLoch:=0.4;
   y:=18;
   yDim:=0.5;

BeginSweep(#10d,#360d,#10d,0');
Smooth(3);
   ClosePoly;
   Poly(0,-2,x-xDim,-2,x-xDim,y-4*yDim,x-2*xDim,y-3*yDim,
xLoch,y-yDim+0.1,0,y+0.1-yDim);
   Locus(0,0);
EndSweep;
      Wxd:=70;   Wyd:=-10;   Wzd:=0;
Rotate3D(Wxd,Wyd,Wzd);
   obj2 := LObject;   returnVal :=subtractSolid(newSolid,obj2,newSolid);


END;

RUN (sweep_02);
__________________________________________________________________________________________________________________________________________________________