home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / USCX / TPSPRITE.ZIP / DEMO2.PAS < prev    next >
Pascal/Delphi Source File  |  1986-02-15  |  3KB  |  67 lines
  1.  
  2.     (* ************************************************************ *)
  3.     (*                                                              *)
  4.     (*  This program shows how rapidly a chemical structure may be  *)
  5.     (*  assembled from sprites and displayed. The entire structure  *)
  6.     (*  is assembled in the workbuffer and then displayed by trans- *)
  7.     (*  ferring the workbuffer array to the colorbuffer.            *)
  8.     (*                                                              *)
  9.     (*                          (c) Donald L. Pavia                 *)
  10.     (*    Ver 2.0               Department of Chemistry             *)
  11.     (*    February 1986         Western Washington University       *)
  12.     (*                          Bellingham, Washington 98225        *)
  13.     (*                                                              *)
  14.     (* ************************************************************ *)
  15.  
  16.  
  17. program SpriteDemo2;
  18.  
  19. {----------------------------------------------------------------------------}
  20. {$I Sprites.Lib}
  21. {----------------------------------------------------------------------------}
  22.  
  23. BEGIN
  24.      clrscr;
  25.      GraphColorMode; GraphBackGround (1); Palette (0);
  26.  
  27.      WorkBuffer := ColorBuffer;
  28.      TextColor (3);
  29.      gotoxy  (5,5); write ('Display of Chemical Sprites');
  30.      TextColor (1);
  31.      gotoxy (5,21); write ('Donald Pavia, December 1985');
  32.  
  33.      LoadTable ('Demo2.tab');
  34.  
  35. REPEAT
  36.  
  37.      TextColor (2);
  38.      gotoxy (12,14); write ('Press <ENTER> ');
  39.      TextColor (3);
  40.      read (kbd,Wait);       { procedure Spwrite is found in sprites.inc -  }
  41.                             { passed vars are (spritenumber,xcoord,ycoord) }
  42.                             { - writes to workbuffer                       }
  43.  
  44.           Spwrite (15,140,68);  Spwrite (16,136,74);
  45.           Spwrite (14,140,82);  Spwrite (2,140,96);   Spwrite (11,120,100);
  46.           Spwrite (10,92,98);   Spwrite (9,64,98);    Spwrite (7,116,116);
  47.           Spwrite (20,148,94);  Spwrite (18,168,98);  Spwrite (20,180,94);
  48.           Spwrite (11,200,100); Spwrite (17,200,118); Spwrite (17,228,98);
  49.  
  50.           Show; Delay (1200);                   { Show displays workbuffer }
  51.  
  52.      gotoxy (8,5); write ('Repeat Again ? Y/N ?  ');
  53.      repeat
  54.           read (Kbd,Again);
  55.      until UpCase(Again) in ['Y','N'];
  56.  
  57.  
  58.      FillChar (WorkBuffer,16383,0);                    { erase everything }
  59.      FillChar (ColorBuffer,16383,0);
  60.  
  61. UNTIL UpCase(Again) = 'N';
  62.  
  63.      gotoxy (1,23);
  64.      TextMode (c80); clrscr;                             { exit gracefully }
  65.  
  66. END.
  67.