home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / ML_3DROT.ZIP / SOURCES / FIG2.PAS < prev    next >
Pascal/Delphi Source File  |  1996-12-26  |  3KB  |  133 lines
  1. {
  2.   Example of using the 3D "engine", by Maple Leaf, 1996
  3.  
  4.   This code is freeware. If you find it useful, feel free to do whatever
  5.   you want with it, with only one condiion: give some small greetings to
  6.   Maple Leaf in your productions that use parts of it.
  7.  
  8.                                                         Maple Leaf, '96
  9.  
  10.   btw, I'm too lazy to write down kilos of comments...   :-)
  11. }
  12. uses xmode,crt,engine3d;
  13.  
  14. var a,b:word;
  15.     pal:array[byte] of record r,g,b:byte end;
  16.     capag,cvpag : word;
  17.     dd:integer;
  18.     coord:array[0..730] of record x,y,z:integer end;
  19.     RealMapping : Boolean;
  20.     ch:char;
  21.     MaxPnt:word;
  22.     RotStep,TiltStep:longint;
  23.  
  24. Procedure GenFig;
  25. var cnt,i,j,k:word;
  26. begin
  27.   cnt:=0;
  28.   for i:=0 to 6 do
  29.     for j:=0 to 6 do
  30.       for k:=0 to 6 do begin
  31.         with coord[cnt] do begin
  32.           x:=i shl 3-28;
  33.           y:=j shl 3-28;
  34.           z:=k shl 3-28;
  35.         end;
  36.         inc(cnt);
  37.       end;
  38.   MaxPnt:=cnt
  39. end;
  40.  
  41. Procedure PuneFig;
  42. var i:integer; cnt:word;
  43. begin
  44.   cnt:=0;
  45.   {xvwait;}
  46.   xclrvpage(capag);
  47.   for i:=0 to MaxPnt-1 do begin
  48.     _3dx:=coord[i].x+100;
  49.     _3dy:=coord[i].y;
  50.     _3dz:=coord[i].z+10;
  51.     asm
  52.        cmp RealMapping,1
  53.        je @1
  54.        call IntMapCoordinates
  55.        jmp @2
  56.     @1:call MapCoordinates
  57.     @2:
  58.     end;
  59.     xvplot(_2dx,_2dy,(i+2) shr 1,capag);
  60.   end;
  61. end;
  62.  
  63. Procedure IntroText;
  64. begin
  65.   Writeln('3D Figure, by Maple Leaf, 1996.');
  66.   Writeln(#13#10,' Hot keys are:'#13#10);
  67.   Writeln('   <M>     - Change mapping method (float/integer)');
  68.   Writeln('   <Left>  - Decrement horizontal speed of rotation');
  69.   Writeln('   <Right> - Increment horizontal speed of rotation');
  70.   Writeln('   <Up>    - Increment vertical speed of rotation');
  71.   Writeln('   <Down>  - Decrement vertical speed of rotation');
  72.   Writeln(#13#10'Press a key to start ...');
  73.   Readkey;
  74. end;
  75.  
  76. begin
  77.   ClrScr;
  78.   GenFig;
  79.   IntroText;
  80.   xinitvideo(0);
  81.   xclrvram;
  82.   for a:=1 to 255 do with pal[a] do begin
  83.     r:=Trunc(63*a/255);
  84.     g:=Trunc(40);
  85.     b:=Trunc(63-63*a/255);
  86.   end;
  87.   xsetpalette(@pal);
  88.   ZoomFactor:=500;
  89.   Perspective:=True;
  90.   SetObserverPosition(0,0,500);
  91.   SetAngles(0,0);
  92.   capag:=0;
  93.   cvpag:=3;
  94.   dd:=10;
  95.   RealMapping:=false;
  96.   RotStep:=2;
  97.   TiltStep:=3;
  98.   repeat
  99.    repeat
  100.  
  101.     xvwait;
  102.     xsetvpage(cvpag);
  103.  
  104.     RotAngle:=RotAngle+RotStep;
  105.     TiltAngle:=TiltAngle+TiltStep;
  106.     if RotAngle>359 then RotAngle:=360-RotAngle;
  107.     if RotAngle<0 then RotAngle:=360+RotAngle;
  108.     if TiltAngle>359 then TiltAngle:=360-TiltAngle;
  109.     if TiltAngle<0 then TiltAngle:=360+TiltAngle;
  110.     {SetAngles(RotAngle,TiltAngle);}
  111.  
  112.     PuneFig;
  113.  
  114.     inc(capag); if capag>3 then capag:=0;
  115.     inc(cvpag); if cvpag>3 then cvpag:=0;
  116.  
  117.    until keypressed;
  118.    ch:=readkey;
  119.    case UpCase(ch) of
  120.      'M': { Mapping mode } RealMapping:=not RealMapping;
  121.      #0: begin
  122.        ch:=readkey;
  123.        case ch of
  124.          #72: {Up}    inc(RotStep);
  125.          #80: {Down}  dec(RotStep);
  126.          #75: {Left}  dec(TiltStep);
  127.          #77: {Right} inc(TiltStep);
  128.        end;
  129.      end;
  130.    end;
  131.   until ch=#27;
  132.   textmode(25);
  133. end.