home *** CD-ROM | disk | FTP | other *** search
/ ftp.dds.no / ftp.dds.no.tar / ftp.dds.no / pub / Customers / sys-js.txt / HcsAkvaterm.js next >
Text File  |  2014-05-13  |  3KB  |  85 lines
  1. function DdsScript.Draw()
  2. {
  3.   var
  4.   d_Diameter = GdpVariable.Get(11),        // ╪ / with contiune duct - top level (d)
  5.   d_With = GdpVariable.Get(12),     // height continue duct - top level (c)
  6.   d_Heigh = GdpVariable.Get(13),     // ╪ / with bottom level (h)
  7.   i_ConnectDim = 40,
  8.   endVar;
  9.   // Pipe dimensions
  10.   if(d_Diameter < 700)
  11.     i_ConnectDim = 40;
  12.   else if(d_Diameter < 1000)
  13.     i_ConnectDim = 65;
  14.   else if(d_Diameter < 1100)
  15.     i_ConnectDim = 100;
  16.   else if(d_Diameter < 1300)
  17.     i_ConnectDim = 125;
  18.   else if(d_Diameter < 1500)
  19.     i_ConnectDim = 150;
  20.   else 
  21.     i_ConnectDim = 200;
  22.   with(DdsDraw){
  23.     switch(Type()){
  24.       case 1:
  25.       Circle(d_Diameter *.4);
  26.       Circle(d_Diameter *.5);
  27.       break;
  28.       default:
  29.       TransfPush();
  30.       Cylinder(d_Diameter *.4, d_Heigh *.05, true, true);
  31.       TranslateXYZ(0, 0 , d_Heigh *.05);
  32.       Cylinder(d_Diameter *.5, d_Heigh *.9, true, true);
  33.       TranslateXYZ(0, 0, d_Heigh*.9);
  34.       ConeCutOnTop(d_Diameter * .5, d_Diameter * .4, d_Heigh *.05, true, true);
  35.       TransfPop();
  36.       break;
  37.     }
  38.     // Connections
  39.  
  40.     //
  41.     TranslateXYZ(d_Diameter*.4, 0, d_Heigh * .1);
  42.     //    
  43.     if(GdpVariable.Get(55) < 3)
  44.       LineXYZ(0, 0, 0, (d_Diameter*.5 - d_Diameter*.4) * 2, 0, 0);
  45.     GdpCommand.Process("IP", 12, i_ConnectDim, 360, 0);
  46.     if(GdpVariable.Get(55) > 2){
  47.       RotateY(Math.PI*.5);
  48.       Cylinder(i_ConnectDim * .0005, (d_Diameter*.5 - d_Diameter*.4) * 2, false, false);
  49.       RotateY(-Math.PI*.5);
  50.     }
  51.     //
  52.     TranslateXYZ(-d_Diameter*.8, 0, 0);
  53.     //
  54.     if(GdpVariable.Get(55) < 3)
  55.       LineXYZ(0, 0, 0, -(d_Diameter*.5 - d_Diameter*.4) * 2, 0, 0);
  56.     GdpCommand.Process("IP", 12, i_ConnectDim, 180, 0);
  57.     if(GdpVariable.Get(55) > 2){
  58.       RotateY(-Math.PI*.5);
  59.       Cylinder(i_ConnectDim * .0005, (d_Diameter*.5 - d_Diameter*.4) * 2, false, false);
  60.       RotateY(Math.PI*.5);
  61.     }
  62.     //
  63.     TranslateXYZ(0, 0, d_Heigh*.8);
  64.     //
  65.     if(GdpVariable.Get(55) < 3)
  66.       LineXYZ(0, 0, 0, -(d_Diameter*.5 - d_Diameter*.4) * 2, 0, 0);
  67.     GdpCommand.Process("IP", 11, i_ConnectDim, 180, 0);
  68.     if(GdpVariable.Get(55) > 2){
  69.       RotateY(-Math.PI*.5);
  70.       Cylinder(i_ConnectDim * .0005, (d_Diameter*.5 - d_Diameter*.4) * 2, false, false);
  71.       RotateY(Math.PI*.5);
  72.     }
  73.     //
  74.     TranslateXYZ(d_Diameter*.8, 0, 0);
  75.     //
  76.     if(GdpVariable.Get(55) < 3)
  77.       LineXYZ(0, 0, 0, (d_Diameter*.5 - d_Diameter*.4) * 2, 0, 0);
  78.     GdpCommand.Process("IP", 11, i_ConnectDim, 360, 0);
  79.     if(GdpVariable.Get(55) > 2){
  80.       RotateY(Math.PI*.5);
  81.       Cylinder(i_ConnectDim * .0005, (d_Diameter*.5 - d_Diameter*.4) * 2, false, false);
  82.       RotateY(-Math.PI*.5);
  83.     }
  84.   }
  85. }