home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PCGPEV10.ZIP / TUT6.TXT < prev    next >
Text File  |  1994-05-05  |  17KB  |  435 lines
  1.  
  2.                    ╒═══════════════════════════════╕
  3.                    │         W E L C O M E         │
  4.                    │  To the VGA Trainer Program   │ │
  5.                    │              By               │ │
  6.                    │      DENTHOR of ASPHYXIA      │ │ │
  7.                    ╘═══════════════════════════════╛ │ │
  8.                      ────────────────────────────────┘ │
  9.                        ────────────────────────────────┘
  10.  
  11.                            --==[ PART 6 ]==--
  12.  
  13.  
  14.  
  15. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  16. ■ Introduction
  17.  
  18. Hi there! I'm back, with the latest part in the series : Pregenerated
  19. arrays. This is a fairly simple concept that can treble the speed of
  20. your code, so have a look.
  21.  
  22. I still suggest that if you haven't got a copy of TEXTER that you get it.
  23. This is shareware, written by me, that allows you to grab fonts and use
  24. them in your own programs.
  25.  
  26. I downloaded the Friendly City BBS Demo, an intro for a PE BBS, written
  27. by a new group called DamnRite, with coder Brett Step. The music was
  28. excellent, written by Kon Wilms (If I'm not mistaken, he is an Amiga
  29. weenie ;-)). A very nice first production, and I can't wait to see more
  30. of their work. I will try con a local BBS to allow me to send Brett some
  31. fido-mail.
  32.  
  33. If you would like to contact me, or the team, there are many ways you
  34. can do it : 1) Write a message to Grant Smith in private mail here on
  35.                   the Mailbox BBS.
  36.             2) Write a message here in the Programming conference here
  37.                   on the Mailbox (Preferred if you have a general
  38.                   programming query or problem others would benefit from)
  39.             3) Write to ASPHYXIA on the ASPHYXIA BBS.
  40.             4) Write to Denthor, Eze or Livewire on Connectix.
  41.             5) Write to :  Grant Smith
  42.                            P.O.Box 270 Kloof
  43.                            3640
  44.                            Natal
  45.             6) Call me (Grant Smith) at (031) 73 2129 (leave a message if you
  46.                   call during varsity)
  47.  
  48. NB : If you are a representative of a company or BBS, and want ASPHYXIA
  49.        to do you a demo, leave mail to me; we can discuss it.
  50. NNB : If you have done/attempted a demo, SEND IT TO ME! We are feeling
  51.         quite lonely and want to meet/help out/exchange code with other demo
  52.         groups. What do you have to lose? Leave a message here and we can work
  53.         out how to transfer it. We really want to hear from you!
  54.  
  55.  
  56. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  57. ■  Why do I need a lookup table? What is it?
  58.  
  59. A lookup table is an imaginary table in memory where you look up the
  60. answers to certain mathematical equations instead of recalculating them
  61. each time. This may speed things up considerably. Please note that a
  62. lookup table is sometimes referred to as a pregenerated array.
  63.  
  64. One way of looking at a lookup table is as follows : Let us say that for
  65. some obscure reason you need to calculate a lot of multiplications (eg.
  66. 5*5 , 7*4 , 9*2 etc.). Instead of actually doing a slow multiply each
  67. time, you can generate a kind of bonds table, as seen below :
  68.  
  69.  
  70. ╔═╤═╦═══════╤══════╤══════╤══════╤══════╤══════╤══════╤══════╤══════╗
  71. ╟─┼─╢   1   │  2   │  3   │  4   │  5   │  6   │  7   │  8   │  9   ║
  72. ╟─┴─╫═══════╪══════╪══════╪══════╪══════╪══════╪══════╪══════╪══════╡
  73. ║ 1 ║   1   │  2   │  3   │  4   │  5   │  6   │  7   │  8   │  9   │
  74. ╟───╫───────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
  75. ║ 2 ║   2   │  4   │  6   │  8   │  10  │  12  │  14  │  16  │  18  │
  76. ╟───╫───────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
  77. ║ 3 ║   3   │  6   │  9   │  12  │  15  │  18  │  21  │  24  │  27  │
  78. ╟───╫───────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
  79. ║ 4 ║   4   │  8   │  12  │  16  │  20  │  24  │  28  │  32  │  36  │
  80. ╟───╫───────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
  81. ║ 5 ║   5   │  10  │  15  │  20  │  25  │  30  │  35  │  40  │  45  │
  82. ╟───╫───────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
  83. ║ 6 ║   6   │  12  │  18  │  24  │  30  │  36  │  42  │  48  │  54  │
  84. ╟───╫───────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
  85. ║ 7 ║   7   │  14  │  21  │  28  │  35  │  42  │  49  │  56  │  63  │
  86. ╟───╫───────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
  87. ║ 8 ║   8   │  16  │  24  │  32  │  40  │  48  │  56  │  64  │  72  │
  88. ╟───╫───────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┼──────┤
  89. ║ 9 ║   9   │  18  │  27  │  36  │  45  │  54  │  63  │  72  │  81  │
  90. ╚═══╩───────┴──────┴──────┴──────┴──────┴──────┴──────┴──────┴──────┘
  91.  
  92. This means that instead of calculating 9*4, you just find the 9 on the
  93. top and the 4 on the side, and the resulting number is the answer.  This
  94. type of table is very useful when the equations are very long to do.
  95.  
  96. The example I am going to use for this part is that of circles. Cast
  97. your minds back to Part 3 on lines and circles. The circle section took
  98. quite a while to finish drawing, mainly because I had to calculate the
  99. SIN and COS for EVERY SINGLE POINT. Calculating SIN and COS is obviously
  100. very slow, and that was reflected in the speed of the section.
  101.  
  102.  
  103.  
  104. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  105. ■  How do I generate a lookup table?
  106.  
  107. This is very simple. In my example, I am drawing a circle. A circle has
  108. 360 degrees, but for greater accuracy, to draw my circle I will start
  109. with zero and increase my degrees by 0.4. This means that in each circle
  110. there need to be 8000 SINs and COSes (360/0.4=8000). Putting these into
  111. the base 64k that Pascal allocates for normal variables is obviously not
  112. a happening thing, so we define them as pointers in the following
  113. manner: 
  114.         TYPE   table = Array [1..8000] of real;
  115.  
  116.         VAR    sintbl : ^table;
  117.                costbl : ^table;
  118.  
  119. Then in the program we get the memory for these two pointers. Asphyxia 
  120. was originally thinking of calling itself Creative Reboot Inc., mainly 
  121. because we always forgot to get the necessary memory for our pointers.
  122. (Though a bit of creative assembly coding also contributed to this. We
  123. wound up rating our reboots on a scale of 1 to 10 ;-)). The next obvious
  124. step is to place our necessary answers into our lookup tables.  This can
  125. take a bit of time, so in a demo, you would do it in the very beginning
  126. (people just think it's slow disk access or something), or after you
  127. have shown a picture (while the viewer is admiring it, you are
  128. calculating pi to its 37th degree in the background ;-)) Another way of
  129. doing it is, after calculating it once, you save it to a file which you
  130. then load into the variable at the beginning of the program. Anyway,
  131. this is how we will calculate the table for our circle :
  132.  
  133.     Procedure Setup;
  134.     VAR deg:real;
  135.     BEGIN
  136.       deg:=0;
  137.       for loop1:=1 to 8000 do BEGIN
  138.         deg:=deg+0.4;
  139.         costbl^[loop1]:=cos (rad(deg));
  140.         sintbl^[loop1]:=sin (rad(deg));
  141.       END;
  142.     END;
  143.  
  144. This will calculate the needed 16000 reals and place them into our two
  145. variables. The amount of time this takes is dependant on your computer.
  146.  
  147.  
  148. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  149. ■  How do I use a lookup table?
  150.  
  151. This is very easy. In your program, wherever you put
  152.                cos (rad(deg)),
  153. you just replace it with :
  154.                costbl^[deg]
  155.  
  156. Easy, no? Note that the new "deg" variable is now an integer, always
  157. between 1 and 8000.
  158.  
  159.  
  160. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  161. ■ Where else do I use lookup tables?
  162.  
  163. Lookup tables may be used in many different ways. For example, when
  164. working out 3-dimensional objects, sin and cos are needed often, and are
  165. best put in a lookup table. In a game, you may pregen the course an
  166. enemy may take when attacking. Even saving a picture (for example, a
  167. plasma screen) after generating it, then loading it up later is a form
  168. of pregeneration.
  169.  
  170. When you feel that your program is going much too slow, your problems
  171. may be totally sorted out by using a table. Or, maybe not. ;-)
  172.  
  173.  
  174. =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  175. ■  In closing
  176.  
  177. As you have seen above, lookup tables aren't all that exciting, but they
  178. are useful and you need to know how to use them. The attached sample
  179. program will demonstrate just how big a difference they can make.
  180.  
  181. Keep on coding, and if you finish anything, let me know about it! I
  182. never get any mail, so all mail is greatly appreciated ;-)
  183.  
  184. Sorry, no quote today, it's hot and I'm tired. Maybe next time ;-)
  185.  
  186.   - Denthor
  187.  
  188.  
  189. ┌──────────────┬─────────────────────────────────────────────────────────────
  190. │ TUTPROG6.PAS │
  191. └──────────────┘
  192.  
  193. {$X+}
  194. USES crt;
  195.  
  196. CONST VGA = $a000;
  197.  
  198. TYPE tbl = Array [1..8000] of real;
  199.              { This will be the shape of the 'table' where we look up
  200.                values, which is faster then calculating them }
  201.  
  202. VAR loop1:integer;
  203.     Pall : Array [1..20,1..3] of byte;
  204.       { This is our temporary pallette. We ony use colors 1 to 20, so we
  205.         only have variables for those ones. }
  206.  
  207. {──────────────────────────────────────────────────────────────────────────}
  208. Procedure SetMCGA;  { This procedure gets you into 320x200x256 mode. }
  209. BEGIN
  210.   asm
  211.      mov        ax,0013h
  212.      int        10h
  213.   end;
  214. END;
  215.  
  216.  
  217. {──────────────────────────────────────────────────────────────────────────}
  218. Procedure SetText;  { This procedure returns you to text mode.  }
  219. BEGIN
  220.   asm
  221.      mov        ax,0003h
  222.      int        10h
  223.   end;
  224. END;
  225.  
  226. {──────────────────────────────────────────────────────────────────────────}
  227. Procedure Cls (Col : Byte);
  228.    { This clears the screen to the specified color }
  229. BEGIN
  230.   Fillchar (Mem [VGA:0],64000,col);
  231. END;
  232.  
  233.  
  234. {──────────────────────────────────────────────────────────────────────────}
  235. Procedure Putpixel (X,Y : Integer; Col : Byte);
  236.   { This puts a pixel on the screen by writing directly to memory. }
  237. BEGIN
  238.   Mem [VGA:X+(Y*320)]:=Col;
  239. END;
  240.  
  241.  
  242. {──────────────────────────────────────────────────────────────────────────}
  243. procedure WaitRetrace; assembler;
  244.   {  This waits for a vertical retrace to reduce snow on the screen }
  245. label
  246.   l1, l2;
  247. asm
  248.     mov dx,3DAh
  249. l1:
  250.     in al,dx
  251.     and al,08h
  252.     jnz l1
  253. l2:
  254.     in al,dx
  255.     and al,08h
  256.     jz  l2
  257. end;
  258.  
  259.  
  260. {──────────────────────────────────────────────────────────────────────────}
  261. Procedure Pal(ColorNo : Byte; R,G,B : Byte);
  262.   { This sets the Red, Green and Blue values of a certain color }
  263. Begin
  264.    Port[$3c8] := ColorNo;
  265.    Port[$3c9] := R;
  266.    Port[$3c9] := G;
  267.    Port[$3c9] := B;
  268. End;
  269.  
  270.  
  271. {──────────────────────────────────────────────────────────────────────────}
  272. Function rad (theta : real) : real;
  273.   {  This calculates the degrees of an angle }
  274. BEGIN
  275.   rad := theta * pi / 180
  276. END;
  277.  
  278.  
  279.  
  280. {──────────────────────────────────────────────────────────────────────────}
  281. Procedure NormCirc;
  282.   { This generates a spireal without using a lookup table }
  283. VAR deg,radius:real;
  284.     x,y:integer;
  285.  
  286. BEGIN
  287.   gotoxy (1,1);
  288.   Writeln ('Without pregenerated arrays.');
  289.   for loop1:=60 downto 43 do BEGIN
  290.     deg:=0;
  291.     radius:=loop1;
  292.     repeat
  293.       X:=round(radius*COS (rad (deg)));
  294.       Y:=round(radius*sin (rad (deg)));
  295.       putpixel (x+160,y+100,61-loop1);
  296.       deg:=deg+0.4;           { Increase the degree so the circle is round }
  297.       radius:=radius-0.02;    { Decrease the radius for a spiral effect }
  298.     until radius<0; {  Continue till at the centre (the radius is zero) }
  299.   END;
  300. END;
  301.  
  302.  
  303. {──────────────────────────────────────────────────────────────────────────}
  304. Procedure LookupCirc;
  305.   {  This draws a spiral using a lookup table }
  306. VAR radius:real;
  307.     x,y,pos:integer;
  308.     costbl : ^tbl;
  309.     sintbl : ^tbl;
  310.  
  311.     Procedure Setupvars;
  312.       {  This is a nested procedure (a procedure in a procedure), and may
  313.          therefore only be used from within the main part of this procedure.
  314.          This section gets the memory for the table, then generates the
  315.          table. }
  316.     VAR deg:real;
  317.     BEGIN
  318.       getmem (costbl,sizeof(costbl^));
  319.       getmem (sintbl,sizeof(sintbl^));
  320.       deg:=0;
  321.       for loop1:=1 to 8000 do BEGIN         { There are 360 degrees in a    }
  322.         deg:=deg+0.4;                       { circle. If you increase the   }
  323.         costbl^[loop1]:=cos (rad(deg));     { degrees by 0.4, the number of }
  324.         sintbl^[loop1]:=sin (rad(deg));     { needed parts of the table is  }
  325.       END;                                  { 360/0.4=8000                  }
  326.     END;
  327.     { NB : For greater accuracy I increase the degrees by 0.4, because if I
  328.            increase them by one, holes are left in the final product as a
  329.            result of the rounding error margin. This means the pregen array
  330.            is bigger, takes up more memory and is slower to calculate, but
  331.            the finished product looks better.}
  332.  
  333. BEGIN
  334.   cls (0);
  335.   gotoxy (1,1);
  336.   Writeln ('Generating variables....');
  337.   setupvars;
  338.   gotoxy (1,1);
  339.   Writeln ('With pregenerated arrays.');
  340.   for loop1:=60 downto 43 do BEGIN
  341.     pos:=1;
  342.     radius:=loop1;
  343.     repeat
  344.       X:=round (radius*costbl^[pos]);   { Note how I am not recalculating sin}
  345.       Y:=round (radius*sintbl^[pos]);   { and cos for each point.            }
  346.       putpixel (x+160,y+100,61-loop1);
  347.       radius:=radius-0.02;
  348.       inc (pos);
  349.       if pos>8000 then pos:=1;    { I only made a table from 1 to 8000, so it}
  350.                                   { must never exceed that, or the program   }
  351.                                   { will probably crash.                     }
  352.     until radius<0;
  353.   END;
  354.   freemem (costbl,sizeof(costbl^));   { Freeing the memory taken up by the   }
  355.   freemem (sintbl,sizeof(sintbl^));   { tables. This is very important.      }
  356. END;
  357.  
  358.  
  359. {──────────────────────────────────────────────────────────────────────────}
  360. Procedure PalPlay;
  361.   { This procedure mucks about with our "virtual pallette", then shoves it
  362.     to screen. }
  363. Var Tmp : Array[1..3] of Byte;
  364.   { This is used as a "temporary color" in our pallette }
  365.     loop1 : Integer;
  366. BEGIN
  367.    Move(Pall[1],Tmp,3);
  368.      { This copies color 1 from our virtual pallette to the Tmp variable }
  369.    Move(Pall[2],Pall[1],18*3);
  370.      { This moves the entire virtual pallette down one color }
  371.    Move(Tmp,Pall[18],3);
  372.      { This copies the Tmp variable to no. 18 of the virtual pallette }
  373.    WaitRetrace;
  374.    For loop1:=1 to 18 do
  375.      pal (loop1,pall[loop1,1],pall[loop1,2],pall[loop1,3]);
  376. END;
  377.  
  378.  
  379. BEGIN
  380.   ClrScr;
  381.   writeln ('Hi there! This program will demonstrate the usefullness of ');
  382.   writeln ('pregenerated arrays, also known as lookup tables. The program');
  383.   writeln ('will first draw a spiral without using a lookup table, rotate');
  384.   writeln ('the pallette until a key is pressed, the calculate the lookup');
  385.   writeln ('table, then draw the same spiral using the lookup table.');
  386.   writeln;
  387.   writeln ('This is merely one example for the wide range of uses of a ');
  388.   writeln ('lookup table.');
  389.   writeln;
  390.   writeln;
  391.   Write ('  Hit any key to contine ...');
  392.   Readkey;
  393.   setmcga;
  394.   directvideo:=FALSE;  { This handy trick allows you to use GOTOXY and }
  395.                        { Writeln in GFX mode. Hit CTRL-F1 on it for more }
  396.                        { info/help }
  397.   For Loop1 := 1 to 18 do BEGIN
  398.     Pall[Loop1,1] := (Loop1*3)+9;
  399.     Pall[Loop1,2] := 0;
  400.     Pall[Loop1,3] := 0;
  401.   END;
  402.        { This sets colors 1 to 18 to values between 12 to 63. }
  403.  
  404.    WaitRetrace;
  405.    For loop1:=1 to 18 do
  406.      pal (loop1,pall[loop1,1],pall[loop1,2],pall[loop1,3]);
  407.         { This sets the true pallette to variable Pall }
  408.  
  409.   normcirc;         { This draws a spiral without lookups }
  410.   Repeat
  411.     PalPlay;
  412.   Until keypressed;
  413.   readkey;
  414.   lookupcirc;       { This draws a spiral with lookups }
  415.   Repeat
  416.     PalPlay;
  417.   Until keypressed;
  418.   Readkey;
  419.  
  420.   SetText;
  421.   Writeln ('All done. This concludes the sixth sample program in the ASPHYXIA');
  422.   Writeln ('Training series. You may reach DENTHOR under the name of GRANT');
  423.   Writeln ('SMITH on the MailBox BBS, or leave a message to ASPHYXIA on the');
  424.   Writeln ('ASPHYXIA BBS. I am also an avid Connectix BBS user.');
  425.   Writeln ('Get the numbers from Roblist, or write to :');
  426.   Writeln ('             Grant Smith');
  427.   Writeln ('             P.O. Box 270');
  428.   Writeln ('             Kloof');
  429.   Writeln ('             3640');
  430.   Writeln ('I hope to hear from you soon!');
  431.   Writeln; Writeln;
  432.   Write   ('Hit any key to exit ...');
  433.   Readkey;
  434. END.
  435.