Category : Pascal Source Code
Archive   : SPRITES.ZIP
Filename : DEMO8.PAS

(* **************************************************************** *)
(* *)
(* SpriteDemo8 *)
(* *)
(* This short program shows you how to use the include files that *)
(* can be generated by designer.com. These files allow you to *)
(* "hard-code" the sprites directly in your program. This avoids *)
(* any need for external disk files and disk access. *)
(* *)
(* (c) Donald L. Pavia *)
(* Ver 1.0 Department of Chemistry *)
(* February 1986 Western Washington University *)
(* Bellingham, Washington 98225 *)
(* *)
(* **************************************************************** *)

{ this sprite constant was copied }
program Demo8; { from santa.inc using the ^KR }
{ editor directive - that is, the }
{ file santa.inc was directly }
{ included into the code }
const santa : array[1..128] of byte =
( 9,0,5,0,0,0,2,170,0,0,0,0,170,170,170,0,
0,10,170,170,160,63,0,255,255,255,255,0,0,12,0,0,
48,0,0,48,196,19,12,0,0,255,242,143,255,0,0,0,
63,252,0,0,170,175,242,143,250,170,170,163,255,255,202,170,
0,0,42,170,160,0,0,2,170,170,170,191,0,255,255,255,
255,63,0,255,255,255,255,0,0,48,84,21,12,0,3,0,
0,0,0,192,0,15,194,131,240,0,0,15,200,35,240,0,
170,143,252,63,242,170,170,168,255,255,42,170,0,0,0,0 );

{----------------------------------------------------------------------------}
{$I Dragon.inc}
{----------------------------------------------------------------------------}
{ Dragon.inc is a sprite file on }
{ on the disk - it has the same }
{ form as the typed constant above}
{----------------------------------------------------------------------------}
{$I Sprites.Lib}
{----------------------------------------------------------------------------}
{ Sprites.Lib contains the }
{ essential definitions and the }
BEGIN { necessary driver routines }
clrscr;
GraphColorMode; GraphBackGround (1); Palette (2);

move (Santa,Sprite,128); { move is used since it ignores }
PutSPriteC (100,100); { the fact that Santa and Sprite }
{ technically do not agree as to }
move (Dragon,Sprite,128); { their type }
PutSpriteC (220,100);

gotoxy (10,22); write ('Press to Quit');
read (Kbd,Wait);
TextMode (c80); { exit gracefully }

END.