home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / ML_VECTB.ZIP / UTILS / MKFORM7.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-03-10  |  1.6 KB  |  78 lines
  1. uses dosio;
  2. var
  3.   coord:array[0..60] of record x,y,z:integer end;
  4.   max:word;
  5.   f:file;
  6.  
  7. Procedure BuildForm;
  8. var a:integer;
  9. begin
  10.   max:=0;
  11.   for a:=0 to 2 do begin
  12.     with coord[max] do begin
  13.       x:=-24+a*24; y:=0; z:=3*24;
  14.     end;
  15.     inc(max);
  16.     with coord[max] do begin
  17.       x:=-24+a*24; y:=0; z:=-3*24;
  18.     end;
  19.     inc(max);
  20.     with coord[max] do begin
  21.       z:=-24+a*24; y:=0; x:=-3*24;
  22.     end;
  23.     inc(max);
  24.     with coord[max] do begin
  25.       z:=-24+a*24; y:=0; x:=3*24;
  26.     end;
  27.     inc(max);
  28.   end;
  29.   for a:=0 to 1 do begin
  30.     with coord[max] do begin
  31.       x:=-2*24+a*24; y:=0; z:=24;
  32.     end;
  33.     inc(max);
  34.     with coord[max] do begin
  35.       x:=-2*24+a*24; y:=0; z:=-24;
  36.     end;
  37.     inc(max);
  38.     with coord[max] do begin
  39.       x:=24+a*24; y:=0; z:=-24;
  40.     end;
  41.     inc(max);
  42.     with coord[max] do begin
  43.       x:=24+a*24; y:=0; z:=24;
  44.     end;
  45.     inc(max);
  46.     with coord[max] do begin
  47.       x:=-24+a*2*24; y:=0; z:=2*24;
  48.     end;
  49.     inc(max);
  50.     with coord[max] do begin
  51.       x:=-24+a*2*24; y:=0; z:=-2*24;
  52.     end;
  53.     inc(max);
  54.   end;
  55.   for a:=0 to 11 do begin
  56.     with coord[max] do begin
  57.       x:=trunc(80{?}*cos(2*pi*a/12));
  58.       z:=trunc(80{?}*sin(2*pi*a/12));
  59.       y:=80;
  60.     end;
  61.     inc(max);
  62.     with coord[max] do begin
  63.       x:=trunc(80{?}*cos(2*pi*a/12));
  64.       z:=trunc(80{?}*sin(2*pi*a/12));
  65.       y:=-80;
  66.     end;
  67.     inc(max);
  68.   end;
  69. end;
  70.  
  71. begin
  72.   Writeln('Making figure ...');
  73.   openforoutput(f,'_cross.bal','');
  74.   BuildForm;
  75.   blockwrite(f,max,2);  { Nr of points in the 3D form }
  76.   blockwrite(f,coord,max*3*2);
  77.   closefile(f,'');
  78. end.