]> 4ch.mooo.com Git - 16.git/blob - 16/xw__/modex/demo01.c
====++++==== undid the reversion back at b6af468f5932336434d2fd956a30af42b58c20bf...
[16.git] / 16 / xw__ / modex / demo01.c
1 /*\r
2     DEMO01 - Sprites, page flipping and palette rotation\r
3     Copyright (c) 1994 Alessandro Scotti\r
4 */\r
5 uses Crt, Modex;\r
6 \r
7 #DEFINE MAX_SPRITE 100\r
8 type\r
9   (* Sprite structure *)\r
10   TSprite = record\r
11     X, Y : integer;                        (* Sprite coordinates *)\r
12     DX,DY: integer;                        (* Deltas for sprite movement *)\r
13     W, H : integer;                        (* Sprite width and height *)\r
14     Image: array[ 1..16, 1..16 ] of byte;  (* Sprite image data *)\r
15   end;\r
16   (* RGB color structure *)\r
17   TRgb    = record\r
18     R, G, B: byte;\r
19   end;\r
20 var\r
21   S      : array[ 1..MAX_SPRITE ] of TSprite;   (* An array of sprites *)\r
22   Palette: array[ byte ] of TRgb;               (* Palette *)\r
23   Page   : word;                                (* Page offset *)\r
24   I      : word;\r
25 \r
26 (* Initializes a sprite structure *)\r
27 procedure sxInit( var S: TSprite );\r
28 var\r
29   I: word;\r
30 begin\r
31   S.X := Random( 320 );  (* Initialize position with random values *)\r
32   S.Y := Random( 240 );\r
33   S.DX := Random( 7 )-3; (* Initialize speed with random values *)\r
34   S.DY := Random( 7 )-3;\r
35   S.W := 16;             (* Size is fixed in this program *)\r
36   S.H := 16;\r
37   (* The image is a square with a hole inside *)\r
38   FillChar( S.Image, SizeOf(S.Image), Random(15)+1 );\r
39   for I:=5 to 12 do FillChar( S.Image[ I, 5 ], 8, 0 );\r
40 end;\r
41 \r
42 (* Moves a sprite *)\r
43 procedure sxMove( var S: TSprite );\r
44 begin\r
45   Inc( S.X, S.DX );     (* Get new position *)\r
46   Inc( S.Y, S.DY );\r
47   (* Check sprite position, change delta if needed *)\r
48   if( S.X > 320 ) then begin\r
49     S.X := 320;\r
50     S.DX := -S.DX;\r
51   end;\r
52   if( S.X < -16 ) then begin\r
53     S.X := -16;\r
54     S.DX := -S.DX;\r
55   end;\r
56   if( S.Y > 240 ) then begin\r
57     S.Y := 240;\r
58     S.DY := -S.DY;\r
59   end;\r
60   if( S.Y < -16 ) then begin\r
61     S.Y := -16;\r
62     S.DY := -S.DY;\r
63   end;\r
64   (* Draw the sprite, note the Page offset added to the *)\r
65   (* Y coordinate of the image *)\r
66   mxPutImage( @S.Image, S.X, Page+S.Y, S.W, S.H, OP_TRANS );\r
67 end;\r
68 \r
69 begin\r
70   (* Initialize library *)\r
71   mxInit;\r
72 \r
73   (* Enter graphics mode *)\r
74   mxSetMode( MX_320x240 );\r
75 \r
76   (* Print initialization message *)\r
77   mxSetTextColor( 15, OP_TRANS );\r
78   mxOutStr( 4, 4, 'Initializing...' );\r
79 \r
80   (* Initialize sprites *)\r
81   for I:=1 to MAX_SPRITE do sxInit( S[I] );\r
82 \r
83   (* Draw background *)\r
84   for I:=1 to 192 do begin\r
85     mxCircle( 160, 480+120, I, I+63 );\r
86     mxCircle( 161, 480+120, I, I+63 );\r
87   end;\r
88 \r
89   (* Compute and set palette *)\r
90   for I:=1 to 192 do with Palette[I+63] do begin\r
91     R := 0;\r
92     G := 0;\r
93     B := 0;\r
94     if( I < 64 ) then\r
95       R := I shr 1+31\r
96     else if( I < 128 ) then\r
97       G := (I-64) shr 1+31\r
98     else\r
99       B := (I-128) shr 1+31;\r
100   end;\r
101   mxSetPalette( @Palette[64], 64, 192 );\r
102 \r
103   (* Main loop *)\r
104   Page := 240;\r
105   while( not KeyPressed ) do begin\r
106     (* Set clip region to current page *)\r
107     mxSetClipRegion( 0, Page, 320, 240 );\r
108     mxSetClip( TRUE );\r
109     (* Restore background *)\r
110     mxBitBlt( 0, 480, 320, 240, 0, Page );\r
111     (* Draw sprites *)\r
112     for I:=1 to MAX_SPRITE do sxMove( S[I] );\r
113     (* Print message *)\r
114     mxOutStr( 4, Page+4, 'Some sprites moving...' );\r
115     (* Flip page *)\r
116     mxStartLine( Page );\r
117     Page := 240-Page;\r
118     (* Animate palette *)\r
119     mxSetPalette( @Palette[64], 64, 192 );\r
120     mxRotatePalette( @Palette[64], 192, 3 );\r
121   end;\r
122 \r
123   mxSetMode( MX_TEXT );\r
124   mxTerm;\r
125 end.\r