Sprite Library Revisited

[TerryRitchie]

Here is a listing of the commands I have finished so far. I'm not sure how I should word the commands. Should I use all CAPS separated BY_UNDERSCORE, CamelCaseWithNoSpaces, or something else?

The convention I am using right now is:

LibraryName_Verb_Description_..._...

Any ideas on naming convention would be appreciated.

Code: QB64: [Select]

1. SUB SL_SET_AUTOSPIN (handle AS INTEGER, s AS INTEGER)
2. - Enables auto-rotation of a sprite and sets the spin rate (-359 to +359)
3.  
4. FUNCTION SL_GET_DISTANCE_POINT_TO_POINT (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER)
5. - Returns the distance between two points in pixels (uses Pythagoras)
6.  
7. FUNCTION SL_GET_DISTANCE_TO_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER)
8. - Returns the distance from the center points of two sprites (uses Pythagoras)
9.  
10. FUNCTION SL_GET_DISTANCE_TO_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER)
11. - Returns the distance from the center point of a sprite to an x,y location (uses Pythagoras)
12.  
13. FUNCTION SL_GET_ANGLE_POINT_TO_POINT (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER)
14. - Returns the angle in degrees from an x,y point location to a second x,y point location (0 - 359)
15.  
16. FUNCTION SL_GET_ANGLE_TO_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER)
17. - Returns the angle in degrees from the center point of this sprite to the center point of a second sprite (0 - 359)
18.  
19. FUNCTION SL_GET_ANGLE_FROM_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER)
20. - Returns the angle in degrees from the center point of a second sprite to the center point of this sprite (0 - 359)
21.  
22. FUNCTION SL_GET_ANGLE_TO_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER)
23. - Returns the angle in degrees from the center point of this sprite to an x,y location (0 - 359)
24.  
25. FUNCTION SL_GET_ANGLE_FROM_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER)
26. - Returns the angle in degrees from an x,y location to the center point of this sprite (0 - 359)
27.  
28. SUB SL_SET_SOFTWARE (handle AS INTEGER, restores AS INTEGER)
29. - Sets a sprite to software mode if sprite is in hardware mode
30. - Sets the sprites background saving mode on or off
31.  
32. SUB SL_SET_HARDWARE (handle AS INTEGER)
33. - Sets a sprite to hardware mode if sprite is in software mode
34. - Turns off background saving mode
35.  
36. SUB SL_SET_ZOOM (handle AS INTEGER, zoom AS INTEGER)
37. - Sets the zoom level of a sprite (1 - x) (100 = normal zoom)
38.  
39. SUB SL_SET_ROTATION (handle AS INTEGER, degrees AS INTEGER)
40. - Sets the rotation angle in degrees of a sprite (0 - 359)
41.  
42. SUB SL_FLIP_SPRITE (handle AS INTEGER, flip AS INTEGER)
43. - Sets the flipping behavior of a sprite (None, Horizontal, Vertical, Both)
44.  
45. SUB SL_PUT_SPRITE (x AS SINGLE, y AS SINGLE, handle AS INTEGER)
46. - Places a sprite on the current destination centered on location x,y
47.  
48. FUNCTION SL_NEW_SPRITE (sheet AS INTEGER, column AS INTEGER, row AS INTEGER, software AS INTEGER, restores AS INTEGER)
49. - Creates a new sprite from a pre-loaded sprite sheet, sets software/hardware mode, and sets the background restoring behavior
50.  
51. SUB SL_FREE_SPRITE (handle AS INTEGER)
52. - Removes a sprite and frees all image data associated with it
53.  
54. FUNCTION SL_NEW_SHEET (filename AS STRING, spritewidth AS INTEGER, spriteheight AS INTEGER, transparency AS INTEGER, transcolor AS _UNSIGNED LONG)
55. - Loads a sprite sheet into memory, identifies transparency characteristics, pre-calculates rotational data for _MAPTRIANGLE, and pre-loads all sprite
56. - images for use with SL_NEW_SPRITE
57.  
58. FUNCTION SL_VALID_SPRITE (handle AS INTEGER)
59. - Identifies if a sprite handle is valid or not (0 or -1)
60.  

I have MANY more subs/functions to finish, such as auto-motion routines and event handling routines. Any ideas for features in the library are appreciated. Like Steve suggested, I would like to make this more than just a sprite handling library and go in the direction of a game engine as well.

[Petr]

Hi TerryRitchie,

This is a great list of features. I would be for preservation of underscores, it is then clearer.

[TerryRitchie]

I agree with using underscore but I also want to get a majority opinion. Yours has been noted, thank you.

I'm going to make an effort to keep to commands to a limit of four words or less. I know I already broke this with SL_GET_DISTANCE_POINT_TO_POINT but SL_GET_DISTANCE_P2P just looks weird.

[SMcNeill]

I'm going to sit down soon(tm) and see what it'd take to give us an _ALIAS command for QB64, which will work very similar to CONST.  For CONST, we say TRUE = -1, and the precompile routine reads every TRUE in our code and replaces it with the value -1.

I'd envision _ALIAS working the same way:

_ALIAS GDP2P = SL_Get_Distance_Point_To_Point

Then, lazy folks like me, could just type GDP2P and the code would read it as the longer command.

I'm also thinking of seeing about making a _REPLACE command, which works the same, but actually replaces one set of text with another (like ? Becomes PRINT).

I think both those features would make libraries with naming conventions like these, much, much, more appealing to me.  (And probably a few others as well.).  ;D

[TerryRitchie]

I wish there were a way to mimic the way Python includes libraries. If you just:

import pygame

then you need to use the the name of the library:

screen = pygame.display.set_mode([640, 480])

But if you:

from pygame import *

You no longer need to use the library name:

screen = display.set_mode([640, 480])

You can even go further. The pygame library includes handy constants. To load those you can:

from pygame.locals import *

and now you have all the constants at a local level without having to refer to pygame.locals first.

[TerryRitchie]

I'd envision _ALIAS working the same way:

_ALIAS GDP2P = SL_Get_Distance_Point_To_Point

You could make an .alias file from these commands to. You could then just include a custom alias file that matches the library.

'$INCLUDE: sprite.bi
'$INCLUDE: sprite.alias

[TerryRitchie]

I was a programmer possessed yesterday. I already have more commands in this new sprite library than were contained in the old, and I'm not even close to being finished yet.

Here is what I have now:

SUB SL_UPDATE_AUTO_SPRITES ()
- All sprites that have auto-motion enabled will be updated and moved
- All sprites that have auto-rotation enabled will have their rotational data updated and displayed

SUB SL_MOVE_SPRITE (handle AS INTEGER)
- Allows the programmer to manually move a sprite that has motion data associated with it but auto-motion not turned on

SUB SL_ROTATE_SPRITE (handle AS INTEGER)
- Allows the programmer to manually rotate a sprite that has rotation data associated with it but auto-rotation not turned on

SUB SL_SET_DIRECTION (handle AS INTEGER, degrees AS INTEGER)
- Sets the direction in degrees that a sprite will move with auto-motion or a manual move

FUNCTION SL_GET_DIRECTION (handle AS INTEGER)
- Gets the direction in degrees that a sprite is currently set to travel in

SUB SL_SET_MOTION_SPEED (handle AS INTEGER, speed AS SINGLE)
- Sets the speed in pixels that a sprite will move with auto-motion or a manual move

FUNCTION SL_GET_MOTION_SPEED (handle AS INTEGER)
- Gets the speed in pixels that a sprite is currently set to travel

SUB SL_SET_AUTOMOTION (handle AS INTEGER, motion AS INTEGER)
- Enables or disables auto-motion for a given sprite

FUNCTION SL_GET_AUTOMOTION (handle AS INTEGER)
- Gets the current state of auto-motion for a sprite

SUB SL_SET_AUTOROTATE (handle AS INTEGER, rotate AS INTEGER)
- Enables or disables auto-rotation for a given sprite

FUNCTION SL_GET_AUTOROTATE (handle AS INTEGER)
- Gets the current state of auto-rotation for a sprite

SUB SL_SET_ROTATION_SPEED (handle AS INTEGER, degrees AS INTEGER)
- Sets the rotation speed in degrees for a given sprite

FUNCTION SL_GET_ROTATION_SPEED (handle AS INTEGER)
- Gets the rotation speed of a sprite

FUNCTION SL_GET_DISTANCE_POINT_TO_POINT (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER)
- Returns the distance in pixels between two x,y points

FUNCTION SL_GET_DISTANCE_TO_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER)
- Returns the distance in pixels from this sprite to a second sprite

FUNCTION SL_GET_DISTANCE_TO_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER)
- Returns the distance in pixels from this sprite to an x,y point

FUNCTION SL_GET_ANGLE_POINT_TO_POINT (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER)
- Returns the angle in degrees between two x,y points

FUNCTION SL_GET_ANGLE_TO_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER)
- Returns the angle in degrees from this sprite to a second sprite

FUNCTION SL_GET_ANGLE_FROM_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER)
- Returns the angle in degrees from a second sprite to this sprite

FUNCTION SL_GET_ANGLE_TO_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER)
- Returns the angle in degrees from this sprite to an x,y location

FUNCTION SL_GET_ANGLE_FROM_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER)
- Returns the angle in degrees from an x,y point to this sprite

SUB SL_SET_SOFTWARE (handle AS INTEGER, restores AS INTEGER)
- Changes a sprite's mode from hardware to software and sets background saving behavior

SUB SL_SET_HARDWARE (handle AS INTEGER)
- Changes a sprite's mode from software to hardware and disables background saving behavior

SUB SL_SET_ZOOM (handle AS INTEGER, zoom AS INTEGER)
- Sets the zoom level for a sprite

SUB SL_SET_ROTATION (handle AS INTEGER, degrees AS INTEGER)
- Sets the rotation angle in degrees of a sprite

SUB SL_FLIP_SPRITE (handle AS INTEGER, flip AS INTEGER)
- Sets the flipping behavior of a sprite (none, horizontal, vertical, both)

SUB SL_PUT_SPRITE (x AS SINGLE, y AS SINGLE, handle AS INTEGER)
- Places a prite on the current destination ay position x,y

FUNCTION SL_NEW_SPRITE (sheet AS INTEGER, column AS INTEGER, row AS INTEGER, software AS INTEGER, restores AS INTEGER)
- Creates a new sprite from a given sprite sheet

SUB SL_FREE_SPRITE (handle AS INTEGER)
- Removes a sprite from the sprite list and frees all associated image data

FUNCTION SL_NEW_SHEET (filename AS STRING, spritewidth AS INTEGER, spriteheight AS INTEGER, transparency AS INTEGER, transcolor AS _UNSIGNED LONG)
- Loads a sprite sheet in, pre-loads all images, precalculates all _MAPTRIANGLE rotational coordinates, identifies transparency type of sheet

FUNCTION SL_VALID_SPRITE (handle AS INTEGER)
- Returns the validity of a sprite (TRUE or FALSE)

Here is the code if anyone is interested in seeing it. I removed header comments for now to lower the line count.

Code: QB64: [Select]

1. ' if SL_EVENT_TRIGGER then 'check for event that was sent
2.  
3. OPTION _EXPLICIT ' need to remove before publishing library!!
4.  
5. '*
6. '* constant declarations
7. '*
8.  
9. '         CONSTANT NAME                                DESCRIPTION                          FUNCTIONS / SUBROUTINES THAT MAY USE THIS CONSTANT
10. ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
11. CONST SL_RESET = -32767 '               reset a function or subroutine                      SL_ROTATE_SPRITE, SL_FLIP_SPRITE, SL_ZOOM_SPRITE, SL_SET_AUTOROTATE, SL_SET_AUTOMOTION
12. CONST SL_NOFLIP = 0 '                   sprite will use no flipping                         SL_FLIP_SPRITE
13. CONST SL_HORIZONTAL = 1 '               sprite will be flipped horizontally                 SL_FLIP_SPRITE
14. CONST SL_VERTICAL = 2 '                 sprite will be flipped vertically                   SL_FLIP_SPRITE
15. CONST SL_FLIPBOTH = 3 '                 sprite will be flipped horizontally & vertically    SL_FLIP_SPRITE
16. CONST SL_USESHEET = -1 '                use sheet's transparency info (.PNG)                SL_NEW_SHEET
17. CONST SL_SET = 0 '                      manually set transparency                           SL_NEW_SHEET
18. CONST SL_NONE = 1 '                     don't use transparency with sheet                   SL_NEW_SHEET
19. CONST SL_NOSAVE = 0 '                   sprite will not save background                     SL_NEW_SPRITE, SL_SOFTWARE_SPRITE
20. CONST SL_SAVE = -1 '                    sprite will save background                         SL_NEW_SPRITE, SL_SOFTWARE_SPRITE
21. CONST SL_HARDWARE = 0 '                 sprite in hardware mode                             SL_NEW_SPRITE
22. CONST SL_SOFTWARE = -1 '                sprite in software mode                             SL_NEW_SPRITE
23. CONST SL_START = -1 '                   enable auto motion / rotation                       SL_SET_AUTOMOTION' SL_SET_AUTOROTATE
24. CONST SL_STOP = 0 '                     disable auto motion / rotation                      SL_SET_AUTOMOTION, SL_SET_AUTOROTATE
25.  
26. '*
27. '* type declarations
28. '*
29.  
30. TYPE SL_SHEET ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SPRITE SHEET DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
31.     image AS LONG '                     software sprite image
32.     mask AS LONG '                      software mask image
33.     spritewidth AS INTEGER '            width of sprite
34.     spriteheight AS INTEGER '           height of sprite
35.     collx1 AS INTEGER '                 collision box top left x
36.     colly1 AS INTEGER '                 collision box top left y
37.     collx2 AS INTEGER '                 collision box bottom right x
38.     colly2 AS INTEGER '                 collision box bottom right y
39.     transparency AS INTEGER '           -1 (TRUE) if sheet uses transparency
40. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
41.  
42. TYPE SL_SPRITE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SPRITE DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
43.     inuse AS INTEGER '                  this array index in use
44.     sheet AS INTEGER '                  sheet sprite belongs to
45.     column AS INTEGER '                 the column on the sheet the sprite resides
46.     row AS INTEGER '                    the row on the sheet the sprite resides
47.     sprite AS LONG '                    hardware image
48.     image AS LONG '                     software image
49.     mask AS LONG '                      software mask image
50.     spritewidth AS INTEGER '            width of sprite
51.     spriteheight AS INTEGER '           height of sprite
52.     background AS LONG '                background hardware image behind sprite
53.     xreal AS SINGLE '                   x location of sprite (center point)
54.     yreal AS SINGLE '                   y location of sprite (center point)
55.     xint AS INTEGER '                   x location of sprite on screen INT(xreal) (center point)
56.     yint AS INTEGER '                   y location of sprite on screen INT(yreal) (center point)
57.     xactual AS INTEGER '                x location of sprite on screen (upper left x)
58.     yactual AS INTEGER '                y location of sprite on screen (upper left y)
59.     xback AS INTEGER '                  background image x location
60.     yback AS INTEGER '                  background image y location
61.     xdir AS SINGLE '                    direction of sprite in x axis
62.     ydir AS SINGLE '                    direction of sprite in y axis
63.     restore AS INTEGER '                -1 (true) if sprite restores background
64.     collx1 AS INTEGER '                 collision box top left x
65.     colly1 AS INTEGER '                 collision box top left y
66.     collx2 AS INTEGER '                 collision box bottom right x
67.     colly2 AS INTEGER '                 collision box bottom right y
68.     flip AS INTEGER '                   flip horizontally, vertically, or both
69.     rotation AS INTEGER '                rotation angle of sprite (0 - 359)
70.     transparency AS INTEGER '           -1 (TRUE) if sprite uses transparency
71.     zoom AS INTEGER '                   zoom level of sprite (1% - x%)
72.     software AS INTEGER '               -1 (TRUE) if sprite is to be treated as software image
73.     spin AS INTEGER '                   if other than zero the sprite will automatically spin
74.     speed AS INTEGER '                  speed of sprite during motion
75.     direction AS INTEGER '              the direction of sprite during motion (0 - 359)
76.     automotion AS INTEGER '             -1 (TRUE) if automotion turned on
77.     autorotate AS INTEGER '             -1 (TRUE) if auto rotation turned on
78.  
79. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
80.  
81. TYPE SL_ROTATE 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ PRECALCULATED ROTATION TABLE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
82.     rwidth AS INTEGER '                 width of rotated sprite
83.     rheight AS INTEGER '                height of rotated sprite
84.     px0 AS INTEGER '                    rectangular rotation coordinates
85.     px1 AS INTEGER
86.     px2 AS INTEGER
87.     px3 AS INTEGER
88.     py0 AS INTEGER
89.     py1 AS INTEGER
90.     py2 AS INTEGER
91.     py3 AS INTEGER
92. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
93.  
94. '*
95. '* dynamic array declarations
96. '*
97.  
98. REDIM SL_sheet(1, 1, 1) AS SL_SHEET '   master sprite sheet array
99. REDIM SL_sprite(1) AS SL_SPRITE '       master working sprite array
100. REDIM SL_rotate(1, 359) AS SL_ROTATE '  precalculated rotation values
101.  
102. '*
103. '* main code (for testing)
104. '*
105.  
106. DIM kongsheet AS INTEGER
107. DIM mysprite AS INTEGER
108. DIM mysprite2 AS INTEGER
109. DIM x AS SINGLE
110. DIM y AS INTEGER
111. DIM angle AS INTEGER
112.  
113. kongsheet = SL_NEW_SHEET("dkong.png", 64, 64, SL_SET, _RGB32(255, 0, 255))
114. mysprite = SL_NEW_SPRITE(kongsheet, 1, 1, SL_HARDWARE, SL_NOSAVE)
115. mysprite2 = SL_NEW_SPRITE(kongsheet, 1, 1, SL_SOFTWARE, SL_NOSAVE)
116.  
117. 'SL_SET_ROTATION mysprite, 45
118. 'SL_SET_ROTATION_SPEED mysprite, 1
119. 'SL_SET_AUTOROTATE mysprite, SL_START
120. 'SL_FLIP_SPRITE mysprite, SL_HORIZONTAL
121. 'SL_SET_ZOOM mysprite, 125
122.  
123.  
124.  
125.  
126. SCREEN _NEWIMAGE(640, 480, 32)
127. CLS
128. CIRCLE (128, 128), 64, _RGB32(255, 255, 255)
129. x = 128
130. y = 128
131.  
132. SL_PUT_SPRITE 128, 128, mysprite2
133.  
134. DO
135.     _LIMIT 30
136.     'angle = angle + 1: IF angle = 360 THEN angle = 0
137.     'SL_SET_ROTATION mysprite, angle
138.     SL_PUT_SPRITE x, y, mysprite
139.     x = x + 1
140.     'IF INT(x) = 300 THEN
141.     '    SL_SET_SOFTWARE mysprite, SL_NOSAVE
142.     'END IF
143.     IF INT(x) = 401 THEN x = 400
144.     _DISPLAY
145. LOOP UNTIL _KEYHIT
146.  
147. SL_FREE_SPRITE mysprite
148. SL_FREE_SPRITE mysprite2
149.  
150. END
151.  
152.  
153.  
154.  
155. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
156. SUB SL_UPDATE_AUTO_SPRITES () '                                                                                                                                                  SL_UPDATE_AUTO_SPRITES
157.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
158.  
159.     ' declare global variables
160.  
161.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
162.  
163.     ' declare local variables
164.  
165.     DIM handle AS INTEGER '             handle of sprite
166.  
167.     ' local variable setup
168.  
169.     handle = 0 '                                                                                                initialize handle counter
170.  
171.     DO
172.         handle = handle + 1
173.         IF SL_sprite(handle).inuse THEN '                                                                       is this a valid sprite?
174.             IF SL_sprite(handle).automotion THEN '                                                              yes, is auto motion enabled?
175.                 SL_sprite(handle).xreal = SL_sprite(handle).xreal + SL_sprite(handle).xdir '                    yes, update x location
176.                 SL_sprite(handle).yreal = SL_sprite(handle).yreal + SL_sprite(handle).ydir '                    update y location
177.             END IF
178.             IF SL_sprite(handle).autorotate THEN '                                                              is auto rotation enabled?
179.                 SL_SET_ROTATION handle, SL_sprite(handle).rotation + SL_sprite(handle).spin '                   yes, rotate sprite to next degree angle
180.             END IF
181.             SL_PUT_SPRITE SL_sprite(handle).xreal, SL_sprite(handle).yreal, handle '                            update sprite location
182.         END IF
183.     LOOP UNTIL handle = UBOUND(SL_sprite) '                                                                     leave when all indexes checked
184.  
185. END SUB
186.  
187. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
188. SUB SL_MOVE_SPRITE (handle AS INTEGER) '                                                                                                                                                 SL_MOVE_SPRITE
189.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
190.  
191.     ' declare global variables
192.  
193.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
194.  
195.     ' perform error checks
196.  
197.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
198.         SL_ERROR "SL_MOVE_SPRITE", 1, "" '                                                              no, report error to programmer
199.     END IF
200.     IF SL_sprite(handle).automotion THEN '                                                              attempt to move sprite under automatic control?
201.         SL_ERROR "SL_MOVE_SPRITE", 170, "" '                                                            yes, report error to programmer
202.     END IF
203.  
204.     SL_sprite(handle).xreal = SL_sprite(handle).xreal + SL_sprite(handle).xdir '                        update x location
205.     SL_sprite(handle).yreal = SL_sprite(handle).yreal + SL_sprite(handle).ydir '                        update y location
206.     SL_PUT_SPRITE SL_sprite(handle).xreal, SL_sprite(handle).yreal, handle '                            update sprite location
207.  
208. END SUB
209.  
210. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
211. SUB SL_ROTATE_SPRITE (handle AS INTEGER) '                                                                                                                                             SL_ROTATE_SPRITE
212.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
213.  
214.     ' declare global variables
215.  
216.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
217.  
218.     ' perform error checks
219.  
220.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
221.         SL_ERROR "SL_ROTATE_SPRITE", 1, "" '                                                            no, report error to programmer
222.     END IF
223.     IF SL_sprite(handle).autorotate THEN '                                                              attempt to rotate sprite under automatic control?
224.         SL_ERROR "SL_ROTATE_SPRITE", 180, "" '                                                          yes, report error to programmer
225.     END IF
226.  
227.     SL_SET_ROTATION handle, SL_sprite(handle).rotation + SL_sprite(handle).spin '                       rotate sprite to next degree angle
228.  
229. END SUB
230.  
231. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
232. SUB SL_SET_DIRECTION (handle AS INTEGER, degrees AS INTEGER) '                                                                                                                         SL_SET_DIRECTION
233.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
234.  
235.     ' declare global variables
236.  
237.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
238.  
239.     ' delcare local variables
240.  
241.     DIM degree AS INTEGER '             degree angle passed in
242.  
243.     ' perform error checks
244.  
245.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
246.         SL_ERROR "SL_SET_DIRECTION", 1, "" '                                                            no, report error to programmer
247.     END IF
248.  
249.     degree = degrees '                                                                                  get degree angle passed in
250.  
251.     ' correct degree angle if needed (needs to be 0 - 359)
252.  
253.     IF degree = 360 THEN '                                                                              is it 360?
254.         degree = 0 '                                                                                    yes, that's the same as 0
255.     ELSEIF degree < 0 THEN '                                                                            is it less than 360?
256.         DO '                                                                                            yes
257.             degree = degree + 360 '                                                                     increase by 360
258.         LOOP UNTIL degree > 0 '                                                                         until it's in a valid range
259.     ELSEIF degree > 360 THEN '                                                                          is it greater than 360?
260.         DO '                                                                                            yes
261.             degree = degree - 360 '                                                                     decrease by 360
262.         LOOP UNTIL degree < 360 '                                                                       until it's in a valid range
263.     END IF
264.  
265.     SL_sprite(handle).direction = degree '                                                              set motion degree angle
266.     SL_sprite(handle).xdir = SIN(degree * 3.1415926 / 180) * SL_sprite(handle).speed '                  calculate x vector
267.     SL_sprite(handle).ydir = -COS(degree * 3.1415926 / 180) * SL_sprite(handle).speed '                 calculate y vector
268.  
269. END SUB
270.  
271. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
272. FUNCTION SL_GET_DIRECTION (handle AS INTEGER) '                                                                                                                                        SL_GET_DIRECTION
273.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
274.  
275.     ' declare global variables
276.  
277.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
278.  
279.     ' perform error checks
280.  
281.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
282.         SL_ERROR "SL_GET_DIRECTION", 1, "" '                                                            no, report error to programmer
283.     END IF
284.  
285.     SL_GET_DIRECTION = SL_sprite(handle).direction '                                                    return direction sprite currently set to
286.  
287. END FUNCTION
288.  
289. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
290. SUB SL_SET_MOTION_SPEED (handle AS INTEGER, speed AS SINGLE) '                                                                                                                      SL_SET_MOTION_SPEED
291.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
292.  
293.     ' declare global variables
294.  
295.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
296.  
297.     ' perform error checks
298.  
299.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
300.         SL_ERROR "SL_SET_MOTION_SPEED", 1, "" '                                                         no, report error to programmer
301.     END IF
302.  
303.     SL_sprite(handle).speed = speed '                                                                   set sprite motion speed
304.  
305. END SUB
306.  
307. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
308. FUNCTION SL_GET_MOTION_SPEED (handle AS INTEGER) '                                                                                                                                  SL_GET_MOTION_SPEED
309.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
310.  
311.     ' declare global variables
312.  
313.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
314.  
315.     ' perform error checks
316.  
317.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
318.         SL_ERROR "SL_GET_MOTION_SPEED", 1, "" '                                                         no, report error to programmer
319.     END IF
320.  
321.     SL_GET_MOTION_SPEED = SL_sprite(handle).speed '                                                     return current sprite motion speed
322.  
323. END FUNCTION
324.  
325. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
326. SUB SL_SET_AUTOMOTION (handle AS INTEGER, motion AS INTEGER) '                                                                                                                        SL_SET_AUTOMOTION
327.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
328.  
329.     ' declare global variables
330.  
331.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
332.  
333.     IF motion = -32767 THEN '                                                               (SL_RESET)  reset auto motion?
334.         SL_sprite(handle).automotion = 0 '                                                     (FALSE)  yes, turn auto motion off
335.         EXIT SUB '                                                                                      leave subroutine
336.     END IF
337.  
338.     ' perform error checks
339.  
340.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
341.         SL_ERROR "SL_SET_AUTOMOTION", 1, "" '                                                           no, report error to programmer
342.     END IF
343.     IF motion < -1 OR motion > 0 THEN
344.         SL_ERROR "SL_SET_AUTOMOTION", 150, ""
345.     END IF
346.  
347.     SL_sprite(handle).automotion = motion '                                             (TRUE & FALSE)  set auto motion status
348.  
349. END SUB
350.  
351. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
352. FUNCTION SL_GET_AUTOMOTION (handle AS INTEGER) '                                                                                                                                      SL_GET_AUTOMOTION
353.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
354.  
355.     ' declare global variables
356.  
357.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
358.  
359.     ' perform error checks
360.  
361.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
362.         SL_ERROR "SL_GET_AUTOMOTION", 1, "" '                                                           no, report error to programmer
363.     END IF
364.  
365.     SL_GET_AUTOMOTION = SL_sprite(handle).automotion '                                  (TRUE & FALSE)  return auto motion status
366.  
367. END FUNCTION
368.  
369. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
370. SUB SL_SET_AUTOROTATE (handle AS INTEGER, rotate AS INTEGER) '                                                                                                                        SL_SET_AUTOROTATE
371.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
372.  
373.     ' declare global variables
374.  
375.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
376.  
377.     IF rotate = -32767 THEN '                                                               (SL_RESET)  reset auto rotate?
378.         SL_sprite(handle).autorotate = 0 '                                                     (FALSE)  yes, turn auto rotation off
379.         EXIT SUB '                                                                                      leave subroutine
380.     END IF
381.  
382.     ' perform error checks
383.  
384.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
385.         SL_ERROR "SL_SET_AUTOROTATE", 1, "" '                                                           no, report error to programmer
386.     END IF
387.     IF rotate < -1 OR rotate > 0 THEN
388.         SL_ERROR "SL_SET_AUTOROTATE", 160, ""
389.     END IF
390.  
391.     SL_sprite(handle).autorotate = rotate '                                             (TRUE & FALSE)  set auto rotation status
392.  
393. END SUB
394.  
395. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
396. FUNCTION SL_GET_AUTOROTATE (handle AS INTEGER) '                                                                                                                                      SL_GET_AUTOROTATE
397.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
398.  
399.     ' declare global variables
400.  
401.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
402.  
403.     ' perform error checks
404.  
405.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
406.         SL_ERROR "SL_GET_AUTOROTATE", 1, "" '                                                           no, report error to programmer
407.     END IF
408.  
409.     SL_GET_AUTOROTATE = SL_sprite(handle).autorotate '                                  (TRUE & FALSE)  return auto rotation status
410.  
411. END FUNCTION
412.  
413. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
414. SUB SL_SET_ROTATION_SPEED (handle AS INTEGER, degrees AS INTEGER) '                                                                                                               SL_SET_ROTATION_SPEED
415.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
416.  
417.     ' declare global variables
418.  
419.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
420.  
421.     ' perform error checks
422.  
423.     IF degrees = -32767 THEN '                                                              (SL_RESET)  reset requested?
424.         SL_sprite(handle).spin = 0 '                                                         (SL_STOP)  turn auto spin off
425.         EXIT SUB '                                                                                      leave subroutine
426.     END IF
427.  
428.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
429.         SL_ERROR "SL_SET_ROTATION_SPEED", 1, "" '                                                       no, report error to programmer
430.     END IF
431.     IF ABS(degrees) > 359 THEN '                                                                        degree requested between -359 and 359?
432.         SL_ERROR "SL_SET_ROTATION_SPEED", 140, "" '                                                     no, report error to programmer
433.     END IF
434.  
435.     SL_sprite(handle).spin = degrees '                                                                  set sprite spin rate
436.  
437. END SUB
438.  
439. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
440. FUNCTION SL_GET_ROTATION_SPEED (handle AS INTEGER) '                                                                                                                              SL_GET_ROTATION_SPEED
441.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
442.  
443.     ' declare global variables
444.  
445.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
446.  
447.     ' perform error checks
448.  
449.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
450.         SL_ERROR "SL_GET_ROTATION_SPEED", 1, "" '                                                       no, report error to programmer
451.     END IF
452.  
453.     SL_GET_ROTATION_SPEED = SL_sprite(handle).spin '                                                    return current sprite spin rate
454.  
455. END FUNCTION
456.  
457. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
458. FUNCTION SL_GET_DISTANCE_POINT_TO_POINT (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER) '                                                                   SL_GET_DISTANCE_POINT_TO_POINT
459.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
460.  
461.     'declare local variables
462.  
463.     DIM a AS INTEGER '                  side a of triangle
464.     DIM b AS INTEGER '                  side b of triangle
465.  
466.     'solve for c (hypotenuse)
467.  
468.     a = x1 - x2 '                                                                                       get length of side a
469.     b = y1 = y2 '                                                                                       get length of side b
470.  
471.     SL_GET_DISTANCE_POINT_TO_POINT = INT(SQR(a * a + b * b)) '                                          return length of side c
472.  
473. END FUNCTION
474.  
475. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
476. FUNCTION SL_GET_DISTANCE_TO_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                 SL_GET_DISTANCE_TO_SPRITE
477.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
478.  
479.     ' declare global variables
480.  
481.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
482.  
483.     'perform error checks
484.  
485.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
486.         SL_ERROR "SL_GET_DISTANCE_TO_SPRITE", 1, "" '                                                   no, report error to programmer
487.     END IF
488.  
489.     SL_GET_DISTANCE_TO_SPRITE = SL_GET_DISTANCE_POINT_TO_POINT(SL_sprite(handle1).xint, SL_sprite(handle1).yint, _
490.                                                                SL_sprite(handle2).xint, SL_sprite(handle2).yint) '  return distance to sprite 2
491.  
492. END FUNCTION
493.  
494. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
495. FUNCTION SL_GET_DISTANCE_TO_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER) '                                                                                            SL_GET_DISTANCE_TO_POINT
496.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
497.  
498.     ' declare global variables
499.  
500.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
501.  
502.     'perform error checks
503.  
504.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
505.         SL_ERROR "SL_GET_DISTANCE_TO_POINT", 1, "" '                                                    no, report error to programmer
506.     END IF
507.  
508.     SL_GET_DISTANCE_TO_POINT = SL_GET_DISTANCE_POINT_TO_POINT(SL_sprite(handle).xint, SL_sprite(handle).yint, x, y) ' return distance to point
509.  
510. END FUNCTION
511.  
512. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
513. FUNCTION SL_GET_ANGLE_POINT_TO_POINT (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER) '                                                                         SL_GET_ANGLE_POINT_TO_POINT
514.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
515.  
516.     'declare local variables
517.  
518.     DIM angle AS INTEGER '              angle from first x,y location to second x,y location
519.  
520.     IF y1 = y2 THEN '                                                                                   both y values same?
521.         IF x1 = x2 THEN '                                                                               yes, both x values same?
522.             EXIT FUNCTION '                                                                             yes, there is no angle (0), leave
523.         END IF
524.         IF x2 > x1 THEN '                                                                               is second x to the right of first x?
525.             SL_GET_ANGLE_POINT_TO_POINT = 90 '                                                          yes, the angle must be 90 degrees
526.         ELSE '                                                                                          no, second x is to the left of first x
527.             SL_GET_ANGLE_POINT_TO_POINT = 270 '                                                         the angle must be 270 degrees
528.         END IF
529.         EXIT FUNCTION '                                                                                 leave function, angle computed
530.     END IF
531.     IF x1 = x2 THEN '                                                                                   both x values same?
532.         IF y2 > y1 THEN '                                                                               yes, is second y lower than first y?
533.             SL_GET_ANGLE_POINT_TO_POINT = 180 '                                                         yes, the angle must be 180
534.         END IF
535.         EXIT FUNCTION '                                                                                 leave function, angle computed (angle is 0 if no calculation done)
536.     END IF
537.     angle = ATN((x2 - x1) / (y2 - y1)) * -57.2957795131 '                                               calculate initial angle
538.     IF y2 < y1 THEN '                                                                                   is second y higher than first y?
539.         IF x2 > x1 THEN '                                                                               yes, is second x to right of first x?
540.             SL_GET_ANGLE_POINT_TO_POINT = angle '                                                       yes, angle needs no adjustment
541.         ELSE '                                                                                          no, second x is to left of first x
542.             SL_GET_ANGLE_POINT_TO_POINT = angle + 360 '                                                 adjust angle accordingly
543.         END IF
544.     ELSE '                                                                                              no, second y is lower than first y
545.         SL_GET_ANGLE_POINT_TO_POINT = angle + 180 '                                                     adjust angle accordingly
546.     END IF
547.  
548. END FUNCTION
549.  
550. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
551. FUNCTION SL_GET_ANGLE_TO_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                       SL_GET_ANGLE_TO_SPRITE
552.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
553.  
554.     ' declare global variables
555.  
556.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
557.  
558.     'perform error checks
559.  
560.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
561.         SL_ERROR "SL_GET_ANGLE_TO_SPRITE", 1, "" '                                                      no, report error to programmer
562.     END IF
563.  
564.     SL_GET_ANGLE_TO_SPRITE = SL_GET_ANGLE_POINT_TO_POINT(SL_sprite(handle1).xint, SL_sprite(handle1).yint, _
565.                                                          SL_sprite(handle2).xint, SL_sprite(handle2).yint) ' return angle to sprite 2
566.  
567. END FUNCTION
568.  
569. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
570. FUNCTION SL_GET_ANGLE_FROM_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                   SL_GET_ANGLE_FROM_SPRITE
571.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
572.  
573.     ' declare global variables
574.  
575.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
576.  
577.     'perform error checks
578.  
579.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
580.         SL_ERROR "SL_GET_ANGLE_FROM_SPRITE", 1, "" '                                                    no, report error to programmer
581.     END IF
582.  
583.     SL_GET_ANGLE_FROM_SPRITE = SL_GET_ANGLE_POINT_TO_POINT(SL_sprite(handle2).xint, SL_sprite(handle2).yint, _
584.                                                            SL_sprite(handle1).xint, SL_sprite(handle1).yint) '  return angle from sprite 2
585.  
586. END FUNCTION
587.  
588. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
589. FUNCTION SL_GET_ANGLE_TO_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER) '                                                                                                  SL_GET_ANGLE_TO_POINT
590.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
591.  
592.     ' declare global variables
593.  
594.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
595.  
596.     'perform error checks
597.  
598.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
599.         SL_ERROR "SL_GET_ANGLE_TO_POINT", 1, "" '                                                       no, report error to programmer
600.     END IF
601.  
602.     SL_GET_ANGLE_TO_POINT = SL_GET_ANGLE_POINT_TO_POINT(SL_sprite(handle).xint, SL_sprite(handle).yint, x, y) ' return angle to point x,y
603.  
604. END FUNCTION
605.  
606. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
607. FUNCTION SL_GET_ANGLE_FROM_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER) '                                                                                              SL_GET_ANGLE_FROM_POINT
608.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
609.  
610.     ' declare global variables
611.  
612.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
613.  
614.     'perform error checks
615.  
616.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
617.         SL_ERROR "SL_GET_ANGLE_FROM_POINT", 1, "" '                                                     no, report error to programmer
618.     END IF
619.  
620.     SL_GET_ANGLE_FROM_POINT = SL_GET_ANGLE_POINT_TO_POINT(x, y, SL_sprite(handle).xint, SL_sprite(handle).yint) 'return angle from point x,y
621.  
622. END FUNCTION
623.  
624. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
625. SUB SL_SET_SOFTWARE (handle AS INTEGER, restores AS INTEGER) '                                                                                                                          SL_SET_SOFTWARE
626.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
627.  
628.     ' declare global variables
629.  
630.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
631.  
632.     'perform error checks
633.  
634.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
635.         SL_ERROR "SL_SET_SOFTWARE", 1, "" '                                                             no, report error to programmer
636.     END IF
637.     IF restores < -1 OR restores > 0 THEN '                                                             valid background restoration behavior requested?
638.         SL_ERROR "SL_SET_SOFTWARE", 2, "" '                                                             no, report error to programmer
639.     END IF
640.  
641.     SL_sprite(handle).software = -1 '                                                    (SL_SOFTWARE)  set sprite to software mode
642.     SL_sprite(handle).restore = restores '                                       (SL_SAVE & SL_NOSAVE)  set background saving behavior
643.  
644. END SUB
645.  
646. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
647. SUB SL_SET_HARDWARE (handle AS INTEGER) '                                                                                                                                               SL_SET_HARDWARE
648.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
649.  
650.     ' declare global variables
651.  
652.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
653.  
654.     'perform error checks
655.  
656.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
657.         SL_ERROR "SL_SET_HARDWARE", 1, "" '                                                             no, report error to programmer
658.     END IF
659.  
660.     SL_sprite(handle).software = 0 '                                                     (SL_HARDWARE)  set sprite to hardware mode
661.  
662. END SUB
663.  
664. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
665. SUB SL_SET_ZOOM (handle AS INTEGER, zoom AS INTEGER) '                                                                                                                                      SL_SET_ZOOM
666.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
667.  
668.     ' declare global variables
669.  
670.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
671.  
672.     IF zoom = -32767 THEN '                                                                 (SL_RESET)  reset zoom level?
673.         SL_sprite(handle).zoom = 100 '                                                                  yes, reset level to normal
674.         EXIT SUB '                                                                                      leave subroutine
675.     END IF
676.  
677.     ' perform error checks (errors 130-139)
678.  
679.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
680.         SL_ERROR "SL_SET_ZOOM", 1, "" '                                                                 no, report error to programmer
681.     END IF
682.     IF zoom < 1 THEN '                                                                                  valid zoom level requested?
683.         SL_ERROR "SL_SET_ZOOM", 130, "" '                                                               no, report error to programmer
684.     END IF
685.  
686.     SL_sprite(handle).zoom = zoom '                                                                     set zoom level
687.  
688. END SUB
689.  
690.  
691. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
692. SUB SL_SET_ROTATION (handle AS INTEGER, degrees AS INTEGER) '                                                                                                                           SL_SET_ROTATION
693.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
694.  
695.     ' declare global variables
696.  
697.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
698.  
699.     ' declare local variables
700.  
701.     DIM degree AS INTEGER '             degree angle passed in
702.  
703.     ' perform error checks
704.  
705.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
706.         SL_ERROR "SL_SET_ROTATION", 1, "" '                                                             no, report error to programmer
707.     END IF
708.  
709.     degree = degrees '                                                                                  get degree angle passed in
710.  
711.     'handle reset request
712.  
713.     IF degree = -32767 THEN '                                                               (SL_RESET)  reset sprite rotation?
714.         SL_sprite(handle).rotation = 0 '                                                                reset rotation angle
715.         EXIT SUB '                                                                                      leave subroutine
716.     END IF
717.  
718.     ' correct degree angle if needed (needs to be 0 - 359)
719.  
720.     IF degree = 360 THEN '                                                                              is it 360?
721.         degree = 0 '                                                                                    yes, that's the same as 0
722.     ELSEIF degree < 0 THEN '                                                                            is it less than 360?
723.         DO '                                                                                            yes
724.             degree = degree + 360 '                                                                     increase by 360
725.         LOOP UNTIL degree > 0 '                                                                         until it's in a valid range
726.     ELSEIF degree > 360 THEN '                                                                          is it greater than 360?
727.         DO '                                                                                            yes
728.             degree = degree - 360 '                                                                     decrease by 360
729.         LOOP UNTIL degree < 360 '                                                                       until it's in a valid range
730.     END IF
731.  
732.     SL_sprite(handle).rotation = degree '                                                               set degree of rotation
733.  
734. END SUB
735.  
736. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
737. SUB SL_FLIP_SPRITE (handle AS INTEGER, flip AS INTEGER) '                                                                                                                                SL_FLIP_SPRITE
738.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
739.  
740.     ' declare global variables
741.  
742.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
743.  
744.     ' check for subroutine reset
745.  
746.     IF flip = -32767 THEN '                                                                 (SL_RESET)  reset flipping behavior?
747.         SL_sprite(handle).flip = 0 '                                                       (SL_NOFLIP)  yes, reset flip value
748.         EXIT SUB '                                                                                      leave subroutine
749.     END IF
750.  
751.     ' perform error checks
752.  
753.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
754.         SL_ERROR "SL_FLIP_SPRITE", 1, "" '                                                              no, report error to programmer
755.     END IF
756.     IF flip < 0 OR flip > 3 THEN '                                                                      valid flip behavior requested?
757.         SL_ERROR "SL_FLIP_SPRITE", 120, "" '                                                            no, report error to programmer
758.     END IF
759.  
760.     SL_sprite(handle).flip = flip '                                                                     set flipping behavior
761.  
762. END SUB
763.  
764. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
765. SUB SL_PUT_SPRITE (x AS SINGLE, y AS SINGLE, handle AS INTEGER) '                                                                                                                         SL_PUT_SPRITE
766.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
767.  
768.     ' declare global variables
769.  
770.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
771.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
772.     SHARED SL_rotate() AS SL_ROTATE '   precalculated rotation table
773.  
774.     ' declare local variables
775.  
776.     DIM xa AS INTEGER '                 actual x location of sprite on screen
777.     DIM ya AS INTEGER '                 actual y location of sprite on screen
778.     DIM sw AS INTEGER '                 width of sprite to be drawn
779.     DIM sh AS INTEGER '                 height of sprite to be drawn
780.     DIM rw AS INTEGER '                 precalculated rotated sprite width
781.     DIM rh AS INTEGER '                 precalculated rotated sprite height
782.     DIM px0 AS INTEGER '                precalculated triangular coordinates
783.     DIM px1 AS INTEGER
784.     DIM px2 AS INTEGER
785.     DIM px3 AS INTEGER
786.     DIM py0 AS INTEGER
787.     DIM py1 AS INTEGER
788.     DIM py2 AS INTEGER
789.     DIM py3 AS INTEGER
790.     DIM image AS LONG '                 software sprite image
791.     DIM mask AS LONG '                  software sprite image mask
792.     DIM sprite AS LONG '                hardware sprite image
793.  
794.     ' perform error checks
795.  
796.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
797.         SL_ERROR "SL_PUT_SPRITE", 1, "" '                                                               no, report error to programmer
798.     END IF
799.  
800.     ' check for auto motion
801.  
802.     'IF SL_sprite(handle).automotion THEN '                                                              is this sprite auto motion?
803.     '    EXIT SUB '                                                                                      yes, SL_UPDATE_AUTO_SPRITES handles it, leave subroutine
804.     'END IF
805.  
806.     'local variable setup
807.  
808.     SL_sprite(handle).xreal = x '                                                             (SINGLE)  save requested x center location
809.     SL_sprite(handle).yreal = y '                                                             (SINGLE)  save requested y center location
810.     SL_sprite(handle).xint = INT(x) '                                                        (INTEGER)  save screen x center location
811.     SL_sprite(handle).yint = INT(y) '                                                        (INTEGER)  save screen y center location
812.     image = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).column, SL_sprite(handle).row).image '  get image from sprite sheet
813.     mask = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).column, SL_sprite(handle).row).mask '    get mask from sprite sheet
814.     sw = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).column, SL_sprite(handle).row).spritewidth 'get default sprite width from sprite sheet
815.     sh = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).column, SL_sprite(handle).row).spriteheight 'get default sprite height from sprite sheet
816.  
817.     'free existing images
818.  
819.     _FREEIMAGE SL_sprite(handle).sprite '                                                               free hardware sprite image
820.     _FREEIMAGE SL_sprite(handle).image '                                                                free software sprite image
821.     IF SL_sprite(handle).mask THEN _FREEIMAGE SL_sprite(handle).mask '                                  free software mask image
822.     IF SL_sprite(handle).restore THEN '                                                                 is sprite holding a background image?
823.         IF SL_sprite(handle).background THEN '                                                          yes, has a background image been saved yet?
824.             _PUTIMAGE (SL_sprite(handle).xback, SL_sprite(handle).yback), SL_sprite(handle).background 'yes, replace background with image
825.             _FREEIMAGE SL_sprite(handle).background '                                                   free hardware background image
826.         END IF
827.         IF NOT SL_sprite(handle).software THEN '                                                        was the sprite type changed?
828.             SL_sprite(handle).restore = 0 '                                                (SL_NOSAVE)  yes, stop saving background
829.         END IF
830.     END IF
831.  
832.     'adjust sprite rotation if needed
833.  
834.     IF SL_sprite(handle).rotation THEN '                                                                rotate sprite?
835.         px0 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).px0 '                      yes, get precalculated triangular coordinates
836.         px1 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).px1
837.         px2 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).px2
838.         px3 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).px3
839.         py0 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).py0
840.         py1 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).py1
841.         py2 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).py2
842.         py3 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).py3
843.         rw = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).rwidth '                    get precalculated rotated sprite width
844.         rh = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).rheight '                   get precalculated rotated sprite height
845.         SL_sprite(handle).image = _NEWIMAGE(rw, rh, 32) '                                               create image using precalculated width/height
846.         _MAPTRIANGLE (0, 0)-(0, sh-1)-(sw-1, sh-1), image TO _
847.                      (px0, py0)-(px1, py1)-(px2, py2), SL_sprite(handle).image '                        map rotated sprite onto image
848.         _MAPTRIANGLE (0, 0)-(sw-1, 0)-(sw-1, sh-1), image TO _
849.                      (px0, py0)-(px3, py3)-(px2, py2), SL_sprite(handle).image
850.         IF SL_sprite(handle).transparency THEN '                                                        does this sprite have a mask?
851.             SL_sprite(handle).mask = _NEWIMAGE(rw, rh, 32) '                                            yes, create mask image
852.             _MAPTRIANGLE (0, 0)-(0, sh-1)-(sw-1, sh-1), mask TO _
853.                          (px0, py0)-(px1, py1)-(px2, py2), SL_sprite(handle).mask '                     map rotated mask onto image
854.             _MAPTRIANGLE (0, 0)-(sw-1, 0)-(sw-1, sh-1), mask TO _
855.                          (px0, py0)-(px3, py3)-(px2, py2), SL_sprite(handle).mask
856.         END IF
857.         sw = rw '                                                                                       save new sprite width
858.         sh = rh '                                                                                       save new sprite height
859.     ELSE '                                                                                              no rotation needed
860.         SL_sprite(handle).image = _COPYIMAGE(image, 32) '                                               copy software image from sprite sheet
861.         IF SL_sprite(handle).transparency THEN '                                                        does this sprite have a mask?
862.             SL_sprite(handle).mask = _COPYIMAGE(mask, 32) '                                             yes, copy software mask from sprite sheet
863.         END IF
864.     END IF
865.  
866.     'create hardware sprite
867.  
868.     SL_sprite(handle).sprite = _COPYIMAGE(SL_sprite(handle).image, 33) '                                create hardware sprite of image
869.  
870.     'adjust zoom level if needed
871.  
872.     IF SL_sprite(handle).zoom <> 100 THEN '                                                             zoom sprite in/out?
873.         sw = sw * SL_sprite(handle).zoom \ 100 '                                                        yes, calculate new zoom width
874.         sh = sh * SL_sprite(handle).zoom \ 100 '                                                        calculate new zoom height
875.     END IF
876.  
877.     'calculate actual sprite screen coordinates
878.  
879.     xa = SL_sprite(handle).xint - sw \ 2 '                                                              calculate actual screen x location from center
880.     ya = SL_sprite(handle).yint - sh \ 2 '                                                              calculate actual screen y location from center
881.     SL_sprite(handle).xactual = xa '                                                         (INTEGER)  save actual screen x location
882.     SL_sprite(handle).yactual = ya '                                                         (INTEGER)  save actual screen y location
883.  
884.     'get background image before placing sprite if necessary
885.  
886.     IF SL_sprite(handle).restore THEN '                                                                 is this sprite storing background images?
887.         SL_sprite(handle).background = _NEWIMAGE(sw, sh, 32) '                                          yes, create background image
888.         _PUTIMAGE , _DEST, SL_sprite(handle).background, (xa, ya)-(xa + sw - 1, ya + sh - 1) '          get background area from current destination
889.         SL_sprite(handle).xback = xa '                                                                  record background x location
890.         SL_sprite(handle).yback = ya '                                                                  record background y location
891.     END IF
892.  
893.     'use hardware or software image
894.  
895.     IF SL_sprite(handle).software THEN '                                                                is this a software sprite?
896.         sprite = SL_sprite(handle).image '                                                              yes, use the software image
897.     ELSE '                                                                                              no
898.         sprite = SL_sprite(handle).sprite '                                                             use the hardware image
899.     END IF
900.  
901.     ' place sprite on the current destination
902.  
903.     SELECT CASE SL_sprite(handle).flip '                                                                which flipping style is selected?
904.         CASE 0 '                                                                           (SL_NOFLIP)  normal, no flipping
905.             _PUTIMAGE (xa, ya)-(xa + sw - 1, ya + sh - 1), sprite '                                     draw normal sprite
906.         CASE 1 '                                                                       (SL_HORIZONTAL)  flip horizontally
907.             _PUTIMAGE (xa + sw - 1, ya)-(xa, ya + sh - 1), sprite '                                     draw horizontally flipped sprite
908.         CASE 2 '                                                                         (SL_VERTICAL)  flip vertically
909.             _PUTIMAGE (xa, ya + sh - 1)-(xa + sw - 1, ya), sprite '                                     draw vertically flipped sprite
910.         CASE 3 '                                                                         (SL_FLIPBOTH)  flip vertically and horizontally
911.             _PUTIMAGE (xa + sw - 1, ya + sh - 1)-(xa, ya), sprite '                                     draw horizontally and vertically flipped sprite
912.     END SELECT
913.  
914. END SUB
915.  
916. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
917. FUNCTION SL_NEW_SPRITE (sheet AS INTEGER, column AS INTEGER, row AS INTEGER, software AS INTEGER, restores AS INTEGER) '                                                                  SL_NEW_SPRITE
918.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
919.  
920.     ' declare global variables
921.  
922.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
923.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
924.  
925.     ' declare local variables
926.  
927.     DIM handle AS INTEGER '             handle (pointer) number of new sprite
928.  
929.     ' perform error checks
930.  
931.     IF sheet > UBOUND(SL_sheet) OR SL_sheet(sheet, 0, 0).image <> -1 THEN '                             valid sprite sheet requested?
932.         SL_ERROR "SL_NEW_SPRITE", 110, "" '                                                             no, report error to programmer
933.     END IF
934.     IF column > UBOUND(SL_sheet, 2) OR row > UBOUND(SL_sheet, 3) OR row < 1 OR column < 1 THEN '        valid row and column requested?
935.         SL_ERROR "SL_NEW_SPRITE", 111, "" '                                                             no, report error to programmer
936.     END IF
937.     IF restores < -1 OR restores > 0 THEN '                                                             valid background restoration behavior requested?
938.         SL_ERROR "SL_NEW_SPRITE", 2, "" '                                                               no, report error to programmer
939.     END IF
940.     IF software < -1 OR software > 0 THEN '                                                             valid hardware / software setting requested?
941.         SL_ERROR "SL_NEW_SPRITE", 112, "" '                                                             no, report error to programmer
942.     END IF
943.     IF (NOT software) AND restores THEN '                                                               hardware image that restores background?
944.         SL_ERROR "SL_NEW_SPRITE", 113, "" '                                                             yes, report error to programmer
945.     END IF
946.  
947.     ' local variable setup
948.  
949.     handle = 0 '                                                                                        initialize handle value
950.  
951.     ' increase sprite array's size if needed
952.  
953.     DO '                                                                                                look for next available handle
954.         handle = handle + 1 '                                                                           increment to next handle value
955.     LOOP UNTIL (NOT SL_sprite(handle).inuse) OR handle = UBOUND(SL_sprite) '                            stop looking when valid handle found
956.     IF SL_sprite(handle).inuse THEN '                                                                   is the last array element in use?
957.         handle = handle + 1 '                                                                           yes, increment to next handle value
958.         REDIM _PRESERVE SL_sprite(handle) AS SL_SPRITE '                                                increase the size of the sprite array
959.     END IF
960.  
961.     ' populate sprite array
962.  
963.     SL_sprite(handle).inuse = -1 '                                                              (TRUE)  mark array index as in use
964.     SL_sprite(handle).sheet = sheet '                                                                   point to sheet where sprite resides              *
965.     SL_sprite(handle).column = column '                                                                 point to column on sheet where sprite located    * these still needed?
966.     SL_sprite(handle).row = row '                                                                       point to row on sheet where sprite located       *
967.     SL_sprite(handle).software = software '                                (SL_SOFTWARE & SL_HARDWARE)  sprite treated as software or hardware image
968.     SL_sprite(handle).restore = restores '                                       (SL_SAVE & SL_NOSAVE)  background restore behavior of sprite
969.     SL_sprite(handle).background = 0 '                                                                  no background image saved yet
970.     SL_sprite(handle).xreal = 0 '                                                                       reset x location of sprite (center x)
971.     SL_sprite(handle).yreal = 0 '                                                                       reset y location of sprite (center y)
972.     SL_sprite(handle).xint = 0 '                                                                        reset x location of sprite on screen INT(xreal) (center x)
973.     SL_sprite(handle).yint = 0 '                                                                        reset y location of sprite on screen INT(yreal) (center y)
974.     SL_sprite(handle).xactual = 0 '                                                                     reset x location of sprite on screen (upper left x)
975.     SL_sprite(handle).yactual = 0 '                                                                     reset y location of sprite on screen (upper left y)
976.     SL_sprite(handle).collx1 = SL_sheet(sheet, column, row).collx1 '                                    get sprite's collision box boundaries
977.     SL_sprite(handle).colly1 = SL_sheet(sheet, column, row).colly1
978.     SL_sprite(handle).collx2 = SL_sheet(sheet, column, row).collx2
979.     SL_sprite(handle).colly2 = SL_sheet(sheet, column, row).colly2
980.     SL_sprite(handle).spritewidth = SL_sheet(sheet, column, row).spritewidth '                          get width of sprite
981.     SL_sprite(handle).spriteheight = SL_sheet(sheet, column, row).spriteheight '                        get height of sprite
982.     SL_sprite(handle).sprite = _COPYIMAGE(SL_sheet(sheet, column, row).image, 33) '                     create hardware sprite image
983.     SL_sprite(handle).image = _COPYIMAGE(SL_sheet(sheet, column, row).image, 32) '                      copy software sprite image from sheet
984.     IF SL_sheet(sheet, column, row).transparency THEN '                                                 does this sprite use transparency?
985.         SL_sprite(handle).mask = _COPYIMAGE(SL_sheet(sheet, column, row).mask, 32) '                    yes, copy software sprite mask image from sheet
986.         SL_sprite(handle).transparency = -1 '                                                   (TRUE)  remember this sprite has a transparency layer
987.     ELSE '                                                                                              no transparency
988.         SL_sprite(handle).mask = 0 '                                                                    no mask will be brought in
989.         SL_sprite(handle).transparency = 0 '                                                   (FALSE)  remember this sprite has no transparency layer
990.     END IF
991.     SL_sprite(handle).flip = 0 '                                                                        no sprite flipping
992.     SL_sprite(handle).rotation = 0 '                                                                    no sprite rotation angle
993.     SL_sprite(handle).zoom = 100 '                                                                      zoom normal at 100%
994.     SL_sprite(handle).spin = 0 '                                                                        sprite will not spin automatically
995.     SL_sprite(handle).xdir = 0 '                                                                        x direction during motion
996.     SL_sprite(handle).ydir = 0 '                                                                        y direction during motion
997.     SL_sprite(handle).speed = 0 '                                                                       speed during motion
998.     SL_sprite(handle).direction = 0 '                                                                   direction during motion (0 - 359)
999.     SL_sprite(handle).automotion = 0 '                                                         (FALSE)  auto motion disabled
1000.     SL_sprite(handle).autorotate = 0 '                                                         (FALSE)  auto rotation disabled
1001.  
1002.     SL_NEW_SPRITE = handle '                                                                            return pointer value of new sprite
1003.  
1004. END FUNCTION
1005.  
1006. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1007. SUB SL_FREE_SPRITE (handle AS INTEGER) '                                                                                                                                                 SL_FREE_SPRITE
1008.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1009.  
1010.     ' declare global variables
1011.  
1012.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1013.  
1014.     ' check for errors
1015.  
1016.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1017.         SL_ERROR "SL_PUT_SPRITE", 1, "" '                                                               no, report error to programmer
1018.     END IF
1019.  
1020.     ' restore background if this sprite saving background
1021.  
1022.     IF SL_sprite(handle).restore THEN '                                                                 is there a background image to restore?
1023.         _PUTIMAGE (SL_sprite(handle).xback, SL_sprite(handle).yback), SL_sprite(handle).background '    yes, restore the image
1024.         _FREEIMAGE SL_sprite(handle).background '                                                       free background image
1025.     END IF
1026.  
1027.     ' free all image data associated with sprite
1028.  
1029.     IF SL_sprite(handle).background THEN _FREEIMAGE SL_sprite(handle).background '                      free background image if present
1030.     IF SL_sprite(handle).mask THEN _FREEIMAGE SL_sprite(handle).mask '                                  free sprite mask image if present
1031.     _FREEIMAGE SL_sprite(handle).sprite '                                                               free hardware sprite image
1032.     _FREEIMAGE SL_sprite(handle).image '                                                                free software sprite image
1033.  
1034.     IF handle = UBOUND(sl_sprite) AND handle <> 1 THEN '                                                is handle the last element in array?
1035.         REDIM _PRESERVE SL_sprite(handle - 1) AS SL_SPRITE '                                            yes, remove index and resize array
1036.     ELSE '                                                                                              no, index somewhere else
1037.         SL_sprite(handle).inuse = 0 '                                                          (FALSE)  mark index as usable later
1038.     END IF
1039.  
1040. END SUB
1041.  
1042. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1043. FUNCTION SL_NEW_SHEET (filename AS STRING, spritewidth AS INTEGER, spriteheight AS INTEGER, transparency AS INTEGER, transcolor AS _UNSIGNED LONG) '                                       SL_NEW_SHEET
1044.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1045.  
1046.     ' declare global variables
1047.  
1048.     SHARED SL_sheet() AS SL_SHEET '    master sprite sheet array
1049.     SHARED SL_rotate() AS SL_ROTATE '  precalculated rotation table
1050.  
1051.     ' declare local variables
1052.  
1053.     DIM handle AS INTEGER '             handle (pointer) number of new sprite sheet
1054.     DIM x AS INTEGER '                  generic counter to cycle through sheet sprite columns
1055.     DIM y AS INTEGER '                  generic counter to cycle through sheet sprite rows
1056.     DIM x1 AS INTEGER '                 generic counter to cycle though sprite for collision boundaries and mask creation
1057.     DIM y1 AS INTEGER '                 generic ocunter to cycle though sprite for collision boundaries and mask creation
1058.     DIM osource AS LONG '               original source image before this function was called
1059.     DIM odest AS LONG '                 original destination image before this function was called
1060.     DIM pixel AS _UNSIGNED LONG '       pixel color at each coordinate in sprite sheet
1061.     DIM alpha AS _UNSIGNED LONG '       alpha level of current pixel
1062.     DIM top AS INTEGER '                upper boundary of sprite image
1063.     DIM bottom AS INTEGER '             lower boundary of sprite image
1064.     DIM left AS INTEGER '               left boundary of sprite image
1065.     DIM right AS INTEGER '              right boundary of sprite image
1066.     DIM sheetimage AS LONG '            sprite sheet image
1067.     DIM sheetwidth AS INTEGER '         width of sprite sheet in pixels
1068.     DIM sheetheight AS INTEGER '        height of sprite sheet in pixels
1069.     DIM rows AS INTEGER '               number of sprite rows contained on sheet
1070.     DIM columns AS INTEGER '            number of sprite columns contained on sheet
1071.     DIM clearcolor AS _UNSIGNED LONG '  transcolor passed in will be modified
1072.     DIM tempsprite AS LONG '            temporary sprite for _CLEARCOLOR detection
1073.     DIM px(3) AS DOUBLE '               polar x coordinates of maptriangle
1074.     DIM py(3) AS DOUBLE '               polar y coordinates of maptriangle
1075.     DIM sinr AS DOUBLE '                sin rotation calculation
1076.     DIM cosr AS DOUBLE '                cosine rotation claculation
1077.     DIM bx1 AS DOUBLE '                 max boundaries of rotated sprite
1078.     DIM bx2 AS DOUBLE
1079.     DIM by1 AS DOUBLE
1080.     DIM by2 AS DOUBLE
1081.     DIM x2 AS DOUBLE '                  new computed polar coordinates
1082.     DIM y2 AS DOUBLE
1083.  
1084.     ' perform error checks
1085.  
1086.     IF NOT _FILEEXISTS(filename) THEN '                                                                 does the sprite sheet exist?
1087.         SL_ERROR "SL_NEW_SHEET", 100, filename '                                                        no, report error to programmer
1088.     END IF
1089.     IF ABS(transparency) > 1 THEN '                                                                     valid transparency setting?
1090.         SL_ERROR "SL_NEW_SHEET", 101, "" '                                                              no, report error to programmer
1091.     END IF
1092.     IF spritewidth < 1 OR spriteheight < 1 THEN '                                                       valid sprite width/height supplied?
1093.         SL_ERROR "SL_NEW_SHEET", 102, "" '                                                              no, report error to programmer
1094.     END IF
1095.     IF transparency = -1 AND UCASE$(RIGHT$(filename, 4)) <> ".PNG" THEN '                               wrong file type for transparency?
1096.         SL_ERROR "SL_NEW_SHEET", 103, UCASE$(RIGHT$(filename, 4)) '                                     yes, report error to programmer
1097.     END IF
1098.  
1099.     ' local variable setup
1100.  
1101.     sheetimage = _LOADIMAGE(filename, 32) '                                                             load sprite sheet file
1102.     sheetwidth = _WIDTH(sheetimage) '                                                                   get width of sheet
1103.     sheetheight = _HEIGHT(sheetimage) '                                                                 get height of sheet
1104.     columns = sheetwidth \ spritewidth '                                                                get number of whole columns of sprites
1105.     rows = sheetheight \ spriteheight '                                                                 get number of whole rows of sprites
1106.     IF columns < 1 OR rows < 1 THEN '                                                                   at least one sprite column and row on sheet?
1107.         SL_ERROR "SL_NEW_SHEET", 104, "" '                                                              no, report error to programmer
1108.     END IF
1109.     osource = _SOURCE '                                                                                 remember current source image
1110.     odest = _DEST '                                                                                     remember current destination image
1111.     handle = 0 '                                                                                        initialize handle value
1112.     clearcolor = transcolor '                                                                           get background/transparent color passed in
1113.  
1114.     ' increase sheet array's 1st dimension if needed to create a new sprite sheet
1115.  
1116.     DO '                                                                                                look for the next available handle
1117.         handle = handle + 1 '                                                                           increment the handle value
1118.     LOOP UNTIL (NOT SL_sheet(handle, 0, 0).image) OR handle = UBOUND(SL_sheet) '                        stop looking when valid handle value found
1119.     IF SL_sheet(handle, 0, 0).image = -1 THEN '                                                 (TRUE)  is the last array element in use?
1120.         handle = handle + 1 '                                                                           yes, increment the handle value
1121.         REDIM _PRESERVE SL_sheet(handle, UBOUND(SL_sheet, 2), UBOUND(SL_sheet, 3)) AS SL_SHEET '        create new sheet in sprite array
1122.         REDIM _PRESERVE SL_rotate(handle, UBOUND(SL_rotate, 2)) AS SL_ROTATE
1123.     END IF
1124.  
1125.     ' increase sheet array's 2nd and 3rd dimensions if needed to match number of rows and columns
1126.  
1127.     IF columns > UBOUND(SL_sheet, 2) THEN '                                                             more columns in this sheet than others?
1128.         REDIM _PRESERVE SL_sheet(handle, columns, UBOUND(SL_sheet, 3)) AS SL_SHEET '                    yes, increase the array's 2nd dimension to match
1129.     END IF
1130.     IF rows > UBOUND(SL_sheet, 3) THEN '                                                                more rows in this sheet than others?
1131.         REDIM _PRESERVE SL_sheet(handle, UBOUND(SL_sheet, 2), rows) AS SL_SHEET '                       yes, increase the array's 3rd dimension to match
1132.     END IF
1133.  
1134.     ' the variables in SL_sheet(x, 0, 0) will serve a dual purpose
1135.     ' SL_sheet(x, 0, 0).image will contain either -1 (true) or 0 (false) to indicate the first dimension of the array is in use.
1136.     ' SL_sheet(x, 0, 0).spritewidth will contain the number of columns contained in the sheet (the array's 2nd dimension)
1137.     ' SL_sheet(x, 0, 0).spriteheight will contain the number of rows contained in the sheet (the array's 3rd dimension)
1138.  
1139.     SL_sheet(handle, 0, 0).image = -1 '                                                         (TRUE)  mark as in use
1140.     SL_sheet(handle, 0, 0).spritewidth = columns '                                                      remember number of columns in sheet
1141.     SL_sheet(handle, 0, 0).spriteheight = rows '                                                        remember number of rows in sheet
1142.  
1143.     ' identify transparency of sprite sheet if requested
1144.  
1145.     IF transparency = -1 THEN '                                                 (constant SL_USESHEET)  sheet have alpha channel?
1146.         x = 0 '                                                                                         yes, start at upper left x of sheet
1147.         y = 0 '                                                                                         start at upper left y of sheet
1148.         alpha = 255 '                                                                                   assume no alpha channel
1149.         _SOURCE sheetimage '                                                                            set sprite sheet image as source image
1150.         DO '                                                                                            start looping through the sheet's pixels
1151.             pixel = POINT(x, y) '                                                                       get the pixel's color attributes
1152.             alpha = _ALPHA32(pixel) '                                                                   get the alpha level (0 - 255)
1153.             IF alpha = 0 THEN EXIT DO '                                                                 if it is transparent then leave the loop
1154.             x = x + 1 '                                                                                 move right one pixel
1155.             IF x > sheetwidth THEN '                                                                    have we gone off the sheet?
1156.                 x = 0 '                                                                                 yes, reset back to the left beginning
1157.                 y = y + 1 '                                                                             move down one pixel
1158.             END IF
1159.         LOOP UNTIL y > sheetheight '                                                                    don't stop until the entire sheet has been checked
1160.         IF alpha = 0 THEN '                                                                             did we find a transparent pixel?
1161.             tempsprite = _NEWIMAGE(1, 1, 32) '                                                          yes, create a temporary image         * why did I have to do
1162.             _CLEARCOLOR pixel, tempsprite '                                                             set pixel found as transparent        * this hack to get
1163.             clearcolor = _CLEARCOLOR(tempsprite) '                                                      get the transparent color from image  * clearcolor to come out
1164.             _FREEIMAGE tempsprite '                                                                     temporary image no longer needed      * to the right value?
1165.         ELSE '                                                                                          no transparency found within sheet
1166.             transparency = 1 '                                                                          set sheet to having no alpha channel
1167.         END IF
1168.     ELSEIF transparency = 0 THEN '                                                   (constant SL_SET)  manually set alpha channel?
1169.         _CLEARCOLOR clearcolor, sheetimage '                                                            yes, set color as transparent
1170.         clearcolor = _CLEARCOLOR(sheetimage) '                                                          get the transparent color ************* again, why this hack?
1171.     END IF
1172.  
1173.     ' load sprites from sheet and place into sprite array
1174.  
1175.     FOR x = 1 TO columns '                                                                              cycle through the sheet's columns
1176.         FOR y = 1 TO rows '                                                                             cycle through the sheet's rows
1177.             SL_sheet(handle, x, y).image = _NEWIMAGE(spritewidth, spriteheight, 32) '                   create software sprite image
1178.             IF transparency < 1 THEN '                                                                  should a mask be created?
1179.                 SL_sheet(handle, x, y).mask = _NEWIMAGE(spritewidth, spriteheight, 32) '                yes, create software sprite mask image
1180.                 _DEST SL_sheet(handle, x, y).mask '                                                     write to the mask image
1181.             ELSE
1182.                 SL_sheet(handle, x, y).transparency = 0 '                                      (FALSE)  set sprite as having no transparency
1183.             END IF
1184.             _PUTIMAGE , sheetimage, SL_sheet(handle, x, y).image,_
1185.                  ((x - 1) * spritewidth, (y - 1) * spriteheight)-_
1186.                  ((x - 1) * spritewidth + spritewidth - 1, (y - 1) * spriteheight + spriteheight - 1) ' copy sprite from sheet and place in sprite image
1187.  
1188.             ' precalculate collision boundaries and update sprite mask if needed
1189.  
1190.             _SOURCE SL_sheet(handle, x, y).image '                                                      work from the software sprite image
1191.             top = spriteheight - 1 '                                                                    set initial collision boundary markers
1192.             left = spritewidth - 1
1193.             bottom = 0
1194.             right = 0
1195.             FOR x1 = 0 TO spritewidth - 1 '                                                             cycle through the width of sprite
1196.                 FOR y1 = 0 TO spriteheight - 1 '                                                        cycle through the height of sprite
1197.                     IF POINT(x1, y1) <> clearcolor THEN '                                               is this pixel a transparent/background color?
1198.                         IF x1 < left THEN left = x1 '                                                   no, save position if left-most pixel
1199.                         IF y1 < top THEN top = y1 '                                                     save position if top-most pixel
1200.                         IF x1 > right THEN right = x1 '                                                 save position if right-most pixel
1201.                         IF y1 > bottom THEN bottom = y1 '                                               save position if bbottom-most pixel
1202.                     END IF
1203.                     IF transparency < 1 THEN '                                                          update software sprite mask?
1204.                         IF POINT(x1, y1) = clearcolor THEN '                                            yes, is this pixel a transparent/background color?
1205.                             PSET (x1, y1), _RGB32(255, 255, 255) '                                      yes, set as white on the mask image
1206.                         END IF
1207.                     END IF
1208.                 NEXT y1
1209.             NEXT x1
1210.             SL_sheet(handle, x, y).collx1 = left '                                                      collision box top left x
1211.             SL_sheet(handle, x, y).colly1 = top '                                                       collision box top left y
1212.             SL_sheet(handle, x, y).collx2 = right '                                                     collision box bottom right x
1213.             SL_sheet(handle, x, y).colly2 = bottom '                                                    collision box bottom right y
1214.             SL_sheet(handle, x, y).spritewidth = spritewidth '                                          remember sprite width
1215.             SL_sheet(handle, x, y).spriteheight = spriteheight '                                        remember sprite height
1216.         NEXT y
1217.     NEXT x
1218.     _FREEIMAGE sheetimage '                                                                             sprite sheet image no longer needed
1219.  
1220.     ' create precalculated rotation table for the sprite sheet (0 to 359 degrees)
1221.  
1222.     FOR x = 1 TO 359
1223.         'px(0) = (-spritewidth + 1) / 2 '                                                                upper left  x polar coordinate of sprite
1224.         'py(0) = (-spriteheight + 1) / 2 '                                                               upper left  y polar coordinate of sprite
1225.         px(0) = -spritewidth / 2 '                                                                      upper left  x polar coordinate of sprite
1226.         py(0) = -spriteheight / 2 '                                                                     upper left  y polar coordinate of sprite
1227.         px(1) = px(0) '                                                                                 lower left  x polar coordinate of sprite
1228.         'py(1) = (spriteheight -1) / 2 '                                                                 lower left  y polar coordinate of sprite
1229.         'px(2) = (spritewidth - 1) / 2 '                                                                 lower right x polar coordinate of sprite
1230.         py(1) = spriteheight / 2 '                                                                      lower left  y polar coordinate of sprite
1231.         px(2) = spritewidth / 2 '                                                                       lower right x polar coordinate of sprite
1232.         py(2) = py(1) '                                                                                 lower right y polar coordinate of sprite
1233.         px(3) = px(2) '                                                                                 upper right x polar coordinate of sprite
1234.         py(3) = py(0) '                                                                                 upper right y polar coordinate of sprite
1235.         sinr = SIN(-x / 57.2957795131) '                                                                calculate the sin of rotation
1236.         cosr = COS(-x / 57.2957795131) '                                                                calculate the cosine of rotation
1237.         bx1 = 0 '                                                                                       upper left x boundary of sprite
1238.         by1 = 0 '                                                                                       upper left y boundary of sprite
1239.         bx2 = 0 '                                                                                       lower right x boundary of sprite
1240.         by2 = 0 '                                                                                       lower right y boundary of sprite
1241.         FOR y = 0 TO 3 '                                                                                cycle through all four polar coordinates
1242.             x2 = (px(y) * cosr + sinr * py(y)) '                                                        compute new polar coordinate location
1243.             y2 = (py(y) * cosr - px(y) * sinr) '                                                        compute new polar coordinate location
1244.             px(y) = x2 '                                                                                save the new polar coordinate
1245.             py(y) = y2 '                                                                                save the new polar coordinate
1246.             IF px(y) < bx1 THEN bx1 = px(y) '                                                           save lowest  x value seen \  NOTE: use for
1247.             IF px(y) > bx2 THEN bx2 = px(y) '                                                           save highest x value seen  \ background image         <--------------------- LOOK
1248.             IF py(y) < by1 THEN by1 = py(y) '                                                           save lowest  y value seen  / rectangle coordinates
1249.             IF py(y) > by2 THEN by2 = py(y) '                                                           save highest y value seen /
1250.         NEXT y
1251.         SL_rotate(handle, x).rwidth = bx2 - bx1 + 1 '                                                   calculate width of rotated sprite
1252.         SL_rotate(handle, x).rheight = by2 - by1 + 1 '                                                  calculate height of rotated sprite
1253.         SL_rotate(handle, x).px0 = px(0) + ((bx2 - bx1 + 1) \ 2) '                                      calculate triangular coordinates
1254.         SL_rotate(handle, x).px1 = px(1) + ((bx2 - bx1 + 1) \ 2)
1255.         SL_rotate(handle, x).px2 = px(2) + ((bx2 - bx1 + 1) \ 2)
1256.         SL_rotate(handle, x).px3 = px(3) + ((bx2 - bx1 + 1) \ 2)
1257.         SL_rotate(handle, x).py0 = py(0) + ((by2 - by1 + 1) \ 2)
1258.         SL_rotate(handle, x).py1 = py(1) + ((by2 - by1 + 1) \ 2)
1259.         SL_rotate(handle, x).py2 = py(2) + ((by2 - by1 + 1) \ 2)
1260.         SL_rotate(handle, x).py3 = py(3) + ((by2 - by1 + 1) \ 2)
1261.  
1262.         'SL_rotate(handle, x).rwidth = bx2 - bx1 '                                                       calculate width of rotated sprite
1263.         'SL_rotate(handle, x).rheight = by2 - by1 '                                                      calculate height of rotated sprite
1264.         'SL_rotate(handle, x).px0 = px(0) + ((bx2 - bx1) / 2) '                                          calculate triangular coordinates
1265.         'SL_rotate(handle, x).px1 = px(1) + ((bx2 - bx1) / 2)
1266.         'SL_rotate(handle, x).px2 = px(2) + ((bx2 - bx1) / 2)
1267.         'SL_rotate(handle, x).px3 = px(3) + ((bx2 - bx1) / 2)
1268.         'SL_rotate(handle, x).py0 = py(0) + ((by2 - by1) / 2)
1269.         'SL_rotate(handle, x).py1 = py(1) + ((by2 - by1) / 2)
1270.         'SL_rotate(handle, x).py2 = py(2) + ((by2 - by1) / 2)
1271.         'SL_rotate(handle, x).py3 = py(3) + ((by2 - by1) / 2)
1272.  
1273.     NEXT x
1274.     _SOURCE osource '                                                                                   return source to current
1275.     _DEST odest '                                                                                       return destination to current
1276.     SL_NEW_SHEET = handle '                                                                             return the handle number pointing to this sheet
1277.  
1278. END FUNCTION
1279.  
1280. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1281. FUNCTION SL_VALID_SPRITE (handle AS INTEGER) '                                                                                                                                         SL_VALID_SPRITE
1282.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1283.  
1284.     ' declare global variables
1285.  
1286.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1287.  
1288.     IF handle > UBOUND(SL_SPRITE) OR (NOT SL_sprite(handle).inuse) OR handle < 1 THEN '                  is this a valid sprite handle?
1289.         SL_VALID_SPRITE = 0 '                                                                   (FALSE)  no, return 0
1290.     ELSE '                                                                                               yes, it is valid
1291.         SL_VALID_SPRITE = -1 '                                                                   (TRUE)  return -1
1292.     END IF
1293.  
1294. END FUNCTION
1295.  
1296. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1297. SUB SL_ERROR (routine AS STRING, errno AS INTEGER, info AS STRING) '                                                                                                                           SL_ERROR
1298.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1299.  
1300.     SCREEN 0, 0, 0, 0 '                                                                                 go to a pure text screen
1301.     _FONT 16 '                                                                                          set the standard screen 0 font
1302.     IF _FULLSCREEN THEN _FULLSCREEN _OFF '                                                              turn off full screen if on
1303.     _AUTODISPLAY '                                                                                      auto update the display
1304.     CLS '                                                                                               clear the screen
1305.     COLOR 10, 0
1306.     PRINT "                   **************************************" '                                 print error header
1307.     PRINT "                   ** Sprite Library Error Encountered **"
1308.     PRINT "                   **************************************"
1309.     PRINT
1310.     COLOR 15, 0
1311.     PRINT " "; routine;
1312.     COLOR 7, 0
1313.     PRINT " has reported error";
1314.     COLOR 30, 0
1315.     PRINT STR$(errno)
1316.     COLOR 7, 0
1317.     PRINT
1318.     SELECT CASE errno '                                                                                 which error number is being reported?
1319.  
1320.         ' general purpose errors for all subs/functions
1321.  
1322.         CASE 1
1323.             PRINT "- the requested sprite does not exist"
1324.         CASE 2
1325.             PRINT "- invalid background restore setting supplied - valid settings are"
1326.             PRINT "- : -1 (constant SL_SAVE)"
1327.             PRINT "- :  0 (constant SL_NOSAVE)"
1328.  
1329.             ' errors belonging to SL_NEW_SHEET (100 - 109)
1330.  
1331.         CASE 100
1332.             PRINT "- "; CHR$(34); info; CHR$(34); " sprite sheet does not exist"
1333.             PRINT "- check path or spelling"
1334.         CASE 101
1335.             PRINT "- invalid transparency setting supplied - valid settings are"
1336.             PRINT "- : -1 (constant SL_USESHEET)"
1337.             PRINT "- :  0 (constant SL_SET)"
1338.             PRINT "- :  1 (constant SL_NONE)"
1339.         CASE 102
1340.             PRINT "- sprite width and height must be greater than zero"
1341.         CASE 103
1342.             PRINT "- selecting to use a sheet's transparency only works with .PNG files"
1343.             PRINT "- the function was passed a "; info; " file."
1344.         CASE 104
1345.             PRINT "- there must be at least one column and one row of sprites on sheet"
1346.             PRINT "- the sheet being loaded does not meet these minimums"
1347.  
1348.             'errors belonging to SL_NEW_SPRITE (110 - 119)
1349.  
1350.         CASE 110
1351.             PRINT "- the specified sprite sheet is not in use or does not exist"
1352.         CASE 111
1353.             PRINT "- invalid row or column selected for specified sprite sheet"
1354.         CASE 112
1355.             PRINT "- invalid hardware / software setting supplied - valid settings are"
1356.             PRINT "- : -1 (constant SL_SOFTWARE)"
1357.             PRINT "- :  0 (constant SL_HARDWARE)"
1358.         CASE 113
1359.             PRINT "- there is no need to restore the background with hardware sprites"
1360.             PRINT "- change background restore setting to zero (0) (constant SL_NOSAVE)"
1361.  
1362.             ' errors belonging to SL_FLIP_SPRITE (120 - 129)
1363.  
1364.         CASE 120
1365.             PRINT "- invalid flip setting supplied - valid settings are"
1366.             PRINT "  : 0 (constant SL_NOFLIP)"
1367.             PRINT "  : 1 (constant SL_HORIZONTAL)"
1368.             PRINT "  : 2 (constant SL_VERTICAL)"
1369.             PRINT "  : 3 (constant SL_FLIPBOTH)"
1370.  
1371.             ' errors belonging to SL_ZOOM_SPRITE (130 - 139)
1372.  
1373.         CASE 130
1374.             PRINT "- invalid zoom level setting supplied"
1375.             PRINT "- zoom level must be greater than zero (0)"
1376.  
1377.             ' errors belonging to SL_SET_ROTATION_SPEED (140 - 149)
1378.  
1379.         CASE 140
1380.             PRINT "- rotation speed must be between -359 and 359 degrees"
1381.  
1382.             ' errors belonging to SL_SET_AUTOMOTION (150 - 159)
1383.  
1384.         CASE 150
1385.             PRINT "- invalid auto motion behavior requested - valid settings are"
1386.             PRINT "- : -1 (constant SL_START)"
1387.             PRINT "- :  0 (constant SL_STOP)"
1388.  
1389.             ' errors belonging to SL_SET_AUTOROTATE (160 - 169)
1390.  
1391.         CASE 160
1392.             PRINT "- invalid auto rotation behavior requested - valid settings are"
1393.             PRINT "- : -1 (constant SL_START)"
1394.             PRINT "- :  0 (constant SL_STOP)"
1395.  
1396.             ' errors belonging to SL_MOVE_SPRITE (170 - 179)
1397.  
1398.         CASE 170
1399.             PRINT "- the sprite requested is already under automatic movement control"
1400.  
1401.             ' errors belonging to SL_ROTATE_SPRITE (180 - 189)
1402.  
1403.         CASE 180
1404.             PRINT "- the sprite requested is already under automatic rotation control"
1405.  
1406.     END SELECT
1407.     COLOR 12, 0
1408.     PRINT
1409.     PRINT " See sprite library doumentation for further explanation."
1410.     COLOR 7, 0
1411.     DO: LOOP UNTIL INKEY$ = "" '                                                                        clear the keyboard buffer
1412.     END '                                                                                               end the program
1413.  
1414. END SUB
1415.  
1416.  

[Petr]

Hi,
could I ask you for a dkong.png file? :-D  oh, sorry i found it....

Nice and clear. It's a great job. I look forward to continuing.

[TerryRitchie]

I added the following commands today:

FUNCTION SL_FIX_DEGREES(degrees AS INTEGER)
- Returns a degree value between 0 and 359 for any given value

FUNCTION SL_GET_REALX (handle AS INTEGER)
- Return the single precision center point x value of a sprite

FUNCTION SL_GET_REALY (handle AS INTEGER)
- Return the single precision center point y value of a sprite

FUNCTION SL_GET_INTX (handle AS INTEGER)
- Return the integer center point x value of a sprite

FUNCTION SL_GET_INTY (handle AS INTEGER)
- Return the integer center point x value of a sprite

FUNCTION SL_GET_ACTUALX (handle AS INTEGER)
- Return the integer upper left point x value of a sprite

FUNCTION SL_GET_ACTUALY (handle AS INTEGER)
- Return the integer upper left point Y value of a sprite

FUNCTION SL_COPY_SPRITE (handle AS INTEGER)
- Create a copy of the given sprite

SUB SL_STAMP_SPRITE (x AS INTEGER, y AS INTEGER, sheet AS INTEGER, column AS INTEGER, row AS INTEGER, degrees AS INTEGER, flip AS INTEGER, zoom AS INTEGER)
- Stamp a software image of a sprite to the current destination with the given characteristics

Also made some internal modifications to how information is stored in data TYPES and arrays in preparation for the animation commands. Tomorrow I'll be tackling the animation commands and possibly some auto-travel  ideas I have from Steve's input on giving sprites a defined path to follow.

[codeguy]

Code: QB64: [Select]

1. ' if SL_EVENT_TRIGGER then 'check for event that was sent
2.  
3. OPTION _EXPLICIT ' need to remove before publishing library!!
4.  
5. '*
6. '* constant declarations
7. '*
8.  
9. '         CONSTANT NAME                                DESCRIPTION                          FUNCTIONS / SUBROUTINES THAT MAY USE THIS CONSTANT
10. ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
11. CONST SL_RESET = -32767 '               reset a function or subroutine                      SL_ROTATE_SPRITE, SL_FLIP_SPRITE, SL_ZOOM_SPRITE, SL_SET_AUTOROTATE, SL_SET_AUTOMOTION
12. CONST SL_NOFLIP = 0 '                   sprite will use no flipping                         SL_FLIP_SPRITE
13. CONST SL_HORIZONTAL = 1 '               sprite will be flipped horizontally                 SL_FLIP_SPRITE
14. CONST SL_VERTICAL = 2 '                 sprite will be flipped vertically                   SL_FLIP_SPRITE
15. CONST SL_FLIPBOTH = 3 '                 sprite will be flipped horizontally & vertically    SL_FLIP_SPRITE
16. CONST SL_USESHEET = -1 '                use sheet's transparency info (.PNG)                SL_NEW_SHEET
17. CONST SL_SET = 0 '                      manually set transparency                           SL_NEW_SHEET
18. CONST SL_NONE = 1 '                     don't use transparency with sheet                   SL_NEW_SHEET
19. CONST SL_NOSAVE = 0 '                   sprite will not save background                     SL_NEW_SPRITE, SL_SOFTWARE_SPRITE
20. CONST SL_SAVE = -1 '                    sprite will save background                         SL_NEW_SPRITE, SL_SOFTWARE_SPRITE
21. CONST SL_HARDWARE = 0 '                 sprite in hardware mode                             SL_NEW_SPRITE
22. CONST SL_SOFTWARE = -1 '                sprite in software mode                             SL_NEW_SPRITE
23. CONST SL_START = -1 '                   enable auto motion / rotation                       SL_SET_AUTOMOTION' SL_SET_AUTOROTATE
24. CONST SL_STOP = 0 '                     disable auto motion / rotation                      SL_SET_AUTOMOTION, SL_SET_AUTOROTATE
25.  
26. '*
27. '* type declarations
28. '*
29.  
30. TYPE SL_SHEET ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SPRITE SHEET DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
31.     image AS LONG '                     software sprite image
32.     mask AS LONG '                      software mask image
33.     spritewidth AS INTEGER '            width of sprite
34.     spriteheight AS INTEGER '           height of sprite
35.     collx1 AS INTEGER '                 collision box top left x
36.     colly1 AS INTEGER '                 collision box top left y
37.     collx2 AS INTEGER '                 collision box bottom right x
38.     colly2 AS INTEGER '                 collision box bottom right y
39.     transparency AS INTEGER '           -1 (TRUE) if sheet uses transparency
40. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
41.  
42. TYPE SL_SPRITE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SPRITE DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
43.     inuse AS INTEGER '                  this array index in use
44.     sheet AS INTEGER '                  sheet sprite belongs to
45.     column AS INTEGER '                 the column on the sheet the sprite resides
46.     row AS INTEGER '                    the row on the sheet the sprite resides
47.     sprite AS LONG '                    hardware image
48.     image AS LONG '                     software image
49.     mask AS LONG '                      software mask image
50.     spritewidth AS INTEGER '            width of sprite
51.     spriteheight AS INTEGER '           height of sprite
52.     background AS LONG '                background hardware image behind sprite
53.     xreal AS SINGLE '                   x location of sprite (center point)
54.     yreal AS SINGLE '                   y location of sprite (center point)
55.     xint AS INTEGER '                   x location of sprite on screen INT(xreal) (center point)
56.     yint AS INTEGER '                   y location of sprite on screen INT(yreal) (center point)
57.     xactual AS INTEGER '                x location of sprite on screen (upper left x)
58.     yactual AS INTEGER '                y location of sprite on screen (upper left y)
59.     xback AS INTEGER '                  background image x location
60.     yback AS INTEGER '                  background image y location
61.     xdir AS SINGLE '                    direction of sprite in x axis
62.     ydir AS SINGLE '                    direction of sprite in y axis
63.     restore AS INTEGER '                -1 (true) if sprite restores background
64.     collx1 AS INTEGER '                 collision box top left x
65.     colly1 AS INTEGER '                 collision box top left y
66.     collx2 AS INTEGER '                 collision box bottom right x
67.     colly2 AS INTEGER '                 collision box bottom right y
68.     flip AS INTEGER '                   flip horizontally, vertically, or both
69.     rotation AS INTEGER '                rotation angle of sprite (0 - 359)
70.     transparency AS INTEGER '           -1 (TRUE) if sprite uses transparency
71.     zoom AS INTEGER '                   zoom level of sprite (1% - x%)
72.     software AS INTEGER '               -1 (TRUE) if sprite is to be treated as software image
73.     spin AS INTEGER '                   if other than zero the sprite will automatically spin
74.     speed AS INTEGER '                  speed of sprite during motion
75.     direction AS INTEGER '              the direction of sprite during motion (0 - 359)
76.     automotion AS INTEGER '             -1 (TRUE) if automotion turned on
77.     autorotate AS INTEGER '             -1 (TRUE) if auto rotation turned on
78.  
79. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
80.  
81. TYPE SL_ROTATE 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ PRECALCULATED ROTATION TABLE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
82.     rwidth AS INTEGER '                 width of rotated sprite
83.     rheight AS INTEGER '                height of rotated sprite
84.     px0 AS INTEGER '                    rectangular rotation coordinates
85.     px1 AS INTEGER
86.     px2 AS INTEGER
87.     px3 AS INTEGER
88.     py0 AS INTEGER
89.     py1 AS INTEGER
90.     py2 AS INTEGER
91.     py3 AS INTEGER
92. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
93.  
94. '*
95. '* dynamic array declarations
96. '*
97.  
98. REDIM SL_sheet(1, 1, 1) AS SL_SHEET '   master sprite sheet array
99. REDIM SL_sprite(1) AS SL_SPRITE '       master working sprite array
100. REDIM SL_rotate(1, 359) AS SL_ROTATE '  precalculated rotation values
101.  
102. '*
103. '* main code (for testing)
104. '*
105.  
106. DIM kongsheet AS INTEGER
107. DIM mysprite AS INTEGER
108. DIM mysprite2 AS INTEGER
109. DIM x AS SINGLE
110. DIM y AS INTEGER
111. DIM angle AS INTEGER
112.  
113. kongsheet = SL_NEW_SHEET("dkong.png", 64, 64, SL_SET, _RGB32(255, 0, 255))
114. mysprite = SL_NEW_SPRITE(kongsheet, 1, 1, SL_HARDWARE, SL_NOSAVE)
115. mysprite2 = SL_NEW_SPRITE(kongsheet, 1, 1, SL_SOFTWARE, SL_NOSAVE)
116.  
117. 'SL_SET_ROTATION mysprite, 45
118. 'SL_SET_ROTATION_SPEED mysprite, 1
119. 'SL_SET_AUTOROTATE mysprite, SL_START
120. 'SL_FLIP_SPRITE mysprite, SL_HORIZONTAL
121. 'SL_SET_ZOOM mysprite, 125
122.  
123.  
124.  
125.  
126. SCREEN _NEWIMAGE(640, 480, 32)
127. CLS
128. CIRCLE (128, 128), 64, _RGB32(255, 255, 255)
129. x = 128
130. y = 128
131.  
132. SL_PUT_SPRITE 128, 128, mysprite2
133.  
134. DO
135.     _LIMIT 30
136.     angle = SL_Correct_Degree_Angle_To_360%(angle + 1)
137.     '* angle = (angle + 1) MOD 360 ': IF angle = 360 THEN angle = 0
138.     SL_SET_ROTATION mysprite, angle
139.     SL_PUT_SPRITE x, y, mysprite
140.     x = x + 1
141.     'IF INT(x) = 300 THEN
142.     '    SL_SET_SOFTWARE mysprite, SL_NOSAVE
143.     'END IF
144.     IF INT(x) = 401 THEN x = 400
145.     _DISPLAY
146. LOOP UNTIL _KEYHIT
147.  
148. SL_FREE_SPRITE mysprite
149. SL_FREE_SPRITE mysprite2
150.  
151. END
152.  
153.  
154.  
155.  
156. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
157. SUB SL_UPDATE_AUTO_SPRITES () '                                                                                                                                                  SL_UPDATE_AUTO_SPRITES
158.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
159.  
160.     ' declare global variables
161.  
162.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
163.  
164.     ' declare local variables
165.  
166.     DIM handle AS INTEGER '             handle of sprite
167.  
168.     ' local variable setup
169.  
170.     handle = 0 '                                                                                                initialize handle counter
171.  
172.     DO
173.         handle = handle + 1
174.         IF SL_sprite(handle).inuse THEN '                                                                       is this a valid sprite?
175.             IF SL_sprite(handle).automotion THEN '                                                              yes, is auto motion enabled?
176.                 SL_sprite(handle).xreal = SL_sprite(handle).xreal + SL_sprite(handle).xdir '                    yes, update x location
177.                 SL_sprite(handle).yreal = SL_sprite(handle).yreal + SL_sprite(handle).ydir '                    update y location
178.             END IF
179.             IF SL_sprite(handle).autorotate THEN '                                                              is auto rotation enabled?
180.                 SL_SET_ROTATION handle, SL_sprite(handle).rotation + SL_sprite(handle).spin '                   yes, rotate sprite to next degree angle
181.             END IF
182.             SL_PUT_SPRITE SL_sprite(handle).xreal, SL_sprite(handle).yreal, handle '                            update sprite location
183.         END IF
184.     LOOP UNTIL handle = UBOUND(SL_sprite) '                                                                     leave when all indexes checked
185.  
186. END SUB
187.  
188. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
189. SUB SL_MOVE_SPRITE (handle AS INTEGER) '                                                                                                                                                 SL_MOVE_SPRITE
190.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
191.  
192.     ' declare global variables
193.  
194.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
195.  
196.     ' perform error checks
197.  
198.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
199.         SL_ERROR "SL_MOVE_SPRITE", 1, "" '                                                              no, report error to programmer
200.     END IF
201.     IF SL_sprite(handle).automotion THEN '                                                              attempt to move sprite under automatic control?
202.         SL_ERROR "SL_MOVE_SPRITE", 170, "" '                                                            yes, report error to programmer
203.     END IF
204.  
205.     SL_sprite(handle).xreal = SL_sprite(handle).xreal + SL_sprite(handle).xdir '                        update x location
206.     SL_sprite(handle).yreal = SL_sprite(handle).yreal + SL_sprite(handle).ydir '                        update y location
207.     SL_PUT_SPRITE SL_sprite(handle).xreal, SL_sprite(handle).yreal, handle '                            update sprite location
208.  
209. END SUB
210.  
211. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
212. SUB SL_ROTATE_SPRITE (handle AS INTEGER) '                                                                                                                                             SL_ROTATE_SPRITE
213.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
214.  
215.     ' declare global variables
216.  
217.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
218.  
219.     ' perform error checks
220.  
221.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
222.         SL_ERROR "SL_ROTATE_SPRITE", 1, "" '                                                            no, report error to programmer
223.     END IF
224.     IF SL_sprite(handle).autorotate THEN '                                                              attempt to rotate sprite under automatic control?
225.         SL_ERROR "SL_ROTATE_SPRITE", 180, "" '                                                          yes, report error to programmer
226.     END IF
227.  
228.     SL_SET_ROTATION handle, SL_sprite(handle).rotation + SL_sprite(handle).spin '                       rotate sprite to next degree angle
229.  
230. END SUB
231.  
232. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
233. SUB SL_SET_DIRECTION (handle AS INTEGER, degrees AS INTEGER) '                                                                                                                         SL_SET_DIRECTION
234.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
235.  
236.     ' declare global variables
237.  
238.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
239.  
240.     ' delcare local variables
241.  
242.     DIM degree AS INTEGER '             degree angle passed in
243.  
244.     ' perform error checks
245.  
246.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
247.         SL_ERROR "SL_SET_DIRECTION", 1, "" '                                                            no, report error to programmer
248.     END IF
249.  
250.     ' Correct degree angle if needed (needs to be 0 - 359)
251.     ' This code supplants the next now commented block
252.     degree = SL_Correct_Degree_Angle_To_360%(degrees)
253.  
254.     'DIM moddegree360 AS INTEGER '                                                                      This value will always be BETWEEN -360 and 360 (ie: -359 to 359)
255.     'moddegree360 = degree MOD 360
256.     'IF moddegree360 < 0 THEN
257.     '    degree = moddegree360 + 360
258.     'ELSE
259.     '    degree = moddegree360
260.     'END IF
261.  
262.     'degree = degrees '                                                                                  get degree angle passed in
263.     'IF degree = 360 THEN '                                                                              is it 360?
264.     '    degree = 0 '                                                                                    yes, that's the same as 0
265.     'ELSEIF degree < 0 THEN '                                                                            is it less than 360?
266.     '    DO '                                                                                            yes
267.     '        degree = degree + 360 '                                                                     increase by 360
268.     '    LOOP UNTIL degree > 0 '                                                                         until it's in a valid range
269.     'ELSEIF degree > 360 THEN '                                                                          is it greater than 360?
270.     '    DO '                                                                                            yes
271.     '        degree = degree - 360 '                                                                     decrease by 360
272.     '    LOOP UNTIL degree < 360 '                                                                       until it's in a valid range
273.     'END IF
274.  
275.     SL_sprite(handle).direction = degree '                                                              set motion degree angle
276.     SL_sprite(handle).xdir = SIN(degree * 3.1415926 / 180) * SL_sprite(handle).speed '                  calculate x vector
277.     SL_sprite(handle).ydir = -COS(degree * 3.1415926 / 180) * SL_sprite(handle).speed '                 calculate y vector
278.  
279. END SUB
280.  
281. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
282. FUNCTION SL_GET_DIRECTION (handle AS INTEGER) '                                                                                                                                        SL_GET_DIRECTION
283.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
284.  
285.     ' declare global variables
286.  
287.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
288.  
289.     ' perform error checks
290.  
291.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
292.         SL_ERROR "SL_GET_DIRECTION", 1, "" '                                                            no, report error to programmer
293.     END IF
294.  
295.     SL_GET_DIRECTION = SL_sprite(handle).direction '                                                    return direction sprite currently set to
296.  
297. END FUNCTION
298.  
299. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
300. SUB SL_SET_MOTION_SPEED (handle AS INTEGER, speed AS SINGLE) '                                                                                                                      SL_SET_MOTION_SPEED
301.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
302.  
303.     ' declare global variables
304.  
305.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
306.  
307.     ' perform error checks
308.  
309.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
310.         SL_ERROR "SL_SET_MOTION_SPEED", 1, "" '                                                         no, report error to programmer
311.     END IF
312.  
313.     SL_sprite(handle).speed = speed '                                                                   set sprite motion speed
314.  
315. END SUB
316.  
317. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
318. FUNCTION SL_GET_MOTION_SPEED (handle AS INTEGER) '                                                                                                                                  SL_GET_MOTION_SPEED
319.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
320.  
321.     ' declare global variables
322.  
323.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
324.  
325.     ' perform error checks
326.  
327.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
328.         SL_ERROR "SL_GET_MOTION_SPEED", 1, "" '                                                         no, report error to programmer
329.     END IF
330.  
331.     SL_GET_MOTION_SPEED = SL_sprite(handle).speed '                                                     return current sprite motion speed
332.  
333. END FUNCTION
334.  
335. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
336. SUB SL_SET_AUTOMOTION (handle AS INTEGER, motion AS INTEGER) '                                                                                                                        SL_SET_AUTOMOTION
337.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
338.  
339.     ' declare global variables
340.  
341.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
342.  
343.     IF motion = -32767 THEN '                                                               (SL_RESET)  reset auto motion?
344.         SL_sprite(handle).automotion = 0 '                                                     (FALSE)  yes, turn auto motion off
345.         EXIT SUB '                                                                                      leave subroutine
346.     END IF
347.  
348.     ' perform error checks
349.  
350.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
351.         SL_ERROR "SL_SET_AUTOMOTION", 1, "" '                                                           no, report error to programmer
352.     END IF
353.     IF motion < -1 OR motion > 0 THEN
354.         SL_ERROR "SL_SET_AUTOMOTION", 150, ""
355.     END IF
356.  
357.     SL_sprite(handle).automotion = motion '                                             (TRUE & FALSE)  set auto motion status
358.  
359. END SUB
360.  
361. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
362. FUNCTION SL_GET_AUTOMOTION (handle AS INTEGER) '                                                                                                                                      SL_GET_AUTOMOTION
363.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
364.  
365.     ' declare global variables
366.  
367.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
368.  
369.     ' perform error checks
370.  
371.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
372.         SL_ERROR "SL_GET_AUTOMOTION", 1, "" '                                                           no, report error to programmer
373.     END IF
374.  
375.     SL_GET_AUTOMOTION = SL_sprite(handle).automotion '                                  (TRUE & FALSE)  return auto motion status
376.  
377. END FUNCTION
378.  
379. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
380. SUB SL_SET_AUTOROTATE (handle AS INTEGER, rotate AS INTEGER) '                                                                                                                        SL_SET_AUTOROTATE
381.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
382.  
383.     ' declare global variables
384.  
385.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
386.  
387.     IF rotate = -32767 THEN '                                                               (SL_RESET)  reset auto rotate?
388.         SL_sprite(handle).autorotate = 0 '                                                     (FALSE)  yes, turn auto rotation off
389.         EXIT SUB '                                                                                      leave subroutine
390.     END IF
391.  
392.     ' perform error checks
393.  
394.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
395.         SL_ERROR "SL_SET_AUTOROTATE", 1, "" '                                                           no, report error to programmer
396.     END IF
397.     IF rotate < -1 OR rotate > 0 THEN
398.         SL_ERROR "SL_SET_AUTOROTATE", 160, ""
399.     END IF
400.  
401.     SL_sprite(handle).autorotate = rotate '                                             (TRUE & FALSE)  set auto rotation status
402.  
403. END SUB
404.  
405. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
406. FUNCTION SL_GET_AUTOROTATE (handle AS INTEGER) '                                                                                                                                      SL_GET_AUTOROTATE
407.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
408.  
409.     ' declare global variables
410.  
411.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
412.  
413.     ' perform error checks
414.  
415.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
416.         SL_ERROR "SL_GET_AUTOROTATE", 1, "" '                                                           no, report error to programmer
417.     END IF
418.  
419.     SL_GET_AUTOROTATE = SL_sprite(handle).autorotate '                                  (TRUE & FALSE)  return auto rotation status
420.  
421. END FUNCTION
422.  
423. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
424. SUB SL_SET_ROTATION_SPEED (handle AS INTEGER, degrees AS INTEGER) '                                                                                                               SL_SET_ROTATION_SPEED
425.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
426.  
427.     ' declare global variables
428.  
429.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
430.  
431.     ' perform error checks
432.  
433.     IF degrees = -32767 THEN '                                                              (SL_RESET)  reset requested?
434.         SL_sprite(handle).spin = 0 '                                                         (SL_STOP)  turn auto spin off
435.         EXIT SUB '                                                                                      leave subroutine
436.     END IF
437.  
438.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
439.         SL_ERROR "SL_SET_ROTATION_SPEED", 1, "" '                                                       no, report error to programmer
440.     END IF
441.     IF ABS(degrees) > 359 THEN '                                                                        degree requested between -359 and 359?
442.         SL_ERROR "SL_SET_ROTATION_SPEED", 140, "" '                                                     no, report error to programmer
443.     END IF
444.  
445.     SL_sprite(handle).spin = degrees '                                                                  set sprite spin rate
446.  
447. END SUB
448.  
449. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
450. FUNCTION SL_GET_ROTATION_SPEED (handle AS INTEGER) '                                                                                                                              SL_GET_ROTATION_SPEED
451.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
452.  
453.     ' declare global variables
454.  
455.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
456.  
457.     ' perform error checks
458.  
459.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
460.         SL_ERROR "SL_GET_ROTATION_SPEED", 1, "" '                                                       no, report error to programmer
461.     END IF
462.  
463.     SL_GET_ROTATION_SPEED = SL_sprite(handle).spin '                                                    return current sprite spin rate
464.  
465. END FUNCTION
466.  
467. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
468. FUNCTION SL_GET_DISTANCE_POINT_TO_POINT (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER) '                                                                   SL_GET_DISTANCE_POINT_TO_POINT
469.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
470.  
471.     'declare local variables
472.  
473.     DIM a AS INTEGER '                  side a of triangle
474.     DIM b AS INTEGER '                  side b of triangle
475.  
476.     'solve for c (hypotenuse)
477.  
478.     a = x1 - x2 '                                                                                       get length of side a
479.     b = y1 = y2 '                                                                                       get length of side b
480.  
481.     SL_GET_DISTANCE_POINT_TO_POINT = INT(SQR(a * a + b * b)) '                                          return length of side c
482.  
483. END FUNCTION
484.  
485. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
486. FUNCTION SL_GET_DISTANCE_TO_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                 SL_GET_DISTANCE_TO_SPRITE
487.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
488.  
489.     ' declare global variables
490.  
491.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
492.  
493.     'perform error checks
494.  
495.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
496.         SL_ERROR "SL_GET_DISTANCE_TO_SPRITE", 1, "" '                                                   no, report error to programmer
497.     END IF
498.  
499.     SL_GET_DISTANCE_TO_SPRITE = SL_GET_DISTANCE_POINT_TO_POINT(SL_sprite(handle1).xint, SL_sprite(handle1).yint, _
500.                                                                SL_sprite(handle2).xint, SL_sprite(handle2).yint) '  return distance to sprite 2
501.  
502. END FUNCTION
503.  
504. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
505. FUNCTION SL_GET_DISTANCE_TO_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER) '                                                                                            SL_GET_DISTANCE_TO_POINT
506.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
507.  
508.     ' declare global variables
509.  
510.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
511.  
512.     'perform error checks
513.  
514.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
515.         SL_ERROR "SL_GET_DISTANCE_TO_POINT", 1, "" '                                                    no, report error to programmer
516.     END IF
517.  
518.     SL_GET_DISTANCE_TO_POINT = SL_GET_DISTANCE_POINT_TO_POINT(SL_sprite(handle).xint, SL_sprite(handle).yint, x, y) ' return distance to point
519.  
520. END FUNCTION
521.  
522. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
523. FUNCTION SL_GET_ANGLE_POINT_TO_POINT (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER) '                                                                         SL_GET_ANGLE_POINT_TO_POINT
524.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
525.  
526.     'declare local variables
527.  
528.     DIM angle AS INTEGER '              angle from first x,y location to second x,y location
529.  
530.     IF y1 = y2 THEN '                                                                                   both y values same?
531.         IF x1 = x2 THEN '                                                                               yes, both x values same?
532.             EXIT FUNCTION '                                                                             yes, there is no angle (0), leave
533.         END IF
534.         IF x2 > x1 THEN '                                                                               is second x to the right of first x?
535.             SL_GET_ANGLE_POINT_TO_POINT = 90 '                                                          yes, the angle must be 90 degrees
536.         ELSE '                                                                                          no, second x is to the left of first x
537.             SL_GET_ANGLE_POINT_TO_POINT = 270 '                                                         the angle must be 270 degrees
538.         END IF
539.         EXIT FUNCTION '                                                                                 leave function, angle computed
540.     END IF
541.     IF x1 = x2 THEN '                                                                                   both x values same?
542.         IF y2 > y1 THEN '                                                                               yes, is second y lower than first y?
543.             SL_GET_ANGLE_POINT_TO_POINT = 180 '                                                         yes, the angle must be 180
544.         END IF
545.         EXIT FUNCTION '                                                                                 leave function, angle computed (angle is 0 if no calculation done)
546.     END IF
547.     angle = ATN((x2 - x1) / (y2 - y1)) * -57.2957795131 '                                               calculate initial angle
548.     IF y2 < y1 THEN '                                                                                   is second y higher than first y?
549.         IF x2 > x1 THEN '                                                                               yes, is second x to right of first x?
550.             SL_GET_ANGLE_POINT_TO_POINT = angle '                                                       yes, angle needs no adjustment
551.         ELSE '                                                                                          no, second x is to left of first x
552.             SL_GET_ANGLE_POINT_TO_POINT = angle + 360 '                                                 adjust angle accordingly
553.         END IF
554.     ELSE '                                                                                              no, second y is lower than first y
555.         SL_GET_ANGLE_POINT_TO_POINT = angle + 180 '                                                     adjust angle accordingly
556.     END IF
557.  
558. END FUNCTION
559.  
560. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
561. FUNCTION SL_GET_ANGLE_TO_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                       SL_GET_ANGLE_TO_SPRITE
562.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
563.  
564.     ' declare global variables
565.  
566.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
567.  
568.     'perform error checks
569.  
570.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
571.         SL_ERROR "SL_GET_ANGLE_TO_SPRITE", 1, "" '                                                      no, report error to programmer
572.     END IF
573.  
574.     SL_GET_ANGLE_TO_SPRITE = SL_GET_ANGLE_POINT_TO_POINT(SL_sprite(handle1).xint, SL_sprite(handle1).yint, _
575.                                                          SL_sprite(handle2).xint, SL_sprite(handle2).yint) ' return angle to sprite 2
576.  
577. END FUNCTION
578.  
579. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
580. FUNCTION SL_GET_ANGLE_FROM_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                   SL_GET_ANGLE_FROM_SPRITE
581.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
582.  
583.     ' declare global variables
584.  
585.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
586.  
587.     'perform error checks
588.  
589.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
590.         SL_ERROR "SL_GET_ANGLE_FROM_SPRITE", 1, "" '                                                    no, report error to programmer
591.     END IF
592.  
593.     SL_GET_ANGLE_FROM_SPRITE = SL_GET_ANGLE_POINT_TO_POINT(SL_sprite(handle2).xint, SL_sprite(handle2).yint, _
594.                                                            SL_sprite(handle1).xint, SL_sprite(handle1).yint) '  return angle from sprite 2
595.  
596. END FUNCTION
597.  
598. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
599. FUNCTION SL_GET_ANGLE_TO_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER) '                                                                                                  SL_GET_ANGLE_TO_POINT
600.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
601.  
602.     ' declare global variables
603.  
604.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
605.  
606.     'perform error checks
607.  
608.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
609.         SL_ERROR "SL_GET_ANGLE_TO_POINT", 1, "" '                                                       no, report error to programmer
610.     END IF
611.  
612.     SL_GET_ANGLE_TO_POINT = SL_GET_ANGLE_POINT_TO_POINT(SL_sprite(handle).xint, SL_sprite(handle).yint, x, y) ' return angle to point x,y
613.  
614. END FUNCTION
615.  
616. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
617. FUNCTION SL_GET_ANGLE_FROM_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER) '                                                                                              SL_GET_ANGLE_FROM_POINT
618.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
619.  
620.     ' declare global variables
621.  
622.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
623.  
624.     'perform error checks
625.  
626.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
627.         SL_ERROR "SL_GET_ANGLE_FROM_POINT", 1, "" '                                                     no, report error to programmer
628.     END IF
629.  
630.     SL_GET_ANGLE_FROM_POINT = SL_GET_ANGLE_POINT_TO_POINT(x, y, SL_sprite(handle).xint, SL_sprite(handle).yint) 'return angle from point x,y
631.  
632. END FUNCTION
633.  
634. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
635. SUB SL_SET_SOFTWARE (handle AS INTEGER, restores AS INTEGER) '                                                                                                                          SL_SET_SOFTWARE
636.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
637.  
638.     ' declare global variables
639.  
640.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
641.  
642.     'perform error checks
643.  
644.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
645.         SL_ERROR "SL_SET_SOFTWARE", 1, "" '                                                             no, report error to programmer
646.     END IF
647.     IF restores < -1 OR restores > 0 THEN '                                                             valid background restoration behavior requested?
648.         SL_ERROR "SL_SET_SOFTWARE", 2, "" '                                                             no, report error to programmer
649.     END IF
650.  
651.     SL_sprite(handle).software = -1 '                                                    (SL_SOFTWARE)  set sprite to software mode
652.     SL_sprite(handle).restore = restores '                                       (SL_SAVE & SL_NOSAVE)  set background saving behavior
653.  
654. END SUB
655.  
656. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
657. SUB SL_SET_HARDWARE (handle AS INTEGER) '                                                                                                                                               SL_SET_HARDWARE
658.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
659.  
660.     ' declare global variables
661.  
662.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
663.  
664.     'perform error checks
665.  
666.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
667.         SL_ERROR "SL_SET_HARDWARE", 1, "" '                                                             no, report error to programmer
668.     END IF
669.  
670.     SL_sprite(handle).software = 0 '                                                     (SL_HARDWARE)  set sprite to hardware mode
671.  
672. END SUB
673.  
674. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
675. SUB SL_SET_ZOOM (handle AS INTEGER, zoom AS INTEGER) '                                                                                                                                      SL_SET_ZOOM
676.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
677.  
678.     ' declare global variables
679.  
680.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
681.  
682.     IF zoom = -32767 THEN '                                                                 (SL_RESET)  reset zoom level?
683.         SL_sprite(handle).zoom = 100 '                                                                  yes, reset level to normal
684.         EXIT SUB '                                                                                      leave subroutine
685.     END IF
686.  
687.     ' perform error checks (errors 130-139)
688.  
689.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
690.         SL_ERROR "SL_SET_ZOOM", 1, "" '                                                                 no, report error to programmer
691.     END IF
692.     IF zoom < 1 THEN '                                                                                  valid zoom level requested?
693.         SL_ERROR "SL_SET_ZOOM", 130, "" '                                                               no, report error to programmer
694.     END IF
695.  
696.     SL_sprite(handle).zoom = zoom '                                                                     set zoom level
697.  
698. END SUB
699.  
700.  
701. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
702. SUB SL_SET_ROTATION (handle AS INTEGER, degrees AS INTEGER) '                                                                                                                           SL_SET_ROTATION
703.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
704.  
705.     ' declare global variables
706.  
707.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
708.  
709.     ' declare local variables
710.  
711.     DIM degree AS INTEGER '             degree angle passed in
712.  
713.     ' perform error checks
714.  
715.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
716.         SL_ERROR "SL_SET_ROTATION", 1, "" '                                                             no, report error to programmer
717.     END IF
718.  
719.     degree = degrees '                                                                                  get degree angle passed in
720.  
721.     'handle reset request
722.  
723.     IF degree = -32767 THEN '                                                               (SL_RESET)  reset sprite rotation?
724.         SL_sprite(handle).rotation = 0 '                                                                reset rotation angle
725.         EXIT SUB '                                                                                      leave subroutine
726.     END IF
727.  
728.     ' correct degree angle if needed (needs to be 0 - 359)
729.     degree = SL_Correct_Degree_Angle_To_360%(degree)
730.     'IF degree = 360 THEN '                                                                              is it 360?
731.     '    degree = 0 '                                                                                    yes, that's the same as 0
732.     'ELSEIF degree < 0 THEN '                                                                            is it less than 360?
733.     '    DO '                                                                                            yes
734.     '        degree = degree + 360 '                                                                     increase by 360
735.     '    LOOP UNTIL degree > 0 '                                                                         until it's in a valid range
736.     'ELSEIF degree > 360 THEN '                                                                          is it greater than 360?
737.     '    DO '                                                                                            yes
738.     '        degree = degree - 360 '                                                                     decrease by 360
739.     '    LOOP UNTIL degree < 360 '                                                                       until it's in a valid range
740.     'END IF
741.  
742.     SL_sprite(handle).rotation = degree '                                                               set degree of rotation
743.  
744. END SUB
745.  
746. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
747. SUB SL_FLIP_SPRITE (handle AS INTEGER, flip AS INTEGER) '                                                                                                                                SL_FLIP_SPRITE
748.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
749.  
750.     ' declare global variables
751.  
752.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
753.  
754.     ' check for subroutine reset
755.  
756.     IF flip = -32767 THEN '                                                                 (SL_RESET)  reset flipping behavior?
757.         SL_sprite(handle).flip = 0 '                                                       (SL_NOFLIP)  yes, reset flip value
758.         EXIT SUB '                                                                                      leave subroutine
759.     END IF
760.  
761.     ' perform error checks
762.  
763.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
764.         SL_ERROR "SL_FLIP_SPRITE", 1, "" '                                                              no, report error to programmer
765.     END IF
766.     IF flip < 0 OR flip > 3 THEN '                                                                      valid flip behavior requested?
767.         SL_ERROR "SL_FLIP_SPRITE", 120, "" '                                                            no, report error to programmer
768.     END IF
769.  
770.     SL_sprite(handle).flip = flip '                                                                     set flipping behavior
771.  
772. END SUB
773.  
774. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
775. SUB SL_PUT_SPRITE (x AS SINGLE, y AS SINGLE, handle AS INTEGER) '                                                                                                                         SL_PUT_SPRITE
776.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
777.  
778.     ' declare global variables
779.  
780.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
781.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
782.     SHARED SL_rotate() AS SL_ROTATE '   precalculated rotation table
783.  
784.     ' declare local variables
785.  
786.     DIM xa AS INTEGER '                 actual x location of sprite on screen
787.     DIM ya AS INTEGER '                 actual y location of sprite on screen
788.     DIM sw AS INTEGER '                 width of sprite to be drawn
789.     DIM sh AS INTEGER '                 height of sprite to be drawn
790.     DIM rw AS INTEGER '                 precalculated rotated sprite width
791.     DIM rh AS INTEGER '                 precalculated rotated sprite height
792.     DIM px0 AS INTEGER '                precalculated triangular coordinates
793.     DIM px1 AS INTEGER
794.     DIM px2 AS INTEGER
795.     DIM px3 AS INTEGER
796.     DIM py0 AS INTEGER
797.     DIM py1 AS INTEGER
798.     DIM py2 AS INTEGER
799.     DIM py3 AS INTEGER
800.     DIM image AS LONG '                 software sprite image
801.     DIM mask AS LONG '                  software sprite image mask
802.     DIM sprite AS LONG '                hardware sprite image
803.  
804.     ' perform error checks
805.  
806.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
807.         SL_ERROR "SL_PUT_SPRITE", 1, "" '                                                               no, report error to programmer
808.     END IF
809.  
810.     ' check for auto motion
811.  
812.     'IF SL_sprite(handle).automotion THEN '                                                              is this sprite auto motion?
813.     '    EXIT SUB '                                                                                      yes, SL_UPDATE_AUTO_SPRITES handles it, leave subroutine
814.     'END IF
815.  
816.     'local variable setup
817.  
818.     SL_sprite(handle).xreal = x '                                                             (SINGLE)  save requested x center location
819.     SL_sprite(handle).yreal = y '                                                             (SINGLE)  save requested y center location
820.     SL_sprite(handle).xint = INT(x) '                                                        (INTEGER)  save screen x center location
821.     SL_sprite(handle).yint = INT(y) '                                                        (INTEGER)  save screen y center location
822.     image = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).column, SL_sprite(handle).row).image '  get image from sprite sheet
823.     mask = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).column, SL_sprite(handle).row).mask '    get mask from sprite sheet
824.     sw = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).column, SL_sprite(handle).row).spritewidth 'get default sprite width from sprite sheet
825.     sh = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).column, SL_sprite(handle).row).spriteheight 'get default sprite height from sprite sheet
826.  
827.     'free existing images
828.  
829.     _FREEIMAGE SL_sprite(handle).sprite '                                                               free hardware sprite image
830.     _FREEIMAGE SL_sprite(handle).image '                                                                free software sprite image
831.     IF SL_sprite(handle).mask THEN _FREEIMAGE SL_sprite(handle).mask '                                  free software mask image
832.     IF SL_sprite(handle).restore THEN '                                                                 is sprite holding a background image?
833.         IF SL_sprite(handle).background THEN '                                                          yes, has a background image been saved yet?
834.             _PUTIMAGE (SL_sprite(handle).xback, SL_sprite(handle).yback), SL_sprite(handle).background 'yes, replace background with image
835.             _FREEIMAGE SL_sprite(handle).background '                                                   free hardware background image
836.         END IF
837.         IF NOT SL_sprite(handle).software THEN '                                                        was the sprite type changed?
838.             SL_sprite(handle).restore = 0 '                                                (SL_NOSAVE)  yes, stop saving background
839.         END IF
840.     END IF
841.  
842.     'adjust sprite rotation if needed
843.  
844.     IF SL_sprite(handle).rotation THEN '                                                                rotate sprite?
845.         px0 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).px0 '                      yes, get precalculated triangular coordinates
846.         px1 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).px1
847.         px2 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).px2
848.         px3 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).px3
849.         py0 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).py0
850.         py1 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).py1
851.         py2 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).py2
852.         py3 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).py3
853.         rw = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).rwidth '                    get precalculated rotated sprite width
854.         rh = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation).rheight '                   get precalculated rotated sprite height
855.         SL_sprite(handle).image = _NEWIMAGE(rw, rh, 32) '                                               create image using precalculated width/height
856.         _MAPTRIANGLE (0, 0)-(0, sh-1)-(sw-1, sh-1), image TO _
857.                      (px0, py0)-(px1, py1)-(px2, py2), SL_sprite(handle).image '                        map rotated sprite onto image
858.         _MAPTRIANGLE (0, 0)-(sw-1, 0)-(sw-1, sh-1), image TO _
859.                      (px0, py0)-(px3, py3)-(px2, py2), SL_sprite(handle).image
860.         IF SL_sprite(handle).transparency THEN '                                                        does this sprite have a mask?
861.             SL_sprite(handle).mask = _NEWIMAGE(rw, rh, 32) '                                            yes, create mask image
862.             _MAPTRIANGLE (0, 0)-(0, sh-1)-(sw-1, sh-1), mask TO _
863.                          (px0, py0)-(px1, py1)-(px2, py2), SL_sprite(handle).mask '                     map rotated mask onto image
864.             _MAPTRIANGLE (0, 0)-(sw-1, 0)-(sw-1, sh-1), mask TO _
865.                          (px0, py0)-(px3, py3)-(px2, py2), SL_sprite(handle).mask
866.         END IF
867.         sw = rw '                                                                                       save new sprite width
868.         sh = rh '                                                                                       save new sprite height
869.     ELSE '                                                                                              no rotation needed
870.         SL_sprite(handle).image = _COPYIMAGE(image, 32) '                                               copy software image from sprite sheet
871.         IF SL_sprite(handle).transparency THEN '                                                        does this sprite have a mask?
872.             SL_sprite(handle).mask = _COPYIMAGE(mask, 32) '                                             yes, copy software mask from sprite sheet
873.         END IF
874.     END IF
875.  
876.     'create hardware sprite
877.  
878.     SL_sprite(handle).sprite = _COPYIMAGE(SL_sprite(handle).image, 33) '                                create hardware sprite of image
879.  
880.     'adjust zoom level if needed
881.  
882.     IF SL_sprite(handle).zoom <> 100 THEN '                                                             zoom sprite in/out?
883.         sw = sw * SL_sprite(handle).zoom \ 100 '                                                        yes, calculate new zoom width
884.         sh = sh * SL_sprite(handle).zoom \ 100 '                                                        calculate new zoom height
885.     END IF
886.  
887.     'calculate actual sprite screen coordinates
888.  
889.     xa = SL_sprite(handle).xint - sw \ 2 '                                                              calculate actual screen x location from center
890.     ya = SL_sprite(handle).yint - sh \ 2 '                                                              calculate actual screen y location from center
891.     SL_sprite(handle).xactual = xa '                                                         (INTEGER)  save actual screen x location
892.     SL_sprite(handle).yactual = ya '                                                         (INTEGER)  save actual screen y location
893.  
894.     'get background image before placing sprite if necessary
895.  
896.     IF SL_sprite(handle).restore THEN '                                                                 is this sprite storing background images?
897.         SL_sprite(handle).background = _NEWIMAGE(sw, sh, 32) '                                          yes, create background image
898.         _PUTIMAGE , _DEST, SL_sprite(handle).background, (xa, ya)-(xa + sw - 1, ya + sh - 1) '          get background area from current destination
899.         SL_sprite(handle).xback = xa '                                                                  record background x location
900.         SL_sprite(handle).yback = ya '                                                                  record background y location
901.     END IF
902.  
903.     'use hardware or software image
904.  
905.     IF SL_sprite(handle).software THEN '                                                                is this a software sprite?
906.         sprite = SL_sprite(handle).image '                                                              yes, use the software image
907.     ELSE '                                                                                              no
908.         sprite = SL_sprite(handle).sprite '                                                             use the hardware image
909.     END IF
910.  
911.     ' place sprite on the current destination
912.  
913.     SELECT CASE SL_sprite(handle).flip '                                                                which flipping style is selected?
914.         CASE 0 '                                                                           (SL_NOFLIP)  normal, no flipping
915.             _PUTIMAGE (xa, ya)-(xa + sw - 1, ya + sh - 1), sprite '                                     draw normal sprite
916.         CASE 1 '                                                                       (SL_HORIZONTAL)  flip horizontally
917.             _PUTIMAGE (xa + sw - 1, ya)-(xa, ya + sh - 1), sprite '                                     draw horizontally flipped sprite
918.         CASE 2 '                                                                         (SL_VERTICAL)  flip vertically
919.             _PUTIMAGE (xa, ya + sh - 1)-(xa + sw - 1, ya), sprite '                                     draw vertically flipped sprite
920.         CASE 3 '                                                                         (SL_FLIPBOTH)  flip vertically and horizontally
921.             _PUTIMAGE (xa + sw - 1, ya + sh - 1)-(xa, ya), sprite '                                     draw horizontally and vertically flipped sprite
922.     END SELECT
923.  
924. END SUB
925.  
926. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
927. FUNCTION SL_NEW_SPRITE (sheet AS INTEGER, column AS INTEGER, row AS INTEGER, software AS INTEGER, restores AS INTEGER) '                                                                  SL_NEW_SPRITE
928.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
929.  
930.     ' declare global variables
931.  
932.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
933.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
934.  
935.     ' declare local variables
936.  
937.     DIM handle AS INTEGER '             handle (pointer) number of new sprite
938.  
939.     ' perform error checks
940.  
941.     IF sheet > UBOUND(SL_sheet) OR SL_sheet(sheet, 0, 0).image <> -1 THEN '                             valid sprite sheet requested?
942.         SL_ERROR "SL_NEW_SPRITE", 110, "" '                                                             no, report error to programmer
943.     END IF
944.     IF column > UBOUND(SL_sheet, 2) OR row > UBOUND(SL_sheet, 3) OR row < 1 OR column < 1 THEN '        valid row and column requested?
945.         SL_ERROR "SL_NEW_SPRITE", 111, "" '                                                             no, report error to programmer
946.     END IF
947.     IF restores < -1 OR restores > 0 THEN '                                                             valid background restoration behavior requested?
948.         SL_ERROR "SL_NEW_SPRITE", 2, "" '                                                               no, report error to programmer
949.     END IF
950.     IF software < -1 OR software > 0 THEN '                                                             valid hardware / software setting requested?
951.         SL_ERROR "SL_NEW_SPRITE", 112, "" '                                                             no, report error to programmer
952.     END IF
953.     IF (NOT software) AND restores THEN '                                                               hardware image that restores background?
954.         SL_ERROR "SL_NEW_SPRITE", 113, "" '                                                             yes, report error to programmer
955.     END IF
956.  
957.     ' local variable setup
958.  
959.     handle = 0 '                                                                                        initialize handle value
960.  
961.     ' increase sprite array's size if needed
962.  
963.     DO '                                                                                                look for next available handle
964.         handle = handle + 1 '                                                                           increment to next handle value
965.     LOOP UNTIL (NOT SL_sprite(handle).inuse) OR handle = UBOUND(SL_sprite) '                            stop looking when valid handle found
966.     IF SL_sprite(handle).inuse THEN '                                                                   is the last array element in use?
967.         handle = handle + 1 '                                                                           yes, increment to next handle value
968.         REDIM _PRESERVE SL_sprite(handle) AS SL_SPRITE '                                                increase the size of the sprite array
969.     END IF
970.  
971.     ' populate sprite array
972.  
973.     SL_sprite(handle).inuse = -1 '                                                              (TRUE)  mark array index as in use
974.     SL_sprite(handle).sheet = sheet '                                                                   point to sheet where sprite resides              *
975.     SL_sprite(handle).column = column '                                                                 point to column on sheet where sprite located    * these still needed?
976.     SL_sprite(handle).row = row '                                                                       point to row on sheet where sprite located       *
977.     SL_sprite(handle).software = software '                                (SL_SOFTWARE & SL_HARDWARE)  sprite treated as software or hardware image
978.     SL_sprite(handle).restore = restores '                                       (SL_SAVE & SL_NOSAVE)  background restore behavior of sprite
979.     SL_sprite(handle).background = 0 '                                                                  no background image saved yet
980.     SL_sprite(handle).xreal = 0 '                                                                       reset x location of sprite (center x)
981.     SL_sprite(handle).yreal = 0 '                                                                       reset y location of sprite (center y)
982.     SL_sprite(handle).xint = 0 '                                                                        reset x location of sprite on screen INT(xreal) (center x)
983.     SL_sprite(handle).yint = 0 '                                                                        reset y location of sprite on screen INT(yreal) (center y)
984.     SL_sprite(handle).xactual = 0 '                                                                     reset x location of sprite on screen (upper left x)
985.     SL_sprite(handle).yactual = 0 '                                                                     reset y location of sprite on screen (upper left y)
986.     SL_sprite(handle).collx1 = SL_sheet(sheet, column, row).collx1 '                                    get sprite's collision box boundaries
987.     SL_sprite(handle).colly1 = SL_sheet(sheet, column, row).colly1
988.     SL_sprite(handle).collx2 = SL_sheet(sheet, column, row).collx2
989.     SL_sprite(handle).colly2 = SL_sheet(sheet, column, row).colly2
990.     SL_sprite(handle).spritewidth = SL_sheet(sheet, column, row).spritewidth '                          get width of sprite
991.     SL_sprite(handle).spriteheight = SL_sheet(sheet, column, row).spriteheight '                        get height of sprite
992.     SL_sprite(handle).sprite = _COPYIMAGE(SL_sheet(sheet, column, row).image, 33) '                     create hardware sprite image
993.     SL_sprite(handle).image = _COPYIMAGE(SL_sheet(sheet, column, row).image, 32) '                      copy software sprite image from sheet
994.     IF SL_sheet(sheet, column, row).transparency THEN '                                                 does this sprite use transparency?
995.         SL_sprite(handle).mask = _COPYIMAGE(SL_sheet(sheet, column, row).mask, 32) '                    yes, copy software sprite mask image from sheet
996.         SL_sprite(handle).transparency = -1 '                                                   (TRUE)  remember this sprite has a transparency layer
997.     ELSE '                                                                                              no transparency
998.         SL_sprite(handle).mask = 0 '                                                                    no mask will be brought in
999.         SL_sprite(handle).transparency = 0 '                                                   (FALSE)  remember this sprite has no transparency layer
1000.     END IF
1001.     SL_sprite(handle).flip = 0 '                                                                        no sprite flipping
1002.     SL_sprite(handle).rotation = 0 '                                                                    no sprite rotation angle
1003.     SL_sprite(handle).zoom = 100 '                                                                      zoom normal at 100%
1004.     SL_sprite(handle).spin = 0 '                                                                        sprite will not spin automatically
1005.     SL_sprite(handle).xdir = 0 '                                                                        x direction during motion
1006.     SL_sprite(handle).ydir = 0 '                                                                        y direction during motion
1007.     SL_sprite(handle).speed = 0 '                                                                       speed during motion
1008.     SL_sprite(handle).direction = 0 '                                                                   direction during motion (0 - 359)
1009.     SL_sprite(handle).automotion = 0 '                                                         (FALSE)  auto motion disabled
1010.     SL_sprite(handle).autorotate = 0 '                                                         (FALSE)  auto rotation disabled
1011.  
1012.     SL_NEW_SPRITE = handle '                                                                            return pointer value of new sprite
1013.  
1014. END FUNCTION
1015.  
1016. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1017. SUB SL_FREE_SPRITE (handle AS INTEGER) '                                                                                                                                                 SL_FREE_SPRITE
1018.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1019.  
1020.     ' declare global variables
1021.  
1022.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1023.  
1024.     ' check for errors
1025.  
1026.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1027.         SL_ERROR "SL_PUT_SPRITE", 1, "" '                                                               no, report error to programmer
1028.     END IF
1029.  
1030.     ' restore background if this sprite saving background
1031.  
1032.     IF SL_sprite(handle).restore THEN '                                                                 is there a background image to restore?
1033.         _PUTIMAGE (SL_sprite(handle).xback, SL_sprite(handle).yback), SL_sprite(handle).background '    yes, restore the image
1034.         _FREEIMAGE SL_sprite(handle).background '                                                       free background image
1035.     END IF
1036.  
1037.     ' free all image data associated with sprite
1038.  
1039.     IF SL_sprite(handle).background THEN _FREEIMAGE SL_sprite(handle).background '                      free background image if present
1040.     IF SL_sprite(handle).mask THEN _FREEIMAGE SL_sprite(handle).mask '                                  free sprite mask image if present
1041.     _FREEIMAGE SL_sprite(handle).sprite '                                                               free hardware sprite image
1042.     _FREEIMAGE SL_sprite(handle).image '                                                                free software sprite image
1043.  
1044.     IF handle = UBOUND(sl_sprite) AND handle <> 1 THEN '                                                is handle the last element in array?
1045.         REDIM _PRESERVE SL_sprite(handle - 1) AS SL_SPRITE '                                            yes, remove index and resize array
1046.     ELSE '                                                                                              no, index somewhere else
1047.         SL_sprite(handle).inuse = 0 '                                                          (FALSE)  mark index as usable later
1048.     END IF
1049.  
1050. END SUB
1051.  
1052. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1053. FUNCTION SL_NEW_SHEET (filename AS STRING, spritewidth AS INTEGER, spriteheight AS INTEGER, transparency AS INTEGER, transcolor AS _UNSIGNED LONG) '                                       SL_NEW_SHEET
1054.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1055.  
1056.     ' declare global variables
1057.  
1058.     SHARED SL_sheet() AS SL_SHEET '    master sprite sheet array
1059.     SHARED SL_rotate() AS SL_ROTATE '  precalculated rotation table
1060.  
1061.     ' declare local variables
1062.  
1063.     DIM handle AS INTEGER '             handle (pointer) number of new sprite sheet
1064.     DIM x AS INTEGER '                  generic counter to cycle through sheet sprite columns
1065.     DIM y AS INTEGER '                  generic counter to cycle through sheet sprite rows
1066.     DIM x1 AS INTEGER '                 generic counter to cycle though sprite for collision boundaries and mask creation
1067.     DIM y1 AS INTEGER '                 generic ocunter to cycle though sprite for collision boundaries and mask creation
1068.     DIM osource AS LONG '               original source image before this function was called
1069.     DIM odest AS LONG '                 original destination image before this function was called
1070.     DIM pixel AS _UNSIGNED LONG '       pixel color at each coordinate in sprite sheet
1071.     DIM alpha AS _UNSIGNED LONG '       alpha level of current pixel
1072.     DIM top AS INTEGER '                upper boundary of sprite image
1073.     DIM bottom AS INTEGER '             lower boundary of sprite image
1074.     DIM left AS INTEGER '               left boundary of sprite image
1075.     DIM right AS INTEGER '              right boundary of sprite image
1076.     DIM sheetimage AS LONG '            sprite sheet image
1077.     DIM sheetwidth AS INTEGER '         width of sprite sheet in pixels
1078.     DIM sheetheight AS INTEGER '        height of sprite sheet in pixels
1079.     DIM rows AS INTEGER '               number of sprite rows contained on sheet
1080.     DIM columns AS INTEGER '            number of sprite columns contained on sheet
1081.     DIM clearcolor AS _UNSIGNED LONG '  transcolor passed in will be modified
1082.     DIM tempsprite AS LONG '            temporary sprite for _CLEARCOLOR detection
1083.     DIM px(3) AS DOUBLE '               polar x coordinates of maptriangle
1084.     DIM py(3) AS DOUBLE '               polar y coordinates of maptriangle
1085.     DIM sinr AS DOUBLE '                sin rotation calculation
1086.     DIM cosr AS DOUBLE '                cosine rotation claculation
1087.     DIM bx1 AS DOUBLE '                 max boundaries of rotated sprite
1088.     DIM bx2 AS DOUBLE
1089.     DIM by1 AS DOUBLE
1090.     DIM by2 AS DOUBLE
1091.     DIM x2 AS DOUBLE '                  new computed polar coordinates
1092.     DIM y2 AS DOUBLE
1093.  
1094.     ' perform error checks
1095.  
1096.     IF NOT _FILEEXISTS(filename) THEN '                                                                 does the sprite sheet exist?
1097.         SL_ERROR "SL_NEW_SHEET", 100, filename '                                                        no, report error to programmer
1098.     END IF
1099.     IF ABS(transparency) > 1 THEN '                                                                     valid transparency setting?
1100.         SL_ERROR "SL_NEW_SHEET", 101, "" '                                                              no, report error to programmer
1101.     END IF
1102.     IF spritewidth < 1 OR spriteheight < 1 THEN '                                                       valid sprite width/height supplied?
1103.         SL_ERROR "SL_NEW_SHEET", 102, "" '                                                              no, report error to programmer
1104.     END IF
1105.     IF transparency = -1 AND UCASE$(RIGHT$(filename, 4)) <> ".PNG" THEN '                               wrong file type for transparency?
1106.         SL_ERROR "SL_NEW_SHEET", 103, UCASE$(RIGHT$(filename, 4)) '                                     yes, report error to programmer
1107.     END IF
1108.  
1109.     ' local variable setup
1110.  
1111.     sheetimage = _LOADIMAGE(filename, 32) '                                                             load sprite sheet file
1112.     sheetwidth = _WIDTH(sheetimage) '                                                                   get width of sheet
1113.     sheetheight = _HEIGHT(sheetimage) '                                                                 get height of sheet
1114.     columns = sheetwidth \ spritewidth '                                                                get number of whole columns of sprites
1115.     rows = sheetheight \ spriteheight '                                                                 get number of whole rows of sprites
1116.     IF columns < 1 OR rows < 1 THEN '                                                                   at least one sprite column and row on sheet?
1117.         SL_ERROR "SL_NEW_SHEET", 104, "" '                                                              no, report error to programmer
1118.     END IF
1119.     osource = _SOURCE '                                                                                 remember current source image
1120.     odest = _DEST '                                                                                     remember current destination image
1121.     handle = 0 '                                                                                        initialize handle value
1122.     clearcolor = transcolor '                                                                           get background/transparent color passed in
1123.  
1124.     ' increase sheet array's 1st dimension if needed to create a new sprite sheet
1125.  
1126.     DO '                                                                                                look for the next available handle
1127.         handle = handle + 1 '                                                                           increment the handle value
1128.     LOOP UNTIL (NOT SL_sheet(handle, 0, 0).image) OR handle = UBOUND(SL_sheet) '                        stop looking when valid handle value found
1129.     IF SL_sheet(handle, 0, 0).image = -1 THEN '                                                 (TRUE)  is the last array element in use?
1130.         handle = handle + 1 '                                                                           yes, increment the handle value
1131.         REDIM _PRESERVE SL_sheet(handle, UBOUND(SL_sheet, 2), UBOUND(SL_sheet, 3)) AS SL_SHEET '        create new sheet in sprite array
1132.         REDIM _PRESERVE SL_rotate(handle, UBOUND(SL_rotate, 2)) AS SL_ROTATE
1133.     END IF
1134.  
1135.     ' increase sheet array's 2nd and 3rd dimensions if needed to match number of rows and columns
1136.  
1137.     IF columns > UBOUND(SL_sheet, 2) THEN '                                                             more columns in this sheet than others?
1138.         REDIM _PRESERVE SL_sheet(handle, columns, UBOUND(SL_sheet, 3)) AS SL_SHEET '                    yes, increase the array's 2nd dimension to match
1139.     END IF
1140.     IF rows > UBOUND(SL_sheet, 3) THEN '                                                                more rows in this sheet than others?
1141.         REDIM _PRESERVE SL_sheet(handle, UBOUND(SL_sheet, 2), rows) AS SL_SHEET '                       yes, increase the array's 3rd dimension to match
1142.     END IF
1143.  
1144.     ' the variables in SL_sheet(x, 0, 0) will serve a dual purpose
1145.     ' SL_sheet(x, 0, 0).image will contain either -1 (true) or 0 (false) to indicate the first dimension of the array is in use.
1146.     ' SL_sheet(x, 0, 0).spritewidth will contain the number of columns contained in the sheet (the array's 2nd dimension)
1147.     ' SL_sheet(x, 0, 0).spriteheight will contain the number of rows contained in the sheet (the array's 3rd dimension)
1148.  
1149.     SL_sheet(handle, 0, 0).image = -1 '                                                         (TRUE)  mark as in use
1150.     SL_sheet(handle, 0, 0).spritewidth = columns '                                                      remember number of columns in sheet
1151.     SL_sheet(handle, 0, 0).spriteheight = rows '                                                        remember number of rows in sheet
1152.  
1153.     ' identify transparency of sprite sheet if requested
1154.  
1155.     IF transparency = -1 THEN '                                                 (constant SL_USESHEET)  sheet have alpha channel?
1156.         x = 0 '                                                                                         yes, start at upper left x of sheet
1157.         y = 0 '                                                                                         start at upper left y of sheet
1158.         alpha = 255 '                                                                                   assume no alpha channel
1159.         _SOURCE sheetimage '                                                                            set sprite sheet image as source image
1160.         DO '                                                                                            start looping through the sheet's pixels
1161.             pixel = POINT(x, y) '                                                                       get the pixel's color attributes
1162.             alpha = _ALPHA32(pixel) '                                                                   get the alpha level (0 - 255)
1163.             IF alpha = 0 THEN EXIT DO '                                                                 if it is transparent then leave the loop
1164.             x = x + 1 '                                                                                 move right one pixel
1165.             IF x > sheetwidth THEN '                                                                    have we gone off the sheet?
1166.                 x = 0 '                                                                                 yes, reset back to the left beginning
1167.                 y = y + 1 '                                                                             move down one pixel
1168.             END IF
1169.         LOOP UNTIL y > sheetheight '                                                                    don't stop until the entire sheet has been checked
1170.         IF alpha = 0 THEN '                                                                             did we find a transparent pixel?
1171.             tempsprite = _NEWIMAGE(1, 1, 32) '                                                          yes, create a temporary image         * why did I have to do
1172.             _CLEARCOLOR pixel, tempsprite '                                                             set pixel found as transparent        * this hack to get
1173.             clearcolor = _CLEARCOLOR(tempsprite) '                                                      get the transparent color from image  * clearcolor to come out
1174.             _FREEIMAGE tempsprite '                                                                     temporary image no longer needed      * to the right value?
1175.         ELSE '                                                                                          no transparency found within sheet
1176.             transparency = 1 '                                                                          set sheet to having no alpha channel
1177.         END IF
1178.     ELSEIF transparency = 0 THEN '                                                   (constant SL_SET)  manually set alpha channel?
1179.         _CLEARCOLOR clearcolor, sheetimage '                                                            yes, set color as transparent
1180.         clearcolor = _CLEARCOLOR(sheetimage) '                                                          get the transparent color ************* again, why this hack?
1181.     END IF
1182.  
1183.     ' load sprites from sheet and place into sprite array
1184.  
1185.     FOR x = 1 TO columns '                                                                              cycle through the sheet's columns
1186.         FOR y = 1 TO rows '                                                                             cycle through the sheet's rows
1187.             SL_sheet(handle, x, y).image = _NEWIMAGE(spritewidth, spriteheight, 32) '                   create software sprite image
1188.             IF transparency < 1 THEN '                                                                  should a mask be created?
1189.                 SL_sheet(handle, x, y).mask = _NEWIMAGE(spritewidth, spriteheight, 32) '                yes, create software sprite mask image
1190.                 _DEST SL_sheet(handle, x, y).mask '                                                     write to the mask image
1191.             ELSE
1192.                 SL_sheet(handle, x, y).transparency = 0 '                                      (FALSE)  set sprite as having no transparency
1193.             END IF
1194.             _PUTIMAGE , sheetimage, SL_sheet(handle, x, y).image,_
1195.                  ((x - 1) * spritewidth, (y - 1) * spriteheight)-_
1196.                  ((x - 1) * spritewidth + spritewidth - 1, (y - 1) * spriteheight + spriteheight - 1) ' copy sprite from sheet and place in sprite image
1197.  
1198.             ' precalculate collision boundaries and update sprite mask if needed
1199.  
1200.             _SOURCE SL_sheet(handle, x, y).image '                                                      work from the software sprite image
1201.             top = spriteheight - 1 '                                                                    set initial collision boundary markers
1202.             left = spritewidth - 1
1203.             bottom = 0
1204.             right = 0
1205.             FOR x1 = 0 TO spritewidth - 1 '                                                             cycle through the width of sprite
1206.                 FOR y1 = 0 TO spriteheight - 1 '                                                        cycle through the height of sprite
1207.                     IF POINT(x1, y1) <> clearcolor THEN '                                               is this pixel a transparent/background color?
1208.                         IF x1 < left THEN left = x1 '                                                   no, save position if left-most pixel
1209.                         IF y1 < top THEN top = y1 '                                                     save position if top-most pixel
1210.                         IF x1 > right THEN right = x1 '                                                 save position if right-most pixel
1211.                         IF y1 > bottom THEN bottom = y1 '                                               save position if bbottom-most pixel
1212.                     END IF
1213.                     IF transparency < 1 THEN '                                                          update software sprite mask?
1214.                         IF POINT(x1, y1) = clearcolor THEN '                                            yes, is this pixel a transparent/background color?
1215.                             PSET (x1, y1), _RGB32(255, 255, 255) '                                      yes, set as white on the mask image
1216.                         END IF
1217.                     END IF
1218.                 NEXT y1
1219.             NEXT x1
1220.             SL_sheet(handle, x, y).collx1 = left '                                                      collision box top left x
1221.             SL_sheet(handle, x, y).colly1 = top '                                                       collision box top left y
1222.             SL_sheet(handle, x, y).collx2 = right '                                                     collision box bottom right x
1223.             SL_sheet(handle, x, y).colly2 = bottom '                                                    collision box bottom right y
1224.             SL_sheet(handle, x, y).spritewidth = spritewidth '                                          remember sprite width
1225.             SL_sheet(handle, x, y).spriteheight = spriteheight '                                        remember sprite height
1226.         NEXT y
1227.     NEXT x
1228.     _FREEIMAGE sheetimage '                                                                             sprite sheet image no longer needed
1229.  
1230.     ' create precalculated rotation table for the sprite sheet (0 to 359 degrees)
1231.  
1232.     FOR x = 1 TO 359
1233.         'px(0) = (-spritewidth + 1) / 2 '                                                                upper left  x polar coordinate of sprite
1234.         'py(0) = (-spriteheight + 1) / 2 '                                                               upper left  y polar coordinate of sprite
1235.         px(0) = -spritewidth / 2 '                                                                      upper left  x polar coordinate of sprite
1236.         py(0) = -spriteheight / 2 '                                                                     upper left  y polar coordinate of sprite
1237.         px(1) = px(0) '                                                                                 lower left  x polar coordinate of sprite
1238.         'py(1) = (spriteheight -1) / 2 '                                                                 lower left  y polar coordinate of sprite
1239.         'px(2) = (spritewidth - 1) / 2 '                                                                 lower right x polar coordinate of sprite
1240.         py(1) = spriteheight / 2 '                                                                      lower left  y polar coordinate of sprite
1241.         px(2) = spritewidth / 2 '                                                                       lower right x polar coordinate of sprite
1242.         py(2) = py(1) '                                                                                 lower right y polar coordinate of sprite
1243.         px(3) = px(2) '                                                                                 upper right x polar coordinate of sprite
1244.         py(3) = py(0) '                                                                                 upper right y polar coordinate of sprite
1245.         sinr = SIN(-x / 57.2957795131) '                                                                calculate the sin of rotation
1246.         cosr = COS(-x / 57.2957795131) '                                                                calculate the cosine of rotation
1247.         bx1 = 0 '                                                                                       upper left x boundary of sprite
1248.         by1 = 0 '                                                                                       upper left y boundary of sprite
1249.         bx2 = 0 '                                                                                       lower right x boundary of sprite
1250.         by2 = 0 '                                                                                       lower right y boundary of sprite
1251.         FOR y = 0 TO 3 '                                                                                cycle through all four polar coordinates
1252.             x2 = (px(y) * cosr + sinr * py(y)) '                                                        compute new polar coordinate location
1253.             y2 = (py(y) * cosr - px(y) * sinr) '                                                        compute new polar coordinate location
1254.             px(y) = x2 '                                                                                save the new polar coordinate
1255.             py(y) = y2 '                                                                                save the new polar coordinate
1256.             IF px(y) < bx1 THEN bx1 = px(y) '                                                           save lowest  x value seen \  NOTE: use for
1257.             IF px(y) > bx2 THEN bx2 = px(y) '                                                           save highest x value seen  \ background image         <--------------------- LOOK
1258.             IF py(y) < by1 THEN by1 = py(y) '                                                           save lowest  y value seen  / rectangle coordinates
1259.             IF py(y) > by2 THEN by2 = py(y) '                                                           save highest y value seen /
1260.         NEXT y
1261.         SL_rotate(handle, x).rwidth = bx2 - bx1 + 1 '                                                   calculate width of rotated sprite
1262.         SL_rotate(handle, x).rheight = by2 - by1 + 1 '                                                  calculate height of rotated sprite
1263.         SL_rotate(handle, x).px0 = px(0) + ((bx2 - bx1 + 1) \ 2) '                                      calculate triangular coordinates
1264.         SL_rotate(handle, x).px1 = px(1) + ((bx2 - bx1 + 1) \ 2)
1265.         SL_rotate(handle, x).px2 = px(2) + ((bx2 - bx1 + 1) \ 2)
1266.         SL_rotate(handle, x).px3 = px(3) + ((bx2 - bx1 + 1) \ 2)
1267.         SL_rotate(handle, x).py0 = py(0) + ((by2 - by1 + 1) \ 2)
1268.         SL_rotate(handle, x).py1 = py(1) + ((by2 - by1 + 1) \ 2)
1269.         SL_rotate(handle, x).py2 = py(2) + ((by2 - by1 + 1) \ 2)
1270.         SL_rotate(handle, x).py3 = py(3) + ((by2 - by1 + 1) \ 2)
1271.  
1272.         'SL_rotate(handle, x).rwidth = bx2 - bx1 '                                                       calculate width of rotated sprite
1273.         'SL_rotate(handle, x).rheight = by2 - by1 '                                                      calculate height of rotated sprite
1274.         'SL_rotate(handle, x).px0 = px(0) + ((bx2 - bx1) / 2) '                                          calculate triangular coordinates
1275.         'SL_rotate(handle, x).px1 = px(1) + ((bx2 - bx1) / 2)
1276.         'SL_rotate(handle, x).px2 = px(2) + ((bx2 - bx1) / 2)
1277.         'SL_rotate(handle, x).px3 = px(3) + ((bx2 - bx1) / 2)
1278.         'SL_rotate(handle, x).py0 = py(0) + ((by2 - by1) / 2)
1279.         'SL_rotate(handle, x).py1 = py(1) + ((by2 - by1) / 2)
1280.         'SL_rotate(handle, x).py2 = py(2) + ((by2 - by1) / 2)
1281.         'SL_rotate(handle, x).py3 = py(3) + ((by2 - by1) / 2)
1282.  
1283.     NEXT x
1284.     _SOURCE osource '                                                                                   return source to current
1285.     _DEST odest '                                                                                       return destination to current
1286.     SL_NEW_SHEET = handle '                                                                             return the handle number pointing to this sheet
1287.  
1288. END FUNCTION
1289.  
1290. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1291. FUNCTION SL_VALID_SPRITE (handle AS INTEGER) '                                                                                                                                         SL_VALID_SPRITE
1292.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1293.  
1294.     ' declare global variables
1295.  
1296.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1297.  
1298.     IF handle > UBOUND(SL_SPRITE) OR (NOT SL_sprite(handle).inuse) OR handle < 1 THEN '                  is this a valid sprite handle?
1299.         SL_VALID_SPRITE = 0 '                                                                   (FALSE)  no, return 0
1300.     ELSE '                                                                                               yes, it is valid
1301.         SL_VALID_SPRITE = -1 '                                                                   (TRUE)  return -1
1302.     END IF
1303.  
1304. END FUNCTION
1305.  
1306. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1307. SUB SL_ERROR (routine AS STRING, errno AS INTEGER, info AS STRING) '                                                                                                                           SL_ERROR
1308.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1309.  
1310.     SCREEN 0, 0, 0, 0 '                                                                                 go to a pure text screen
1311.     _FONT 16 '                                                                                          set the standard screen 0 font
1312.     IF _FULLSCREEN THEN _FULLSCREEN _OFF '                                                              turn off full screen if on
1313.     _AUTODISPLAY '                                                                                      auto update the display
1314.     CLS '                                                                                               clear the screen
1315.     COLOR 10, 0
1316.     PRINT "                   **************************************" '                                 print error header
1317.     PRINT "                   ** Sprite Library Error Encountered **"
1318.     PRINT "                   **************************************"
1319.     PRINT
1320.     COLOR 15, 0
1321.     PRINT " "; routine;
1322.     COLOR 7, 0
1323.     PRINT " has reported error";
1324.     COLOR 30, 0
1325.     PRINT STR$(errno)
1326.     COLOR 7, 0
1327.     PRINT
1328.     SELECT CASE errno '                                                                                 which error number is being reported?
1329.  
1330.         ' general purpose errors for all subs/functions
1331.  
1332.         CASE 1
1333.             PRINT "- the requested sprite does not exist"
1334.         CASE 2
1335.             PRINT "- invalid background restore setting supplied - valid settings are"
1336.             PRINT "- : -1 (constant SL_SAVE)"
1337.             PRINT "- :  0 (constant SL_NOSAVE)"
1338.  
1339.             ' errors belonging to SL_NEW_SHEET (100 - 109)
1340.  
1341.         CASE 100
1342.             PRINT "- "; CHR$(34); info; CHR$(34); " sprite sheet does not exist"
1343.             PRINT "- check path or spelling"
1344.         CASE 101
1345.             PRINT "- invalid transparency setting supplied - valid settings are"
1346.             PRINT "- : -1 (constant SL_USESHEET)"
1347.             PRINT "- :  0 (constant SL_SET)"
1348.             PRINT "- :  1 (constant SL_NONE)"
1349.         CASE 102
1350.             PRINT "- sprite width and height must be greater than zero"
1351.         CASE 103
1352.             PRINT "- selecting to use a sheet's transparency only works with .PNG files"
1353.             PRINT "- the function was passed a "; info; " file."
1354.         CASE 104
1355.             PRINT "- there must be at least one column and one row of sprites on sheet"
1356.             PRINT "- the sheet being loaded does not meet these minimums"
1357.  
1358.             'errors belonging to SL_NEW_SPRITE (110 - 119)
1359.  
1360.         CASE 110
1361.             PRINT "- the specified sprite sheet is not in use or does not exist"
1362.         CASE 111
1363.             PRINT "- invalid row or column selected for specified sprite sheet"
1364.         CASE 112
1365.             PRINT "- invalid hardware / software setting supplied - valid settings are"
1366.             PRINT "- : -1 (constant SL_SOFTWARE)"
1367.             PRINT "- :  0 (constant SL_HARDWARE)"
1368.         CASE 113
1369.             PRINT "- there is no need to restore the background with hardware sprites"
1370.             PRINT "- change background restore setting to zero (0) (constant SL_NOSAVE)"
1371.  
1372.             ' errors belonging to SL_FLIP_SPRITE (120 - 129)
1373.  
1374.         CASE 120
1375.             PRINT "- invalid flip setting supplied - valid settings are"
1376.             PRINT "  : 0 (constant SL_NOFLIP)"
1377.             PRINT "  : 1 (constant SL_HORIZONTAL)"
1378.             PRINT "  : 2 (constant SL_VERTICAL)"
1379.             PRINT "  : 3 (constant SL_FLIPBOTH)"
1380.  
1381.             ' errors belonging to SL_ZOOM_SPRITE (130 - 139)
1382.  
1383.         CASE 130
1384.             PRINT "- invalid zoom level setting supplied"
1385.             PRINT "- zoom level must be greater than zero (0)"
1386.  
1387.             ' errors belonging to SL_SET_ROTATION_SPEED (140 - 149)
1388.  
1389.         CASE 140
1390.             PRINT "- rotation speed must be between -359 and 359 degrees"
1391.  
1392.             ' errors belonging to SL_SET_AUTOMOTION (150 - 159)
1393.  
1394.         CASE 150
1395.             PRINT "- invalid auto motion behavior requested - valid settings are"
1396.             PRINT "- : -1 (constant SL_START)"
1397.             PRINT "- :  0 (constant SL_STOP)"
1398.  
1399.             ' errors belonging to SL_SET_AUTOROTATE (160 - 169)
1400.  
1401.         CASE 160
1402.             PRINT "- invalid auto rotation behavior requested - valid settings are"
1403.             PRINT "- : -1 (constant SL_START)"
1404.             PRINT "- :  0 (constant SL_STOP)"
1405.  
1406.             ' errors belonging to SL_MOVE_SPRITE (170 - 179)
1407.  
1408.         CASE 170
1409.             PRINT "- the sprite requested is already under automatic movement control"
1410.  
1411.             ' errors belonging to SL_ROTATE_SPRITE (180 - 189)
1412.  
1413.         CASE 180
1414.             PRINT "- the sprite requested is already under automatic rotation control"
1415.  
1416.     END SELECT
1417.     COLOR 12, 0
1418.     PRINT
1419.     PRINT " See sprite library doumentation for further explanation."
1420.     COLOR 7, 0
1421.     DO: LOOP UNTIL INKEY$ = "" '                                                                        clear the keyboard buffer
1422.     END '                                                                                               end the program
1423.  
1424. END SUB
1425.  
1426. '* why the long name for variables in SUB?
1427. '* to prevent the likelihood of unintended collisions with global/shared variables or constants
1428. FUNCTION SL_Correct_Degree_Angle_To_360% (SLCDAT360AngleParameter AS INTEGER)
1429.     DIM SL_Correct_Degree_Angle_To_360CDAT360 AS INTEGER
1430.     SL_Correct_Degree_Angle_To_360CDAT360 = SLCDAT360AngleParameter MOD 360
1431.     IF SL_Correct_Degree_Angle_To_360CDAT360 < 0 THEN
1432.         SL_Correct_Degree_Angle_To_360% = SL_Correct_Degree_Angle_To_360CDAT360 + 360
1433.     ELSE
1434.         SL_Correct_Degree_Angle_To_360% = SL_Correct_Degree_Angle_To_360CDAT360
1435.     END IF
1436. END FUNCTION
1437.  

SL_Correct_Degree_Angle_To_360% replaces some code that reduces angles to 0-359 range, regardless of sign. It eliminates a LOT of subtraction for angles >=360 or <=-360.
a quick view since it was appended to your demo code.

Code: QB64: [Select]

1. '* why the long name for variables in SUB?
2. '* to prevent the likelihood of unintended collisions with global/shared variables or constants
3. FUNCTION SL_Correct_Degree_Angle_To_360% (SLCDAT360AngleParameter AS INTEGER)
4.     DIM SL_Correct_Degree_Angle_To_360CDAT360 AS INTEGER
5.     SL_Correct_Degree_Angle_To_360CDAT360 = SLCDAT360AngleParameter MOD 360
6.     IF SL_Correct_Degree_Angle_To_360CDAT360 < 0 THEN
7.         SL_Correct_Degree_Angle_To_360% = SL_Correct_Degree_Angle_To_360CDAT360 + 360
8.     ELSE
9.         SL_Correct_Degree_Angle_To_360% = SL_Correct_Degree_Angle_To_360CDAT360
10.     END IF
11. END FUNCTION
12.  

[TerryRitchie]

I always forget about using MOD for things like this.

Thank you for the correction. Much better

I did create a function called SL_FIX_DEGREES yesterday to replace the many places throughout the code where degree angle needed checked/corrected. Your code now controls that function since my code was the same as the original code scattered throughout.

[TerryRitchie]

Animation is turning out to be a beast. I've had to rethink my strategy a few times today reorganizing the code a few times in the process.

I think I know have a plan to move forward with animation. Hopefully I'll have something significant to show tomorrow.

I'm starting to dream code at night. :-o

[TerryRitchie]

I have made so many changes over the last two days that trying to explain it all here would take a book. The one major thing I did was completely rethink the way data types are processed and presented to make it easier to sort out variables. I also had to come up with a way to identify sprites not only by their column/row on a sheet, but also by cell number for animation tracking. Both of which I have now. Here is the code for anyone interested in viewing what I have so far.

Code: QB64: [Select]

1. '** NOTES **
2.  
3. ' Ideas to add
4. '
5. ' if SL_EVENT_TRIGGER then 'check for event that was sent (add event triggers)
6. ' - possible link sounds to events
7. ' add gravity, attraction, repulsion  SL_SET_PHYSICS
8. ' add mass, elasticity (bounciness?)   ^  ^  ^
9. ' add arc calculator for things like a swinging vine or radar scope
10. ' ability to link sprites, when one moves the other moves, break apart when collision happens SL_LINK_SPRITE
11. ' give sprites path-following ability (bezier curves?) SL_FOLLOW_PATH
12. ' divide work space into cells and detect when sprites enter/leave a cell
13. ' stand-alone program to develop sprite sheets (inform)        \
14. ' stand-alone program to develop celled work spaces (inform)   /  combine these into one program?
15. ' when sprite interact their mass, elascticity, etc. govern the way the move and fall
16. ' - I will need help from a math major for this
17.  
18. ' Planned additions
19. '
20. ' Mouse routines
21. ' - detect when mouse interacts with a sprite (hover, click, double click, right click, etc..) SL_MOUSE_STATUS
22. ' set a score value to a sprite for game score tracking, SL_SET_SCORE, SL_GET_SCORE
23. ' get sprite width and height (both actual and collision box) SL_GET_ACTUAL_WIDTH, SL_GET_ACTUAL_HEIGHT, SL_GET_COLLISION_WIDTH, SL_GET_COLLISION_HEIGHT
24. ' reverse x and y directions for auto/manual movement, SL_MOTION_REVERSEX, SL_MOTION_REVERSEY
25. ' set Z depth of sprite for different planes/layers (possibly incorporate this into zoom?)
26. ' hide/unhide sprites SL_HIDE_SPRITE, SL_SHOW_SPRITE
27. ' collision detection routines (rectangle, round, ellipticle, pixel-perfect, n-space?, prediction?) SL_SET_COLLISION, SL_GET_COLLISION, SL_COLLIDED_WITH
28. ' - need to figure out how to rotate collision box along with sprites, not too hard
29. ' - this will require line segment intersection algorithms for collision detection, yikes! hard, probably need help
30. ' - possibly link sounds to collisions SL_LINK_COLLIDE_SOUND
31. ' Parallaxing layers  SL_CREATE_PARALLAX, SL_UPDATE_PARALLAX
32. ' Game font printing
33. ' Sprite tiling, square for sure, isometric?
34.  
35. ' Things to improve
36. '
37. ' Naming convention of constants and their values
38. ' Remove all for/next loops and replace with do/loop or while/wend
39. ' Use integers wherever possible
40. ' allow SINGLE value rotation angles for accuracy but convert to integer before sprite rotation
41. ' - using only integer now, may not be precise enough for future improvements
42.  
43. ' Investigate
44. '
45. ' Use of _MAPTRIANGLE for 3D rotation   SL_ROTATE_3D
46. ' _HARDWARE vs _HARDWARE1
47.  
48. ' Remember
49. '
50. ' Any code added that is OS dependant needs to detect the OS running first
51. ' - try to create routines that are OS dependant for all OS'
52.  
53.  
54.  
55. OPTION _EXPLICIT ' need to remove before publishing library!!
56.  
57. '*
58. '* constant declarations
59. '*
60.  
61. '         CONSTANT NAME                                DESCRIPTION                          FUNCTIONS / SUBROUTINES THAT MAY USE THIS CONSTANT
62. ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
63. CONST SL_RESET = -32767 '               reset a function or subroutine                      SL_ROTATE_SPRITE, SL_FLIP_SPRITE, SL_ZOOM_SPRITE, SL_CHANGE_AUTOROTATION, SL_CHANGE_AUTOMOTION
64. CONST SL_NOFLIP = 0 '                   sprite will use no flipping                         SL_FLIP_SPRITE
65. CONST SL_HORIZONTAL = 1 '               sprite will be flipped horizontally                 SL_FLIP_SPRITE
66. CONST SL_VERTICAL = 2 '                 sprite will be flipped vertically                   SL_FLIP_SPRITE
67. CONST SL_FLIPBOTH = 3 '                 sprite will be flipped horizontally & vertically    SL_FLIP_SPRITE
68. CONST SL_USESHEET = -1 '                use sheet's transparency info (.PNG)                SL_NEW_SHEET
69. CONST SL_SET = 0 '                      manually set transparency                           SL_NEW_SHEET
70. CONST SL_NONE = 1 '                     don't use transparency with sheet                   SL_NEW_SHEET
71. CONST SL_NOSAVE = 0 '                   sprite will not save background                     SL_NEW_SPRITE, SL_SOFTWARE_SPRITE
72. CONST SL_SAVE = -1 '                    sprite will save background                         SL_NEW_SPRITE, SL_SOFTWARE_SPRITE
73. CONST SL_HARDWARE = 0 '                 sprite in hardware mode                             SL_NEW_SPRITE
74. CONST SL_SOFTWARE = -1 '                sprite in software mode                             SL_NEW_SPRITE
75. CONST SL_START = -1 '                   enable auto motion / rotation                       SL_CHANGE_AUTOMOTION, SL_CHANGE_AUTOROTATION, SL_SET_AUTOANIMATION
76. CONST SL_STOP = 0 '                     disable auto motion / rotation                      SL_CHANGE_AUTOMOTION, SL_CHANGE_AUTOROTATION, SL_SET_AUTOANIMATION
77. CONST SL_FORWARD = 0 '                  animation cells proceed forward                     SL_SET_ANIMATTION
78. CONST SL_BACKWARD = 1 '                 animation cells proceed backwards                   SL_SET_ANIMATION
79. CONST SL_BACKFORTH = 2 '                animation cells toggle forward/backward             SL_SET_ANIMATION
80. CONST SL_CURRENTCELL = -1 '             use current cell as starting animation cell         SL_SET_ANIMATION
81.  
82. '*
83. '* type declarations
84. '*
85.  
86. TYPE SL_SHEET ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SPRITE SHEET DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
87.     image AS LONG '                     software sprite image
88.     mask AS LONG '                      software mask image
89.     swidth AS INTEGER '                 width of sprite
90.     sheight AS INTEGER '                height of sprite
91.     cell AS INTEGER '                   the animation cell of this sprite
92.     collx1 AS INTEGER '                 collision box top left x
93.     colly1 AS INTEGER '                 collision box top left y
94.     collx2 AS INTEGER '                 collision box bottom right x
95.     colly2 AS INTEGER '                 collision box bottom right y
96.     transparency AS INTEGER '           -1 (TRUE) if sheet uses transparency
97. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
98.  
99. TYPE SL_XY ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ X,Y LOCATIONS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
100.     real AS SINGLE '                    single values of sprite x,y center point
101.     int AS INTEGER '                    integer values of sprite x,y center point
102.     actual AS INTEGER '                 integer values of sprite upper left x,y location
103.     back AS INTEGER '                   integer values of sprite's background image x,y location
104.     dir AS SINGLE '                     single values of sprite x,y motion vectors
105. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
106.  
107. TYPE SL_IMAGE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ IMAGES ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
108.     sprite AS LONG '                    hardware sprite image
109.     image AS LONG '                     software sprite image
110.     mask AS LONG '                      software sprite mask image
111.     back AS LONG '                      software sprite saved background image
112. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
113.  
114. TYPE SL_ANIM ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ANIMATION SETTINGS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
115.     cell AS INTEGER '                   current animation cell
116.     cellfrom AS INTEGER '               starting animation cell
117.     cellto AS INTEGER '                 ending animation cell
118.     dir AS INTEGER '                    animation direction
119.     mode AS INTEGER '                   animation mode (forward, backward, back/forth)
120.     framerate AS INTEGER '              sprite animation frame rate
121.     frame AS INTEGER '                  animation frame counter
122.     skip AS INTEGER '                   how often to skip a frame to achieve framerate
123.     auto AS INTEGER '                   auto-animation on/off
124. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
125.  
126. TYPE SL_MOTION ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ MOTION SETTINGS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
127.     auto AS INTEGER '                   -1 (TRUE) if auto-motion turned on
128.     speed AS SINGLE '                   speed of sprite during motion
129.     angle AS INTEGER '                  direction of sprite during motion (0 - 359)
130. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
131.  
132. TYPE SL_ROTATION ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ROTATION SETTINGS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
133.     auto AS INTEGER '                   -1 (TRUE) if auto-rotation turned on
134.     speed AS INTEGER '                  spin rate in degrees of sprite (0 - 359)
135.     angle AS INTEGER '                  current rotation angle of sprite
136. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
137.  
138. TYPE SL_SPRITE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SPRITE DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
139.     inuse AS INTEGER '                  this array index in use
140.     x AS SL_XY '                        x coordinate locations
141.     y AS SL_XY '                        y coordinate locations
142.     gfx AS SL_IMAGE '                   image graphics
143.     anim AS SL_ANIM '                   animation settings
144.     motion AS SL_MOTION '               motion settings
145.     rotation AS SL_ROTATION '           rotation settings
146.     sheet AS INTEGER '                  sheet sprite belongs to
147.     column AS INTEGER '                 the column on the sheet the sprite resides
148.     row AS INTEGER '                    the row on the sheet the sprite resides
149.     swidth AS INTEGER '                 width of sprite
150.     sheight AS INTEGER '                height of sprite
151.     restore AS INTEGER '                -1 (true) if sprite restores background
152.     collx1 AS INTEGER '                 collision box top left x
153.     colly1 AS INTEGER '                 collision box top left y
154.     collx2 AS INTEGER '                 collision box bottom right x
155.     colly2 AS INTEGER '                 collision box bottom right y
156.     flip AS INTEGER '                   flip horizontally, vertically, or both
157.     transparency AS INTEGER '           -1 (TRUE) if sprite uses transparency
158.     zoom AS INTEGER '                   zoom level of sprite (1% - x%)
159.     software AS INTEGER '               -1 (TRUE) if sprite is to be treated as software image
160. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
161.  
162. TYPE SL_ROTATE 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ PRECALCULATED ROTATION TABLE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
163.     rwidth AS INTEGER '                 width of rotated sprite
164.     rheight AS INTEGER '                height of rotated sprite
165.     px0 AS INTEGER '                    rectangular rotation coordinates
166.     px1 AS INTEGER
167.     px2 AS INTEGER
168.     px3 AS INTEGER
169.     py0 AS INTEGER
170.     py1 AS INTEGER
171.     py2 AS INTEGER
172.     py3 AS INTEGER
173. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
174.  
175. '*
176. '* global dynamic array declarations
177. '*
178.  
179. REDIM SL_sheet(1, 1, 1) AS SL_SHEET '   master sprite sheet array
180. REDIM SL_sprite(1) AS SL_SPRITE '       master working sprite array
181. REDIM SL_rotate(1, 359) AS SL_ROTATE '  precalculated rotation values
182.  
183. '*
184. '* global variable declarations
185. '*
186.  
187. DIM SL_framerate AS INTEGER '           the global frame rate
188.  
189. '*
190. '* main code (for testing)
191. '*
192.  
193. DIM kongsheet AS INTEGER
194. DIM mysprite AS INTEGER
195. DIM mysprite2 AS INTEGER
196. DIM x AS SINGLE
197. DIM y AS INTEGER
198. DIM angle AS INTEGER
199.  
200. SL_SET_FRAMERATE 30
201.  
202. kongsheet = SL_NEW_SHEET("dkong.png", 64, 64, SL_SET, _RGB32(255, 0, 255))
203. mysprite = SL_NEW_SPRITE(kongsheet, 1, 1, SL_HARDWARE, SL_NOSAVE)
204. mysprite2 = SL_NEW_SPRITE(kongsheet, 1, 1, SL_SOFTWARE, SL_NOSAVE)
205.  
206. 'SL_FLIP_SPRITE mysprite, SL_HORIZONTAL
207. 'SL_SET_ZOOM mysprite, 125
208.  
209. SL_SET_MOTION mysprite, 135, .1, SL_START
210. SL_SET_ROTATION mysprite, 0, 1, SL_START
211. SL_SET_ROTATION mysprite2, 180, 10, SL_START
212.  
213. SCREEN _NEWIMAGE(640, 480, 32)
214. CLS
215. CIRCLE (128, 128), 64, _RGB32(255, 255, 255)
216.  
217. SL_PUT_SPRITE 128, 128, mysprite
218. SL_PUT_SPRITE 128, 128, mysprite2
219.  
220. DO
221.     _LIMIT SL_GET_FRAMERATE
222.     x = x + 1
223.     IF x = 15 THEN
224.         SL_CHANGE_MOTION_SPEED mysprite, SL_GET_MOTION_SPEED(mysprite) + .3
225.         SL_CHANGE_ROTATION_SPEED mysprite, SL_GET_ROTATION_SPEED(mysprite) + 1
226.         x = 0
227.     END IF
228.     SL_UPDATE_AUTO_SPRITES
229.     _DISPLAY
230. LOOP UNTIL _KEYHIT
231.  
232. SL_FREE_SPRITE mysprite
233. SL_FREE_SPRITE mysprite2
234.  
235. END
236.  
237.  
238. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
239. SUB SL_SET_FRAMERATE (framerate AS INTEGER) '                                                                                                                                          SL_SET_FRAMERATE
240.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
241.  
242.     ' declare global variables
243.  
244.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
245.     SHARED SL_framerate AS INTEGER '    global frame rate
246.  
247.     ' declare local variables
248.  
249.     DIM handle AS INTEGER '             cycle counter through sprite handles
250.  
251.     ' perform error checks
252.  
253.     ' add check for valid framerate <----------------- LOOK
254.  
255.     ' set local variables
256.  
257.     SL_framerate = framerate '                                                                          set global frame rate
258.     handle = 0 '                                                                                        reset handle counter
259.  
260.     DO '                                                                                                update all available sprites
261.         handle = handle + 1 '                                                                           increment sprite pointer
262.         IF SL_sprite(handle).inuse THEN '                                                               is this sprite in use?
263.             IF SL_sprite(handle).anim.framerate THEN '                                                  yes, does it contain an animation frame rate?
264.                 SL_sprite(handle).anim.skip = SL_framerate / (SL_framerate - SL_sprite(handle).anim.framerate) ' yes, recalculate skip rate
265.             END IF
266.         END IF
267.     LOOP UNTIL handle = UBOUND(SL_sprite) '                                                             leave when all sprites updated
268.  
269. END SUB
270.  
271. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
272. FUNCTION SL_GET_FRAMERATE () '                                                                                                                                                         SL_GET_FRAMERATE
273.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
274.  
275.     ' declare global variables
276.  
277.     SHARED SL_framerate AS INTEGER '    global frame rate
278.  
279.     SL_GET_FRAMERATE = SL_framerate
280.  
281. END FUNCTION
282.  
283. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
284. SUB SL_NEXT_ANIMATION_CELL () '                                                                                                                                                  SL_NEXT_ANIMATION_CELL
285.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
286.     ' manual sprite animation control
287.  
288. END SUB
289.  
290. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
291. SUB SL_PREVIOUS_ANIMATION_CELL () '                                                                                                                                          SL_PREVIOUS_ANIMATION_CELL
292.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
293.     ' manual sprite animation control
294.  
295. END SUB
296.  
297. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
298. SUB SL_CHANGE_ANIMATION_CELLS () '                                                                                                                                            SL_CHANGE_ANIMATION_CELLS
299.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
300.     ' change a sprite's animation sequence
301.  
302. END SUB
303.  
304. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
305. SUB SL_CHANGE_ANIMATION_FRAMERATE () '                                                                                                                                    SL_CHANGE_ANIMATION_FRAMERATE
306.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
307.     ' change a sprite's animation rate
308.  
309. END SUB
310.  
311. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
312. SUB SL_CHANGE_AUTOANIMATION (handle AS INTEGER, auto AS INTEGER) '                                                                                                              SL_CHANGE_AUTOANIMATION
313.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
314.  
315.     ' declare global variables
316.  
317.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
318.  
319.     ' perform error checks
320.  
321.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
322.         SL_ERROR "SL_CHANGE_AUTOANIMATION", 1, "" '                                                     no, report error to programmer
323.     END IF
324.     ' add check for correct auto value <-------------- LOOK
325.  
326.     SL_sprite(handle).anim.auto = auto '                                          (SL_START & SL_STOP)  set auto-animation
327.  
328. END SUB
329.  
330. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
331. SUB SL_SET_ANIMATION (handle AS INTEGER, cellfrom AS INTEGER, cellto AS INTEGER, mode AS INTEGER, framerate AS INTEGER, auto AS INTEGER) '                                             SL_SET_ANIMATION
332.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
333.  
334.     ' declare global variables
335.  
336.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
337.     SHARED SL_framerate AS INTEGER '    global frame rate
338.  
339.     ' perform error checks
340.  
341.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
342.         SL_ERROR "SL_SET_ANIMATION", 1, "" '                                                            no, report error to programmer
343.     END IF
344.     ' add check for rate >0 and < SL_framerate + 1
345.     ' add check for correct mode
346.     ' add check for valid cellto/cellfrom <-------------------- LOOK
347.     ' add check for correct auto value
348.  
349.     IF cellfrom = -1 THEN '                                                           (SL_CURRENTCELL)  use current cell as start cell?
350.         SL_sprite(handle).anim.cellfrom = SL_sprite(handle).anim.cell '                                 yes, set first cell as current cell
351.     ELSE '                                                                                              no
352.         SL_sprite(handle).anim.cellfrom = cellfrom '                                                    set first cell in animation
353.     END IF
354.     SL_sprite(handle).anim.cellto = cellto '                                                            last cell in animation
355.  
356.     IF SL_framerate = framerate THEN '                                                                  animation and global frame rates the same?
357.         SL_sprite(handle).anim.skip = 0 '                                                               yes, perform no skipping fo frames
358.     ELSE '                                                                                              no, frame rates are different
359.         SL_sprite(handle).anim.framerate = framerate
360.         SL_sprite(handle).anim.skip = SL_framerate / (SL_framerate - framerate) '                       calculate skip rate
361.     END IF
362.     SL_sprite(handle).anim.frame = 0 '                                                                  reset skip frame counter
363.     SL_sprite(handle).anim.mode = mode '                     (SL_FORWARD & SL_BACKWARD & SL_BACKFORTH)  set animation mode
364.     IF mode = 0 OR mode = 2 THEN '                                        (SL_FORWARD or SL_BACKFORTH)  forward or back and forth?
365.         SL_sprite(handle).anim.dir = 1 '                                                                yes, set animation direction forward
366.     ELSE '                                                                               (SL_BACKWARD)  no, backward
367.         SL_sprite(handle).anim.dir = -1 '                                                               set animation direction backward
368.     END IF
369.     SL_sprite(handle).anim.auto = auto '                                          (SL_START & SL_STOP)  set auto-animation
370.  
371. END SUB
372.  
373. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
374. FUNCTION SL_GET_ROW (sheet AS INTEGER, cell AS INTEGER) '                                                                                                                                    SL_GET_ROW
375.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
376.  
377.     ' declare global variables
378.  
379.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
380.  
381.     ' declare local variables
382.  
383.     DIM row AS INTEGER '                row cell is located in
384.  
385.     ' perform error checks
386.  
387.     IF NOT SL_VALID_SHEET(sheet) THEN '                                                                 is this a valid sheet?
388.         SL_ERROR "SL_GET_ROW", 5, "" '                                                                  no, report error to programmer
389.     END IF
390.  
391.     row = cell MOD SL_sheet(sheet, 0, 0).sheight '                                                      calculate row cell is in
392.     IF row = 0 THEN '                                                                                   bottom-most row?
393.         row = SL_sheet(sheet, 0, 0).sheight '                                                           yes, cell is in greatest row number
394.     END IF
395.  
396.     SL_GET_ROW = row '                                                                                  return row cell is located in
397.  
398. END FUNCTION
399.  
400. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
401. FUNCTION SL_GET_COLUMN (sheet AS INTEGER, cell AS INTEGER) '                                                                                                                              SL_GET_COLUMN
402.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
403.  
404.     ' declare global variables
405.  
406.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
407.  
408.     ' declare local variables
409.  
410.     DIM column AS INTEGER '             column cell is located in
411.  
412.     ' perform error checks
413.  
414.     IF NOT SL_VALID_SHEET(sheet) THEN '                                                                 is this a valid sheet?
415.         SL_ERROR "SL_GET_COLUMN", 5, "" '                                                               no, report error to programmer
416.     END IF
417.  
418.     column = cell MOD SL_sheet(sheet, 0, 0).swidth '                                                    calculate column cell is in
419.     IF column = 0 THEN '                                                                                right-most column?
420.         column = SL_sheet(sheet, 0, 0).swidth ' '                                                       yes, cell is in greatest column number
421.     END IF
422.  
423.     SL_GET_COLUMN = column '                                                                            return column cell is located in
424.  
425. END FUNCTION
426.  
427. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
428. FUNCTION SL_GET_CELL (handle AS INTEGER) '                                                                                                                                                  SL_GET_CELL
429.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
430.  
431.     ' declare global variables
432.  
433.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
434.  
435.     ' perform error checks
436.  
437.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
438.         SL_ERROR "SL_GET_CELL", 1, "" '                                                                 no, report error to programmer
439.     END IF
440.  
441.     SL_GET_CELL = SL_sprite(handle).anim.cell '                                                         return animation cell of this sprite
442.  
443. END FUNCTION
444.  
445. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
446. FUNCTION SL_GET_REALX (handle AS INTEGER) '                                                                                                                                                SL_GET_REALX
447.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
448.  
449.     ' declare global variables
450.  
451.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
452.  
453.     ' perform error checks
454.  
455.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
456.         SL_ERROR "SL_GET_REALX", 1, "" '                                                                no, report error to programmer
457.     END IF
458.  
459.     SL_GET_REALX = SL_sprite(handle).x.real '                                                           return real number center point x
460.  
461. END FUNCTION
462.  
463. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
464. FUNCTION SL_GET_REALY (handle AS INTEGER) '                                                                                                                                                SL_GET_REALY
465.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
466.  
467.     ' declare global variables
468.  
469.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
470.  
471.     ' perform error checks
472.  
473.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
474.         SL_ERROR "SL_GET_REALY", 1, "" '                                                                no, report error to programmer
475.     END IF
476.  
477.     SL_GET_REALY = SL_sprite(handle).y.real '                                                           return real number center point y
478.  
479. END FUNCTION
480.  
481. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
482. FUNCTION SL_GET_INTX (handle AS INTEGER) '                                                                                                                                                  SL_GET_INTX
483.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
484.  
485.     ' declare global variables
486.  
487.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
488.  
489.     ' perform error checks
490.  
491.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
492.         SL_ERROR "SL_GET_INTX", 1, "" '                                                                 no, report error to programmer
493.     END IF
494.  
495.     SL_GET_INTX = SL_sprite(handle).x.int '                                                             return integer number center point x
496.  
497. END FUNCTION
498.  
499. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
500. FUNCTION SL_GET_INTY (handle AS INTEGER) '                                                                                                                                                  SL_GET_INTY
501.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
502.  
503.     ' declare global variables
504.  
505.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
506.  
507.     ' perform error checks
508.  
509.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
510.         SL_ERROR "SL_GET_INTY", 1, "" '                                                                 no, report error to programmer
511.     END IF
512.  
513.     SL_GET_INTY = SL_sprite(handle).y.int '                                                             return integer number center point x
514.  
515. END FUNCTION
516.  
517. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
518. FUNCTION SL_GET_ACTUALX (handle AS INTEGER) '                                                                                                                                            SL_GET_ACTUALX
519.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
520.  
521.     ' declare global variables
522.  
523.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
524.  
525.     ' perform error checks
526.  
527.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
528.         SL_ERROR "SL_GET_ACTUALX", 1, "" '                                                              no, report error to programmer
529.     END IF
530.  
531.     SL_GET_ACTUALX = SL_sprite(handle).x.actual '                                                       return integer number upper left point x
532.  
533. END FUNCTION
534.  
535. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
536. FUNCTION SL_GET_ACTUALY (handle AS INTEGER) '                                                                                                                                            SL_GET_ACTUALY
537.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
538.  
539.     ' declare global variables
540.  
541.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
542.  
543.     ' perform error checks
544.  
545.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
546.         SL_ERROR "SL_GET_ACTUALY", 1, "" '                                                              no, report error to programmer
547.     END IF
548.  
549.     SL_GET_ACTUALY = SL_sprite(handle).y.actual '                                                       return integer number upper left point y
550.  
551. END FUNCTION
552.  
553. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
554. FUNCTION SL_COPY_SPRITE (handle AS INTEGER) '                                                                                                                                            SL_COPY_SPRITE
555.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
556.  
557.     ' declare global variables
558.  
559.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
560.  
561.     ' declare local variables
562.  
563.     DIM newhandle AS INTEGER '          handle of copied sprite
564.  
565.     ' perform error checks
566.  
567.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
568.         SL_ERROR "SL_COPY_SPRITE", 1, "" '                                                              no, report error to programmer
569.     END IF
570.  
571.     newhandle = 0 '                                                                                     initialize new handle counter
572.  
573.     ' increase sprite array's size if needed
574.  
575.     DO '                                                                                                look for next available handle
576.         newhandle = newhandle + 1 '                                                                     increment to next handle value
577.     LOOP UNTIL (NOT SL_sprite(newhandle).inuse) OR newhandle = UBOUND(SL_sprite) '                      stop looking when valid handle found
578.     IF SL_sprite(newhandle).inuse THEN '                                                                is the last array element in use?
579.         newhandle = newhandle + 1 '                                                                     yes, increment to next handle value
580.         REDIM _PRESERVE SL_sprite(newhandle) AS SL_SPRITE '                                             increase the size of the sprite array
581.     END IF
582.  
583.     ' copy new sprite
584.  
585.     SL_sprite(newhandle) = SL_sprite(handle) '                                                          copy entire sprite contents
586.     SL_sprite(newhandle).gfx.sprite = _COPYIMAGE(SL_sprite(handle).gfx.sprite, 33) '                    create an actual copy of the hardware sprite
587.     SL_sprite(newhandle).gfx.image = _COPYIMAGE(SL_sprite(handle).gfx.image, 32) '                      create an actual copy of the software image
588.     IF SL_sprite(handle).gfx.mask THEN '                                                                does the original contain a mask image?
589.         SL_sprite(newhandle).gfx.mask = _COPYIMAGE(SL_sprite(handle).gfx.mask, 32) '                    yes, create an actual copy of the software mask image
590.     END IF
591.  
592.     SL_COPY_SPRITE = newhandle '                                                                        return new sprite's handle pointer
593.  
594. END FUNCTION
595.  
596. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
597. SUB SL_STAMP_SPRITE (x AS INTEGER, y AS INTEGER, sheet AS INTEGER, column AS INTEGER, row AS INTEGER, degrees AS INTEGER, flip AS INTEGER, zoom AS INTEGER) '                           SL_STAMP_SPRITE
598.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
599.  
600.     ' declare global variables
601.  
602.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
603.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
604.  
605.     ' declare local variables
606.  
607.     DIM tempsprite AS LONG '            temporary sprite to stamp
608.     DIM degree AS INTEGER '             rotation degree passed in
609.  
610.     ' set local variables
611.  
612.     degree = SL_FIX_DEGREES(degrees) '                                                                  get rotation degree passed in
613.  
614.     ' perform error checks
615.  
616.     IF NOT SL_VALID_SHEET(sheet) THEN '                                                                 is this a valid sheet?
617.         SL_ERROR "SL_STAMP_SPRITE", 5, "" '                                                             no, report error to programmer
618.     END IF
619.     IF column > UBOUND(SL_sheet, 2) OR row > UBOUND(SL_sheet, 3) OR row < 1 OR column < 1 THEN '        valid row and column requested?
620.         SL_ERROR "SL_STAMP_SPRITE", 6, "" '                                                             no, report error to programmer
621.     END IF
622.     IF flip < 0 OR flip > 3 THEN '                                                                      valid flip behavior requested?
623.         SL_ERROR "SL_STAMP_SPRITE", 3, "" '                                                             no, report error to programmer
624.     END IF
625.     IF zoom < 1 THEN '                                                                                  valid zoom level requested?
626.         SL_ERROR "SL_STAMP_SPRITE", 4, "" '                                                             no, report error to programmer
627.     END IF
628.  
629.     tempsprite = SL_NEW_SPRITE(sheet, column, row, 0, 0) '                                              create new temporary sprite
630.     SL_sprite(tempsprite).rotation.speed = degree '                                                     set speed of rotation
631.     SL_sprite(tempsprite).flip = flip '                                                                 set flipping behavior
632.     SL_sprite(tempsprite).zoom = zoom '                                                                 set zoom level
633.     SL_PUT_SPRITE x, y, tempsprite '                                                                    place sprite on current destination
634.     SL_FREE_SPRITE tempsprite '                                                                         temporary sprite no longer needed
635.  
636. END SUB
637.  
638. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
639. SUB SL_UPDATE_AUTO_SPRITES () '                                                                                                                                                  SL_UPDATE_AUTO_SPRITES
640.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
641.  
642.     ' declare global variables
643.  
644.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
645.  
646.     ' declare local variables
647.  
648.     DIM handle AS INTEGER '             handle of sprite
649.     DIM nextcell AS INTEGER '           next animation cell
650.  
651.     ' local variable setup
652.  
653.     handle = 0 '                                                                                        initialize handle counter
654.     DO '                                                                                                cycle through all sprite indexes
655.         handle = handle + 1 '                                                                           increment to next sprite handle
656.         IF SL_sprite(handle).inuse AND (SL_sprite(handle).motion.auto OR _
657.                                         SL_sprite(handle).rotation.auto OR _
658.                                         SL_sprite(handle).anim.auto) THEN '                             is this sprite being used and automagically controlled?
659.             IF SL_sprite(handle).motion.auto THEN '                                                     yes, is auto motion enabled?
660.                 SL_sprite(handle).x.real = SL_sprite(handle).x.real + SL_sprite(handle).x.dir '         yes, update x location
661.                 SL_sprite(handle).y.real = SL_sprite(handle).y.real + SL_sprite(handle).y.dir '         update y location
662.             END IF
663.             IF SL_sprite(handle).rotation.auto THEN '                                                   is auto rotation enabled?
664.                 SL_sprite(handle).rotation.angle = SL_FIX_DEGREES(SL_sprite(handle).rotation.angle_
665.                                                                 + SL_sprite(handle).rotation.speed) '   yes, rotate sprite to next degree angle
666.             END IF
667.             IF SL_sprite(handle).anim.auto THEN '                                                       is auto animation enabled?
668.                 SL_sprite(handle).anim.frame = SL_sprite(handle).anim.frame + 1 '                       increment animation frame counter
669.                 IF SL_sprite(handle).anim.frame <> SL_sprite(handle).anim.skip OR SL_sprite(handle).anim.skip = 0 THEN ' draw this frame?
670.                     nextcell = SL_sprite(handle).anim.cell + SL_sprite(handle).anim.dir '               yes, get next animation cell based on direction
671.                     SELECT CASE SL_sprite(handle).anim.mode '                                           which animation mode is this sprite using?
672.                         CASE 0 '                                                          (SL_FORWARD)  move forward through the cells
673.                             IF nextcell > SL_sprite(handle).anim.cellto THEN '                          has the last cell been reached?
674.                                 SL_sprite(handle).anim.cell = SL_sprite(handle).anim.cellfrom '         yes, reset back to the first cell
675.                             END IF
676.                         CASE 1 '                                                         (SL_BACKWARD)  move backward through the cells
677.                             IF nextcell < SL_sprite(handle).anim.cellfrom THEN '                        has the first cell been reached?
678.                                 SL_sprite(handle).anim.cell = SL_sprite(handle).anim.cellto '           yes, reset back to the last cell
679.                             END IF
680.                         CASE 2 '                                                        (SL_BACKFORTH)  ping-pong back and forth through the cells
681.                             SL_sprite(handle).anim.cell = nextcell '                                    make this cell the current
682.                             IF nextcell = SL_sprite(handle).anim.cellto OR nextcell = SL_sprite(handle).anim.cellfrom THEN ' was this the first or last cell?
683.                                 SL_sprite(handle).anim.dir = -SL_sprite(handle).anim.dir '              yes, reverse animation direction
684.                             END IF
685.                     END SELECT
686.                     SL_sprite(handle).column = SL_GET_COLUMN(SL_sprite(handle).sheet, SL_sprite(handle).anim.cell) ' get cell column on sheet
687.                     SL_sprite(handle).row = SL_GET_ROW(SL_sprite(handle).sheet, SL_sprite(handle).anim.cell) '       get cell row on sheet
688.                 ELSE '                                                                                  no, skip this frame
689.                     SL_sprite(handle).anim.frame = 0 '                                                  reset frame counter
690.                 END IF
691.             END IF
692.             SL_PUT_SPRITE SL_sprite(handle).x.real, SL_sprite(handle).y.real, handle '                  update sprite location, rotation, and animation
693.         END IF
694.     LOOP UNTIL handle = UBOUND(SL_sprite) '                                                             leave when all indexes checked
695.  
696. END SUB
697.  
698. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
699. SUB SL_UPDATE_MOTION (handle AS INTEGER) '                                                                                                                                             SL_UPDATE_MOTION
700.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
701.  
702.     ' declare global variables
703.  
704.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
705.  
706.     ' perform error checks
707.  
708.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
709.         SL_ERROR "SL_UPDATE_MOTION", 1, "" '                                                              no, report error to programmer
710.     END IF
711.     IF SL_sprite(handle).motion.auto THEN '                                                             attempt to move sprite under automatic control?
712.         SL_ERROR "SL_UPDATE_MOTION", 170, "" '                                                            yes, report error to programmer
713.     END IF
714.  
715.     SL_sprite(handle).x.real = SL_sprite(handle).x.real + SL_sprite(handle).x.dir '                     update x location
716.     SL_sprite(handle).y.real = SL_sprite(handle).y.real + SL_sprite(handle).y.dir '                     update y location
717.     SL_PUT_SPRITE SL_sprite(handle).x.real, SL_sprite(handle).y.real, handle '                          update sprite location
718.  
719. END SUB
720.  
721. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
722. SUB SL_UPDATE_ROTATION (handle AS INTEGER) '                                                                                                                                         SL_UPDATE_ROTATION
723.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
724.  
725.     ' declare global variables
726.  
727.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
728.  
729.     ' perform error checks
730.  
731.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
732.         SL_ERROR "SL_UPDATE_ROTATION", 1, "" '                                                          no, report error to programmer
733.     END IF
734.     IF SL_sprite(handle).rotation.auto THEN '                                                           attempt to rotate sprite under automatic control?
735.         SL_ERROR "SL_UPDATE_ROTATION", 180, "" '                                                        yes, report error to programmer
736.     END IF
737.  
738.     SL_ROTATE_SPRITE handle, SL_sprite(handle).rotation.angle + SL_sprite(handle).rotation.speed '       rotate sprite to next degree angle
739.     SL_PUT_SPRITE SL_sprite(handle).x.real, SL_sprite(handle).y.real, handle '                          update sprite rotation
740.  
741. END SUB
742.  
743. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
744. SUB SL_SET_MOTION (handle AS INTEGER, degrees AS INTEGER, speed AS SINGLE, auto AS INTEGER) '                                                                                            SL_SET_MOTION
745.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
746.  
747.     ' declare global variables
748.  
749.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
750.  
751.     ' perform error checks
752.  
753.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
754.         SL_ERROR "SL_SET_DIRECTION", 1, "" '                                                            no, report error to programmer
755.     END IF
756.     IF auto < -1 OR auto > 0 THEN '                                               (SL_START & SL_STOP)  valid on/off switch supplied?
757.         SL_ERROR "SL_CHANGE_AUTOMOTION", 7, "" '                                                           no, report error to programmer
758.     END IF
759.  
760.     SL_sprite(handle).motion.speed = speed '                                                            set motion speed of sprite
761.     SL_CHANGE_MOTION_DIRECTION handle, degrees '                                                           set motion angle of sprite
762.     SL_sprite(handle).motion.auto = auto '                                        (SL_START & SL_STOP)  set auto-motion of sprite
763.  
764. END SUB
765.  
766.  
767. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
768. SUB SL_CHANGE_MOTION_DIRECTION (handle AS INTEGER, degrees AS INTEGER) '                                                                                                     SL_CHANGE_MOTION_DIRECTION
769.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
770.  
771.     ' declare global variables
772.  
773.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
774.  
775.     ' delcare local variables
776.  
777.     DIM degree AS INTEGER '             degree angle passed in
778.  
779.     ' perform error checks
780.  
781.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
782.         SL_ERROR "SL_CHANGE_MOTION_DIRECTION", 1, "" '                                                  no, report error to programmer
783.     END IF
784.  
785.     degree = SL_FIX_DEGREES(degrees) '                                                                  get degree angle passed in
786.  
787.     SL_sprite(handle).motion.angle = degree '                                                           set motion degree angle
788.     SL_sprite(handle).x.dir = SIN(degree * 3.1415926 / 180) * SL_sprite(handle).motion.speed '          calculate x vector
789.     SL_sprite(handle).y.dir = -COS(degree * 3.1415926 / 180) * SL_sprite(handle).motion.speed '         calculate y vector
790.  
791. END SUB
792.  
793. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
794. FUNCTION SL_GET_MOTION_DIRECTION (handle AS INTEGER) '                                                                                                                          SL_GET_MOTION_DIRECTION
795.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
796.  
797.     ' declare global variables
798.  
799.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
800.  
801.     ' perform error checks
802.  
803.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
804.         SL_ERROR "SL_GET_MOTION_DIRECTION", 1, "" '                                                     no, report error to programmer
805.     END IF
806.  
807.     SL_GET_MOTION_DIRECTION = SL_sprite(handle).motion.angle '                                          return direction sprite currently set to
808.  
809. END FUNCTION
810.  
811. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
812. SUB SL_CHANGE_MOTION_SPEED (handle AS INTEGER, speed AS SINGLE) '                                                                                                                SL_CHANGE_MOTION_SPEED
813.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
814.  
815.     ' declare global variables
816.  
817.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
818.  
819.     ' perform error checks
820.  
821.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
822.         SL_ERROR "SL_CHANGE_MOTION_SPEED", 1, "" '                                                      no, report error to programmer
823.     END IF
824.  
825.     SL_sprite(handle).motion.speed = speed '                                                            set sprite motion speed
826.     SL_sprite(handle).x.dir = SIN(SL_sprite(handle).motion.angle * 3.1415926 / 180) * speed '           calculate x vector
827.     SL_sprite(handle).y.dir = -COS(SL_sprite(handle).motion.angle * 3.1415926 / 180) * speed '          calculate y vector
828.  
829. END SUB
830.  
831. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
832. FUNCTION SL_GET_MOTION_SPEED (handle AS INTEGER) '                                                                                                                                  SL_GET_MOTION_SPEED
833.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
834.  
835.     ' declare global variables
836.  
837.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
838.  
839.     ' perform error checks
840.  
841.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
842.         SL_ERROR "SL_GET_MOTION_SPEED", 1, "" '                                                         no, report error to programmer
843.     END IF
844.  
845.     SL_GET_MOTION_SPEED = SL_sprite(handle).motion.speed '                                              return current sprite motion speed
846.  
847. END FUNCTION
848.  
849. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
850. SUB SL_CHANGE_AUTOMOTION (handle AS INTEGER, auto AS INTEGER) '                                                                                                                    SL_CHANGE_AUTOMOTION
851.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
852.  
853.     ' declare global variables
854.  
855.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
856.  
857.     IF auto = -32767 THEN '                                                                 (SL_RESET)  reset auto motion?
858.         SL_sprite(handle).motion.auto = 0 '                                                    (FALSE)  yes, turn auto motion off
859.         EXIT SUB '                                                                                      leave subroutine
860.     END IF
861.  
862.     ' perform error checks
863.  
864.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
865.         SL_ERROR "SL_CHANGE_AUTOMOTION", 1, "" '                                                        no, report error to programmer
866.     END IF
867.     IF auto < -1 OR auto > 0 THEN '                                               (SL_START & SL_STOP)  valid on/off switch supplied?
868.         SL_ERROR "SL_CHANGE_AUTOMOTION", 7, "" '                                                        no, report error to programmer
869.     END IF
870.  
871.     SL_sprite(handle).motion.auto = auto '                                              (TRUE & FALSE)  set auto motion status
872.  
873. END SUB
874.  
875. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
876. FUNCTION SL_GET_AUTOMOTION (handle AS INTEGER) '                                                                                                                                      SL_GET_AUTOMOTION
877.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
878.  
879.     ' declare global variables
880.  
881.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
882.  
883.     ' perform error checks
884.  
885.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
886.         SL_ERROR "SL_GET_AUTOMOTION", 1, "" '                                                           no, report error to programmer
887.     END IF
888.  
889.     SL_GET_AUTOMOTION = SL_sprite(handle).motion.auto '                                 (TRUE & FALSE)  return auto motion status
890.  
891. END FUNCTION
892.  
893. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
894. SUB SL_SET_ROTATION (handle AS INTEGER, degrees AS INTEGER, speed AS INTEGER, auto AS INTEGER) '                                                                                        SL_SET_ROTATION
895.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
896.  
897.     ' declare global variables
898.  
899.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
900.  
901.     ' perform error checks
902.  
903.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
904.         SL_ERROR "SL_SET_ROTATION", 1, "" '                                                             no, report error to programmer
905.     END IF
906.     IF auto < -1 OR auto > 0 THEN '                                               (SL_START & SL_STOP)  valid on/off switch supplied?
907.         SL_ERROR "SL_SET_ROTATION", 8, "" '                                                             no, report error to programmer
908.     END IF
909.     IF ABS(degrees) > 359 THEN '                                                                        degree requested between -359 and 359?
910.         SL_ERROR "SL_SET_ROTATION", 9, "" '                                                             no, report error to programmer
911.     END IF
912.  
913.     SL_sprite(handle).rotation.speed = speed '                                                          set rotation speed
914.     SL_ROTATE_SPRITE handle, degrees '                                                                  set start angle
915.     SL_sprite(handle).rotation.auto = auto '                                                            set auto-rotation
916.  
917. END SUB
918.  
919. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
920. SUB SL_CHANGE_AUTOROTATION (handle AS INTEGER, auto AS INTEGER) '                                                                                                                SL_CHANGE_AUTOROTATION
921.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
922.  
923.     ' declare global variables
924.  
925.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
926.  
927.     IF auto = -32767 THEN '                                                                 (SL_RESET)  reset auto rotate?
928.         SL_sprite(handle).rotation.auto = 0 '                                                  (FALSE)  yes, turn auto rotation off
929.         EXIT SUB '                                                                                      leave subroutine
930.     END IF
931.  
932.     ' perform error checks
933.  
934.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
935.         SL_ERROR "SL_CHANGE_AUTOROTATION", 1, "" '                                                      no, report error to programmer
936.     END IF
937.     IF auto < -1 OR auto > 0 THEN '                                               (SL_START & SL_STOP)  valid on/off switch supplied?
938.         SL_ERROR "SL_CHANGE_AUTOROTATION", 8, "" '                                                      no, report error to programmer
939.     END IF
940.  
941.     SL_sprite(handle).rotation.auto = auto '                                            (TRUE & FALSE)  set auto rotation status
942.  
943. END SUB
944.  
945. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
946. FUNCTION SL_GET_AUTOROTATION (handle AS INTEGER) '                                                                                                                                  SL_GET_AUTOROTATION
947.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
948.  
949.     ' declare global variables
950.  
951.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
952.  
953.     ' perform error checks
954.  
955.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
956.         SL_ERROR "SL_GET_AUTOROTATION", 1, "" '                                                         no, report error to programmer
957.     END IF
958.  
959.     SL_GET_AUTOROTATION = SL_sprite(handle).rotation.auto '                               (TRUE & FALSE)  return auto rotation status
960.  
961. END FUNCTION
962.  
963. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
964. SUB SL_CHANGE_ROTATION_SPEED (handle AS INTEGER, degrees AS INTEGER) '                                                                                                         SL_CHANGE_ROTATION_SPEED
965.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
966.  
967.     ' declare global variables
968.  
969.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
970.  
971.     ' perform error checks
972.  
973.     IF degrees = -32767 THEN '                                                              (SL_RESET)  reset requested?
974.         SL_sprite(handle).rotation.speed = 0 '                                               (SL_STOP)  turn auto spin off
975.         EXIT SUB '                                                                                      leave subroutine
976.     END IF
977.  
978.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
979.         SL_ERROR "SL_CHANGE_ROTATION_SPEED", 1, "" '                                                    no, report error to programmer
980.     END IF
981.     IF ABS(degrees) > 359 THEN '                                                                        degree requested between -359 and 359?
982.         SL_ERROR "SL_CHANGE_ROTATION_SPEED", 9, "" '                                                    no, report error to programmer
983.     END IF
984.  
985.     SL_sprite(handle).rotation.speed = degrees '                                                        set sprite spin rate
986.  
987. END SUB
988.  
989. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
990. FUNCTION SL_GET_ROTATION_SPEED (handle AS INTEGER) '                                                                                                                              SL_GET_ROTATION_SPEED
991.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
992.  
993.     ' declare global variables
994.  
995.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
996.  
997.     ' perform error checks
998.  
999.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1000.         SL_ERROR "SL_GET_ROTATION_SPEED", 1, "" '                                                       no, report error to programmer
1001.     END IF
1002.  
1003.     SL_GET_ROTATION_SPEED = SL_sprite(handle).rotation.speed '                                          return current sprite spin rate
1004.  
1005. END FUNCTION
1006.  
1007. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1008. FUNCTION SL_GET_DISTANCE_POINT_TO_POINT (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER) '                                                                   SL_GET_DISTANCE_POINT_TO_POINT
1009.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1010.  
1011.     'declare local variables
1012.  
1013.     DIM a AS INTEGER '                  side a of triangle
1014.     DIM b AS INTEGER '                  side b of triangle
1015.  
1016.     'solve for c (hypotenuse)
1017.  
1018.     a = x1 - x2 '                                                                                       get length of side a
1019.     b = y1 = y2 '                                                                                       get length of side b
1020.  
1021.     SL_GET_DISTANCE_POINT_TO_POINT = INT(SQR(a * a + b * b)) '                                          return length of side c
1022.  
1023. END FUNCTION
1024.  
1025. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1026. FUNCTION SL_GET_DISTANCE_TO_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                 SL_GET_DISTANCE_TO_SPRITE
1027.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1028.  
1029.     ' declare global variables
1030.  
1031.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1032.  
1033.     'perform error checks
1034.  
1035.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
1036.         SL_ERROR "SL_GET_DISTANCE_TO_SPRITE", 1, "" '                                                   no, report error to programmer
1037.     END IF
1038.  
1039.     SL_GET_DISTANCE_TO_SPRITE = SL_GET_DISTANCE_POINT_TO_POINT(SL_sprite(handle1).x.int, SL_sprite(handle1).y.int, _
1040.                                                                SL_sprite(handle2).x.int, SL_sprite(handle2).y.int) '  return distance to sprite 2
1041.  
1042. END FUNCTION
1043.  
1044. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1045. FUNCTION SL_GET_DISTANCE_TO_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER) '                                                                                            SL_GET_DISTANCE_TO_POINT
1046.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1047.  
1048.     ' declare global variables
1049.  
1050.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1051.  
1052.     'perform error checks
1053.  
1054.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1055.         SL_ERROR "SL_GET_DISTANCE_TO_POINT", 1, "" '                                                    no, report error to programmer
1056.     END IF
1057.  
1058.     SL_GET_DISTANCE_TO_POINT = SL_GET_DISTANCE_POINT_TO_POINT(SL_sprite(handle).x.int, SL_sprite(handle).y.int, x, y) ' return distance to point
1059.  
1060. END FUNCTION
1061.  
1062. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1063. FUNCTION SL_GET_ANGLE_POINT_TO_POINT (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER) '                                                                         SL_GET_ANGLE_POINT_TO_POINT
1064.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1065.  
1066.     'declare local variables
1067.  
1068.     DIM angle AS INTEGER '              angle from first x,y location to second x,y location
1069.  
1070.     IF y1 = y2 THEN '                                                                                   both y values same?
1071.         IF x1 = x2 THEN '                                                                               yes, both x values same?
1072.             EXIT FUNCTION '                                                                             yes, there is no angle (0), leave
1073.         END IF
1074.         IF x2 > x1 THEN '                                                                               is second x to the right of first x?
1075.             SL_GET_ANGLE_POINT_TO_POINT = 90 '                                                          yes, the angle must be 90 degrees
1076.         ELSE '                                                                                          no, second x is to the left of first x
1077.             SL_GET_ANGLE_POINT_TO_POINT = 270 '                                                         the angle must be 270 degrees
1078.         END IF
1079.         EXIT FUNCTION '                                                                                 leave function, angle computed
1080.     END IF
1081.     IF x1 = x2 THEN '                                                                                   both x values same?
1082.         IF y2 > y1 THEN '                                                                               yes, is second y lower than first y?
1083.             SL_GET_ANGLE_POINT_TO_POINT = 180 '                                                         yes, the angle must be 180
1084.         END IF
1085.         EXIT FUNCTION '                                                                                 leave function, angle computed (angle is 0 if no calculation done)
1086.     END IF
1087.     angle = ATN((x2 - x1) / (y2 - y1)) * -57.2957795131 '                                               calculate initial angle
1088.     IF y2 < y1 THEN '                                                                                   is second y higher than first y?
1089.         IF x2 > x1 THEN '                                                                               yes, is second x to right of first x?
1090.             SL_GET_ANGLE_POINT_TO_POINT = angle '                                                       yes, angle needs no adjustment
1091.         ELSE '                                                                                          no, second x is to left of first x
1092.             SL_GET_ANGLE_POINT_TO_POINT = angle + 360 '                                                 adjust angle accordingly
1093.         END IF
1094.     ELSE '                                                                                              no, second y is lower than first y
1095.         SL_GET_ANGLE_POINT_TO_POINT = angle + 180 '                                                     adjust angle accordingly
1096.     END IF
1097.  
1098. END FUNCTION
1099.  
1100. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1101. FUNCTION SL_GET_ANGLE_TO_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                       SL_GET_ANGLE_TO_SPRITE
1102.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1103.  
1104.     ' declare global variables
1105.  
1106.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1107.  
1108.     'perform error checks
1109.  
1110.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
1111.         SL_ERROR "SL_GET_ANGLE_TO_SPRITE", 1, "" '                                                      no, report error to programmer
1112.     END IF
1113.  
1114.     SL_GET_ANGLE_TO_SPRITE = SL_GET_ANGLE_POINT_TO_POINT(SL_sprite(handle1).x.int, SL_sprite(handle1).y.int, _
1115.                                                          SL_sprite(handle2).x.int, SL_sprite(handle2).y.int) ' return angle to sprite 2
1116.  
1117. END FUNCTION
1118.  
1119. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1120. FUNCTION SL_GET_ANGLE_FROM_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                   SL_GET_ANGLE_FROM_SPRITE
1121.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1122.  
1123.     ' declare global variables
1124.  
1125.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1126.  
1127.     'perform error checks
1128.  
1129.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
1130.         SL_ERROR "SL_GET_ANGLE_FROM_SPRITE", 1, "" '                                                    no, report error to programmer
1131.     END IF
1132.  
1133.     SL_GET_ANGLE_FROM_SPRITE = SL_GET_ANGLE_POINT_TO_POINT(SL_sprite(handle2).x.int, SL_sprite(handle2).y.int, _
1134.                                                            SL_sprite(handle1).x.int, SL_sprite(handle1).y.int) '  return angle from sprite 2
1135.  
1136. END FUNCTION
1137.  
1138. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1139. FUNCTION SL_GET_ANGLE_TO_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER) '                                                                                                  SL_GET_ANGLE_TO_POINT
1140.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1141.  
1142.     ' declare global variables
1143.  
1144.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1145.  
1146.     'perform error checks
1147.  
1148.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1149.         SL_ERROR "SL_GET_ANGLE_TO_POINT", 1, "" '                                                       no, report error to programmer
1150.     END IF
1151.  
1152.     SL_GET_ANGLE_TO_POINT = SL_GET_ANGLE_POINT_TO_POINT(SL_sprite(handle).x.int, SL_sprite(handle).y.int, x, y) ' return angle to point x,y
1153.  
1154. END FUNCTION
1155.  
1156. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1157. FUNCTION SL_GET_ANGLE_FROM_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER) '                                                                                              SL_GET_ANGLE_FROM_POINT
1158.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1159.  
1160.     ' declare global variables
1161.  
1162.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1163.  
1164.     'perform error checks
1165.  
1166.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1167.         SL_ERROR "SL_GET_ANGLE_FROM_POINT", 1, "" '                                                     no, report error to programmer
1168.     END IF
1169.  
1170.     SL_GET_ANGLE_FROM_POINT = SL_GET_ANGLE_POINT_TO_POINT(x, y, SL_sprite(handle).x.int, SL_sprite(handle).y.int) 'return angle from point x,y
1171.  
1172. END FUNCTION
1173.  
1174. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1175. SUB SL_SET_SOFTWARE (handle AS INTEGER, restores AS INTEGER) '                                                                                                                          SL_SET_SOFTWARE
1176.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1177.  
1178.     ' declare global variables
1179.  
1180.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1181.  
1182.     'perform error checks
1183.  
1184.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1185.         SL_ERROR "SL_SET_SOFTWARE", 1, "" '                                                             no, report error to programmer
1186.     END IF
1187.     IF restores < -1 OR restores > 0 THEN '                                                             valid background restoration behavior requested?
1188.         SL_ERROR "SL_SET_SOFTWARE", 2, "" '                                                             no, report error to programmer
1189.     END IF
1190.  
1191.     SL_sprite(handle).software = -1 '                                                    (SL_SOFTWARE)  set sprite to software mode
1192.     SL_sprite(handle).restore = restores '                                       (SL_SAVE & SL_NOSAVE)  set background saving behavior
1193.  
1194. END SUB
1195.  
1196. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1197. SUB SL_SET_HARDWARE (handle AS INTEGER) '                                                                                                                                               SL_SET_HARDWARE
1198.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1199.  
1200.     ' declare global variables
1201.  
1202.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1203.  
1204.     'perform error checks
1205.  
1206.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1207.         SL_ERROR "SL_SET_HARDWARE", 1, "" '                                                             no, report error to programmer
1208.     END IF
1209.  
1210.     SL_sprite(handle).software = 0 '                                                     (SL_HARDWARE)  set sprite to hardware mode
1211.  
1212. END SUB
1213.  
1214. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1215. SUB SL_SET_ZOOM (handle AS INTEGER, zoom AS INTEGER) '                                                                                                                                      SL_SET_ZOOM
1216.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1217.  
1218.     ' declare global variables
1219.  
1220.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1221.  
1222.     IF zoom = -32767 THEN '                                                                 (SL_RESET)  reset zoom level?
1223.         SL_sprite(handle).zoom = 100 '                                                                  yes, reset level to normal
1224.         EXIT SUB '                                                                                      leave subroutine
1225.     END IF
1226.  
1227.     ' perform error checks (errors 130-139)
1228.  
1229.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1230.         SL_ERROR "SL_SET_ZOOM", 1, "" '                                                                 no, report error to programmer
1231.     END IF
1232.     IF zoom < 1 THEN '                                                                                  valid zoom level requested?
1233.         SL_ERROR "SL_SET_ZOOM", 4, "" '                                                                 no, report error to programmer
1234.     END IF
1235.  
1236.     SL_sprite(handle).zoom = zoom '                                                                     set zoom level
1237.  
1238. END SUB
1239.  
1240.  
1241. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1242. SUB SL_ROTATE_SPRITE (handle AS INTEGER, degrees AS INTEGER) '                                                                                                                         SL_ROTATE_SPRITE
1243.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1244.  
1245.     ' declare global variables
1246.  
1247.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1248.  
1249.     ' declare local variables
1250.  
1251.     DIM degree AS INTEGER '             degree angle passed in
1252.  
1253.     ' perform error checks
1254.  
1255.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1256.         SL_ERROR "SL_ROTATE_SPRITE", 1, "" '                                                            no, report error to programmer
1257.     END IF
1258.  
1259.     'handle reset request
1260.  
1261.     IF degrees = -32767 THEN '                                                              (SL_RESET)  reset sprite rotation?
1262.         SL_sprite(handle).rotation.angle = 0 '                                                          reset rotation angle
1263.         EXIT SUB '                                                                                      leave subroutine
1264.     END IF
1265.  
1266.     degree = SL_FIX_DEGREES(degrees) '                                                                  get degree angle passed in
1267.     SL_sprite(handle).rotation.angle = degree '                                                         set degree of rotation
1268.  
1269. END SUB
1270.  
1271. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1272. SUB SL_FLIP_SPRITE (handle AS INTEGER, flip AS INTEGER) '                                                                                                                                SL_FLIP_SPRITE
1273.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1274.  
1275.     ' declare global variables
1276.  
1277.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1278.  
1279.     ' check for subroutine reset
1280.  
1281.     IF flip = -32767 THEN '                                                                 (SL_RESET)  reset flipping behavior?
1282.         SL_sprite(handle).flip = 0 '                                                       (SL_NOFLIP)  yes, reset flip value
1283.         EXIT SUB '                                                                                      leave subroutine
1284.     END IF
1285.  
1286.     ' perform error checks
1287.  
1288.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1289.         SL_ERROR "SL_FLIP_SPRITE", 1, "" '                                                              no, report error to programmer
1290.     END IF
1291.     IF flip < 0 OR flip > 3 THEN '                                                                      valid flip behavior requested?
1292.         SL_ERROR "SL_FLIP_SPRITE", 3, "" '                                                              no, report error to programmer
1293.     END IF
1294.  
1295.     SL_sprite(handle).flip = flip '                                                                     set flipping behavior
1296.  
1297. END SUB
1298.  
1299. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1300. SUB SL_PUT_SPRITE (x AS SINGLE, y AS SINGLE, handle AS INTEGER) '                                                                                                                         SL_PUT_SPRITE
1301.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1302.  
1303.     ' declare global variables
1304.  
1305.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
1306.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1307.     SHARED SL_rotate() AS SL_ROTATE '   precalculated rotation table
1308.  
1309.     ' declare local variables
1310.  
1311.     DIM xa AS INTEGER '                 actual x location of sprite on screen
1312.     DIM ya AS INTEGER '                 actual y location of sprite on screen
1313.     DIM sw AS INTEGER '                 width of sprite to be drawn
1314.     DIM sh AS INTEGER '                 height of sprite to be drawn
1315.     DIM rw AS INTEGER '                 precalculated rotated sprite width
1316.     DIM rh AS INTEGER '                 precalculated rotated sprite height
1317.     DIM px0 AS INTEGER '                precalculated triangular coordinates
1318.     DIM px1 AS INTEGER
1319.     DIM px2 AS INTEGER
1320.     DIM px3 AS INTEGER
1321.     DIM py0 AS INTEGER
1322.     DIM py1 AS INTEGER
1323.     DIM py2 AS INTEGER
1324.     DIM py3 AS INTEGER
1325.     DIM image AS LONG '                 software sprite image
1326.     DIM mask AS LONG '                  software sprite image mask
1327.     DIM sprite AS LONG '                hardware sprite image
1328.  
1329.     ' perform error checks
1330.  
1331.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1332.         SL_ERROR "SL_PUT_SPRITE", 1, "" '                                                               no, report error to programmer
1333.     END IF
1334.  
1335.     ' check for auto motion
1336.  
1337.     'IF SL_sprite(handle).automotion THEN '                                                              is this sprite auto motion?
1338.     '    EXIT SUB '                                                                                      yes, SL_UPDATE_AUTO_SPRITES handles it, leave subroutine
1339.     'END IF
1340.  
1341.     'local variable setup
1342.  
1343.     SL_sprite(handle).x.real = x '                                                            (SINGLE)  save requested x center location
1344.     SL_sprite(handle).y.real = y '                                                            (SINGLE)  save requested y center location
1345.     SL_sprite(handle).x.int = INT(x) '                                                       (INTEGER)  save screen x center location
1346.     SL_sprite(handle).y.int = INT(y) '                                                       (INTEGER)  save screen y center location
1347.     image = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).column, SL_sprite(handle).row).image '  get image from sprite sheet
1348.     mask = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).column, SL_sprite(handle).row).mask '    get mask from sprite sheet
1349.     sw = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).column, SL_sprite(handle).row).swidth 'get default sprite width from sprite sheet
1350.     sh = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).column, SL_sprite(handle).row).sheight 'get default sprite height from sprite sheet
1351.  
1352.     'free existing images
1353.  
1354.     _FREEIMAGE SL_sprite(handle).gfx.sprite '                                                           free hardware sprite image
1355.     _FREEIMAGE SL_sprite(handle).gfx.image '                                                            free software sprite image
1356.     IF SL_sprite(handle).gfx.mask THEN _FREEIMAGE SL_sprite(handle).gfx.mask '                          free software mask image
1357.     IF SL_sprite(handle).restore THEN '                                                                 is sprite holding a background image?
1358.         IF SL_sprite(handle).gfx.back THEN '                                                            yes, has a background image been saved yet?
1359.             _PUTIMAGE (SL_sprite(handle).x.back, SL_sprite(handle).y.back), SL_sprite(handle).gfx.back 'yes, replace background with image
1360.             _FREEIMAGE SL_sprite(handle).gfx.back '                                                     free hardware background image
1361.         END IF
1362.         IF NOT SL_sprite(handle).software THEN '                                                        was the sprite type changed?
1363.             SL_sprite(handle).restore = 0 '                                                (SL_NOSAVE)  yes, stop saving background
1364.         END IF
1365.     END IF
1366.  
1367.     'adjust sprite rotation if needed
1368.  
1369.     IF SL_sprite(handle).rotation.angle THEN '                                                          rotate sprite?
1370.         px0 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).px0 '                      yes, get precalculated triangular coordinates
1371.         px1 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).px1
1372.         px2 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).px2
1373.         px3 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).px3
1374.         py0 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).py0
1375.         py1 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).py1
1376.         py2 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).py2
1377.         py3 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).py3
1378.         rw = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).rwidth '                    get precalculated rotated sprite width
1379.         rh = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).rheight '                   get precalculated rotated sprite height
1380.         SL_sprite(handle).gfx.image = _NEWIMAGE(rw, rh, 32) '                                           create image using precalculated width/height
1381.         _MAPTRIANGLE (0, 0)-(0, sh-1)-(sw-1, sh-1), image TO _
1382.                      (px0, py0)-(px1, py1)-(px2, py2), SL_sprite(handle).gfx.image '                    map rotated sprite onto image
1383.         _MAPTRIANGLE (0, 0)-(sw-1, 0)-(sw-1, sh-1), image TO _
1384.                      (px0, py0)-(px3, py3)-(px2, py2), SL_sprite(handle).gfx.image
1385.         IF SL_sprite(handle).transparency THEN '                                                        does this sprite have a mask?
1386.             SL_sprite(handle).gfx.mask = _NEWIMAGE(rw, rh, 32) '                                        yes, create mask image
1387.             _MAPTRIANGLE (0, 0)-(0, sh-1)-(sw-1, sh-1), mask TO _
1388.                          (px0, py0)-(px1, py1)-(px2, py2), SL_sprite(handle).gfx.mask '                 map rotated mask onto image
1389.             _MAPTRIANGLE (0, 0)-(sw-1, 0)-(sw-1, sh-1), mask TO _
1390.                          (px0, py0)-(px3, py3)-(px2, py2), SL_sprite(handle).gfx.mask
1391.         END IF
1392.         sw = rw '                                                                                       save new sprite width
1393.         sh = rh '                                                                                       save new sprite height
1394.     ELSE '                                                                                              no rotation needed
1395.         SL_sprite(handle).gfx.image = _COPYIMAGE(image, 32) '                                           copy software image from sprite sheet
1396.         IF SL_sprite(handle).transparency THEN '                                                        does this sprite have a mask?
1397.             SL_sprite(handle).gfx.mask = _COPYIMAGE(mask, 32) '                                         yes, copy software mask from sprite sheet
1398.         END IF
1399.     END IF
1400.  
1401.     'create hardware sprite
1402.  
1403.     SL_sprite(handle).gfx.sprite = _COPYIMAGE(SL_sprite(handle).gfx.image, 33) '                        create hardware sprite of image
1404.  
1405.     'adjust zoom level if needed
1406.  
1407.     IF SL_sprite(handle).zoom <> 100 THEN '                                                             zoom sprite in/out?
1408.         sw = sw * SL_sprite(handle).zoom \ 100 '                                                        yes, calculate new zoom width
1409.         sh = sh * SL_sprite(handle).zoom \ 100 '                                                        calculate new zoom height
1410.     END IF
1411.  
1412.     'calculate actual sprite screen coordinates
1413.  
1414.     xa = SL_sprite(handle).x.int - sw \ 2 '                                                             calculate actual screen x location from center
1415.     ya = SL_sprite(handle).y.int - sh \ 2 '                                                             calculate actual screen y location from center
1416.     SL_sprite(handle).x.actual = xa '                                                        (INTEGER)  save actual screen x location
1417.     SL_sprite(handle).y.actual = ya '                                                        (INTEGER)  save actual screen y location
1418.  
1419.     'get background image before placing sprite if necessary
1420.  
1421.     IF SL_sprite(handle).restore THEN '                                                                 is this sprite storing background images?
1422.         SL_sprite(handle).gfx.back = _NEWIMAGE(sw, sh, 32) '                                            yes, create background image
1423.         _PUTIMAGE , _DEST, SL_sprite(handle).gfx.back, (xa, ya)-(xa + sw - 1, ya + sh - 1) '            get background area from current destination
1424.         SL_sprite(handle).x.back = xa '                                                                 record background x location
1425.         SL_sprite(handle).y.back = ya '                                                                 record background y location
1426.     END IF
1427.  
1428.     'use hardware or software image
1429.  
1430.     IF SL_sprite(handle).software THEN '                                                                is this a software sprite?
1431.         sprite = SL_sprite(handle).gfx.image '                                                          yes, use the software image
1432.     ELSE '                                                                                              no
1433.         sprite = SL_sprite(handle).gfx.sprite '                                                         use the hardware image
1434.     END IF
1435.  
1436.     ' place sprite on the current destination
1437.  
1438.     SELECT CASE SL_sprite(handle).flip '                                                                which flipping style is selected?
1439.         CASE 0 '                                                                           (SL_NOFLIP)  normal, no flipping
1440.             _PUTIMAGE (xa, ya)-(xa + sw - 1, ya + sh - 1), sprite '                                     draw normal sprite
1441.         CASE 1 '                                                                       (SL_HORIZONTAL)  flip horizontally
1442.             _PUTIMAGE (xa + sw - 1, ya)-(xa, ya + sh - 1), sprite '                                     draw horizontally flipped sprite
1443.         CASE 2 '                                                                         (SL_VERTICAL)  flip vertically
1444.             _PUTIMAGE (xa, ya + sh - 1)-(xa + sw - 1, ya), sprite '                                     draw vertically flipped sprite
1445.         CASE 3 '                                                                         (SL_FLIPBOTH)  flip vertically and horizontally
1446.             _PUTIMAGE (xa + sw - 1, ya + sh - 1)-(xa, ya), sprite '                                     draw horizontally and vertically flipped sprite
1447.     END SELECT
1448.  
1449. END SUB
1450.  
1451. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1452. FUNCTION SL_NEW_SPRITE (sheet AS INTEGER, column AS INTEGER, row AS INTEGER, software AS INTEGER, restores AS INTEGER) '                                                                  SL_NEW_SPRITE
1453.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1454.  
1455.     ' declare global variables
1456.  
1457.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
1458.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1459.  
1460.     ' declare local variables
1461.  
1462.     DIM handle AS INTEGER '             handle (pointer) number of new sprite
1463.  
1464.     ' perform error checks
1465.  
1466.     IF NOT SL_VALID_SHEET(sheet) THEN '                                                                 is this a valid sprite sheet?
1467.         SL_ERROR "SL_NEW_SPRITE", 5, "" '                                                               no, report error to programmer
1468.     END IF
1469.     IF column > UBOUND(SL_sheet, 2) OR row > UBOUND(SL_sheet, 3) OR row < 1 OR column < 1 THEN '        valid row and column requested?
1470.         SL_ERROR "SL_NEW_SPRITE", 6, "" '                                                               no, report error to programmer
1471.     END IF
1472.     IF restores < -1 OR restores > 0 THEN '                                                             valid background restoration behavior requested?
1473.         SL_ERROR "SL_NEW_SPRITE", 2, "" '                                                               no, report error to programmer
1474.     END IF
1475.     IF software < -1 OR software > 0 THEN '                                                             valid hardware / software setting requested?
1476.         SL_ERROR "SL_NEW_SPRITE", 112, "" '                                                             no, report error to programmer
1477.     END IF
1478.     IF (NOT software) AND restores THEN '                                                               hardware image that restores background?
1479.         SL_ERROR "SL_NEW_SPRITE", 113, "" '                                                             yes, report error to programmer
1480.     END IF
1481.  
1482.     ' local variable setup
1483.  
1484.     handle = 0 '                                                                                        initialize handle value
1485.  
1486.     ' increase sprite array's size if needed
1487.  
1488.     DO '                                                                                                look for next available handle
1489.         handle = handle + 1 '                                                                           increment to next handle value
1490.     LOOP UNTIL (NOT SL_sprite(handle).inuse) OR handle = UBOUND(SL_sprite) '                            stop looking when valid handle found
1491.     IF SL_sprite(handle).inuse THEN '                                                                   is the last array element in use?
1492.         handle = handle + 1 '                                                                           yes, increment to next handle value
1493.         REDIM _PRESERVE SL_sprite(handle) AS SL_SPRITE '                                                increase the size of the sprite array
1494.     END IF
1495.  
1496.     ' populate sprite array, general settings
1497.  
1498.     SL_sprite(handle).inuse = -1 '                                                              (TRUE)  mark array index as in use
1499.     SL_sprite(handle).sheet = sheet '                                                                   point to sheet where sprite resides
1500.     SL_sprite(handle).column = column '                                                                 point to column on sheet where sprite located
1501.     SL_sprite(handle).row = row '                                                                       point to row on sheet where sprite located
1502.     SL_sprite(handle).software = software '                                (SL_SOFTWARE & SL_HARDWARE)  sprite treated as software or hardware image
1503.     SL_sprite(handle).restore = restores '                                       (SL_SAVE & SL_NOSAVE)  background restore behavior of sprite
1504.     SL_sprite(handle).swidth = SL_sheet(sheet, column, row).swidth '                                    get width of sprite
1505.     SL_sprite(handle).sheight = SL_sheet(sheet, column, row).sheight '                                  get height of sprite
1506.     SL_sprite(handle).collx1 = SL_sheet(sheet, column, row).collx1 '                                    get sprite's collision box boundaries
1507.     SL_sprite(handle).colly1 = SL_sheet(sheet, column, row).colly1
1508.     SL_sprite(handle).collx2 = SL_sheet(sheet, column, row).collx2
1509.     SL_sprite(handle).colly2 = SL_sheet(sheet, column, row).colly2
1510.     SL_sprite(handle).flip = 0 '                                                                        no sprite flipping
1511.     SL_sprite(handle).zoom = 100 '                                                                      zoom normal at 100%
1512.  
1513.     ' animation settings
1514.  
1515.     SL_sprite(handle).anim.cell = SL_sheet(sheet, column, row).cell '                                   the animation cell this sprite is in
1516.     SL_sprite(handle).anim.cellfrom = 0 '                                                               reset sprite beginning animation cell
1517.     SL_sprite(handle).anim.cellto = 0 '                                                                 reset sprite ending animation cell
1518.     SL_sprite(handle).anim.dir = 0 '                           (SL_FORWARD, SL_BACKWARD & SLBACKFORTH)  reset sprite animation direction
1519.     SL_sprite(handle).anim.mode = 0 '                                                                   reset sprite animation mode
1520.     SL_sprite(handle).anim.frame = 0 '                                                                  reset sprite animation frame counter
1521.     SL_sprite(handle).anim.skip = 0 '                                                                   reset sprite animation skip rate
1522.     SL_sprite(handle).anim.auto = 0 '                                                          (FALSE)  sprite has no auto animation
1523.  
1524.     ' x,y locations
1525.  
1526.     SL_sprite(handle).x.real = 0 '                                                                      reset x location of sprite (center x)
1527.     SL_sprite(handle).y.real = 0 '                                                                      reset y location of sprite (center y)
1528.     SL_sprite(handle).x.int = 0 '                                                                       reset x location of sprite on screen INT(xreal) (center x)
1529.     SL_sprite(handle).y.int = 0 '                                                                       reset y location of sprite on screen INT(yreal) (center y)
1530.     SL_sprite(handle).x.actual = 0 '                                                                    reset x location of sprite on screen (upper left x)
1531.     SL_sprite(handle).y.actual = 0 '                                                                    reset y location of sprite on screen (upper left y)
1532.     SL_sprite(handle).x.dir = 0 '                                                                       x direction during motion
1533.     SL_sprite(handle).y.dir = 0 '                                                                       y direction during motion
1534.  
1535.     ' graphics images
1536.  
1537.     SL_sprite(handle).gfx.back = 0 '                                                                    no background image saved yet
1538.     SL_sprite(handle).gfx.sprite = _COPYIMAGE(SL_sheet(sheet, column, row).image, 33) '                 create hardware sprite image
1539.     SL_sprite(handle).gfx.image = _COPYIMAGE(SL_sheet(sheet, column, row).image, 32) '                  copy software sprite image from sheet
1540.     IF SL_sheet(sheet, column, row).transparency THEN '                                                 does this sprite use transparency?
1541.         SL_sprite(handle).gfx.mask = _COPYIMAGE(SL_sheet(sheet, column, row).mask, 32) '                yes, copy software sprite mask image from sheet
1542.         SL_sprite(handle).transparency = -1 '                                                   (TRUE)  remember this sprite has a transparency layer
1543.     ELSE '                                                                                              no transparency
1544.         SL_sprite(handle).gfx.mask = 0 '                                                                no mask will be brought in
1545.         SL_sprite(handle).transparency = 0 '                                                   (FALSE)  remember this sprite has no transparency layer
1546.     END IF
1547.  
1548.     ' rotation settings
1549.  
1550.     SL_sprite(handle).rotation.angle = 0 '                                                              no sprite rotation angle
1551.     SL_sprite(handle).rotation.speed = 0 '                                                              no spin rate
1552.     SL_sprite(handle).rotation.auto = 0 '                                                      (FALSE)  auto rotation disabled
1553.  
1554.     ' motion settings
1555.  
1556.     SL_sprite(handle).motion.speed = 0 '                                                                speed during motion
1557.     SL_sprite(handle).motion.angle = 0 '                                                                direction during motion (0 - 359)
1558.     SL_sprite(handle).motion.auto = 0 '                                                        (FALSE)  auto motion disabled
1559.  
1560.     SL_NEW_SPRITE = handle '                                                                            return pointer value of new sprite
1561.  
1562. END FUNCTION
1563.  
1564. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1565. SUB SL_FREE_SPRITE (handle AS INTEGER) '                                                                                                                                                 SL_FREE_SPRITE
1566.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1567.  
1568.     ' declare global variables
1569.  
1570.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1571.  
1572.     ' check for errors
1573.  
1574.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1575.         SL_ERROR "SL_PUT_SPRITE", 1, "" '                                                               no, report error to programmer
1576.     END IF
1577.  
1578.     ' restore background if this sprite saving background
1579.  
1580.     IF SL_sprite(handle).restore THEN '                                                                 is there a background image to restore?
1581.         _PUTIMAGE (SL_sprite(handle).x.back, SL_sprite(handle).y.back), SL_sprite(handle).gfx.back '    yes, restore the image
1582.         _FREEIMAGE SL_sprite(handle).gfx.back '                                                         free background image
1583.     END IF
1584.  
1585.     ' free all image data associated with sprite
1586.  
1587.     IF SL_sprite(handle).gfx.back THEN _FREEIMAGE SL_sprite(handle).gfx.back '                          free background image if present
1588.     IF SL_sprite(handle).gfx.mask THEN _FREEIMAGE SL_sprite(handle).gfx.mask '                          free sprite mask image if present
1589.     _FREEIMAGE SL_sprite(handle).gfx.sprite '                                                           free hardware sprite image
1590.     _FREEIMAGE SL_sprite(handle).gfx.image '                                                            free software sprite image
1591.  
1592.     IF handle = UBOUND(sl_sprite) AND handle <> 1 THEN '                                                is handle the last element in array?
1593.         REDIM _PRESERVE SL_sprite(handle - 1) AS SL_SPRITE '                                            yes, remove index and resize array
1594.     ELSE '                                                                                              no, index somewhere else
1595.         SL_sprite(handle).inuse = 0 '                                                          (FALSE)  mark index as usable later
1596.     END IF
1597.  
1598. END SUB
1599.  
1600. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1601. FUNCTION SL_NEW_SHEET (filename AS STRING, swidth AS INTEGER, sheight AS INTEGER, transparency AS INTEGER, transcolor AS _UNSIGNED LONG) '                                       SL_NEW_SHEET
1602.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1603.  
1604.     ' declare global variables
1605.  
1606.     SHARED SL_sheet() AS SL_SHEET '    master sprite sheet array
1607.     SHARED SL_rotate() AS SL_ROTATE '  precalculated rotation table
1608.  
1609.     ' declare local variables
1610.  
1611.     DIM handle AS INTEGER '             handle (pointer) number of new sprite sheet
1612.     DIM x AS INTEGER '                  generic counter to cycle through sheet sprite columns
1613.     DIM y AS INTEGER '                  generic counter to cycle through sheet sprite rows
1614.     DIM x1 AS INTEGER '                 generic counter to cycle though sprite for collision boundaries and mask creation
1615.     DIM y1 AS INTEGER '                 generic ocunter to cycle though sprite for collision boundaries and mask creation
1616.     DIM osource AS LONG '               original source image before this function was called
1617.     DIM odest AS LONG '                 original destination image before this function was called
1618.     DIM pixel AS _UNSIGNED LONG '       pixel color at each coordinate in sprite sheet
1619.     DIM alpha AS _UNSIGNED LONG '       alpha level of current pixel
1620.     DIM top AS INTEGER '                upper boundary of sprite image
1621.     DIM bottom AS INTEGER '             lower boundary of sprite image
1622.     DIM left AS INTEGER '               left boundary of sprite image
1623.     DIM right AS INTEGER '              right boundary of sprite image
1624.     DIM sheetimage AS LONG '            sprite sheet image
1625.     DIM sheetwidth AS INTEGER '         width of sprite sheet in pixels
1626.     DIM sheetheight AS INTEGER '        height of sprite sheet in pixels
1627.     DIM rows AS INTEGER '               number of sprite rows contained on sheet
1628.     DIM columns AS INTEGER '            number of sprite columns contained on sheet
1629.     DIM clearcolor AS _UNSIGNED LONG '  transcolor passed in will be modified
1630.     DIM tempsprite AS LONG '            temporary sprite for _CLEARCOLOR detection
1631.     DIM px(3) AS DOUBLE '               polar x coordinates of maptriangle
1632.     DIM py(3) AS DOUBLE '               polar y coordinates of maptriangle
1633.     DIM sinr AS DOUBLE '                sin rotation calculation
1634.     DIM cosr AS DOUBLE '                cosine rotation claculation
1635.     DIM bx1 AS DOUBLE '                 max boundaries of rotated sprite
1636.     DIM bx2 AS DOUBLE
1637.     DIM by1 AS DOUBLE
1638.     DIM by2 AS DOUBLE
1639.     DIM x2 AS DOUBLE '                  new computed polar coordinates
1640.     DIM y2 AS DOUBLE
1641.  
1642.     ' perform error checks
1643.  
1644.     IF NOT _FILEEXISTS(filename) THEN '                                                                 does the sprite sheet exist?
1645.         SL_ERROR "SL_NEW_SHEET", 100, filename '                                                        no, report error to programmer
1646.     END IF
1647.     IF ABS(transparency) > 1 THEN '                                                                     valid transparency setting?
1648.         SL_ERROR "SL_NEW_SHEET", 101, "" '                                                              no, report error to programmer
1649.     END IF
1650.     IF swidth < 1 OR sheight < 1 THEN '                                                                 valid sprite width/height supplied?
1651.         SL_ERROR "SL_NEW_SHEET", 102, "" '                                                              no, report error to programmer
1652.     END IF
1653.     IF transparency = -1 AND UCASE$(RIGHT$(filename, 4)) <> ".PNG" THEN '                               wrong file type for transparency?
1654.         SL_ERROR "SL_NEW_SHEET", 103, UCASE$(RIGHT$(filename, 4)) '                                     yes, report error to programmer
1655.     END IF
1656.  
1657.     ' local variable setup
1658.  
1659.     sheetimage = _LOADIMAGE(filename, 32) '                                                             load sprite sheet file
1660.     sheetwidth = _WIDTH(sheetimage) '                                                                   get width of sheet
1661.     sheetheight = _HEIGHT(sheetimage) '                                                                 get height of sheet
1662.     columns = sheetwidth \ swidth '                                                                     get number of whole columns of sprites
1663.     rows = sheetheight \ sheight '                                                                      get number of whole rows of sprites
1664.     IF columns < 1 OR rows < 1 THEN '                                                                   at least one sprite column and row on sheet?
1665.         SL_ERROR "SL_NEW_SHEET", 104, "" '                                                              no, report error to programmer
1666.     END IF
1667.     osource = _SOURCE '                                                                                 remember current source image
1668.     odest = _DEST '                                                                                     remember current destination image
1669.     handle = 0 '                                                                                        initialize handle value
1670.     clearcolor = transcolor '                                                                           get background/transparent color passed in
1671.  
1672.     ' increase sheet array's 1st dimension if needed to create a new sprite sheet
1673.  
1674.     DO '                                                                                                look for the next available handle
1675.         handle = handle + 1 '                                                                           increment the handle value
1676.     LOOP UNTIL (NOT SL_sheet(handle, 0, 0).image) OR handle = UBOUND(SL_sheet) '                        stop looking when valid handle value found
1677.     IF SL_sheet(handle, 0, 0).image = -1 THEN '                                                 (TRUE)  is the last array element in use?
1678.         handle = handle + 1 '                                                                           yes, increment the handle value
1679.         REDIM _PRESERVE SL_sheet(handle, UBOUND(SL_sheet, 2), UBOUND(SL_sheet, 3)) AS SL_SHEET '        create new sheet in sprite array
1680.         REDIM _PRESERVE SL_rotate(handle, UBOUND(SL_rotate, 2)) AS SL_ROTATE
1681.     END IF
1682.  
1683.     ' increase sheet array's 2nd and 3rd dimensions if needed to match number of rows and columns
1684.  
1685.     IF columns > UBOUND(SL_sheet, 2) THEN '                                                             more columns in this sheet than others?
1686.         REDIM _PRESERVE SL_sheet(handle, columns, UBOUND(SL_sheet, 3)) AS SL_SHEET '                    yes, increase the array's 2nd dimension to match
1687.     END IF
1688.     IF rows > UBOUND(SL_sheet, 3) THEN '                                                                more rows in this sheet than others?
1689.         REDIM _PRESERVE SL_sheet(handle, UBOUND(SL_sheet, 2), rows) AS SL_SHEET '                       yes, increase the array's 3rd dimension to match
1690.     END IF
1691.  
1692.     ' the variables in SL_sheet(x, 0, 0) will serve a dual purpose
1693.     ' SL_sheet(x, 0, 0).image will contain either -1 (true) or 0 (false) to indicate the first dimension of the array is in use.
1694.     ' SL_sheet(x, 0, 0).swidth will contain the number of columns contained in the sheet (the array's 2nd dimension)
1695.     ' SL_sheet(x, 0, 0).sheight will contain the number of rows contained in the sheet (the array's 3rd dimension)
1696.  
1697.     SL_sheet(handle, 0, 0).image = -1 '                                                         (TRUE)  mark as in use
1698.     SL_sheet(handle, 0, 0).swidth = columns '                                                           remember number of columns in sheet
1699.     SL_sheet(handle, 0, 0).sheight = rows '                                                             remember number of rows in sheet
1700.  
1701.     ' identify transparency of sprite sheet if requested
1702.  
1703.     IF transparency = -1 THEN '                                                 (constant SL_USESHEET)  sheet have alpha channel?
1704.         x = 0 '                                                                                         yes, start at upper left x of sheet
1705.         y = 0 '                                                                                         start at upper left y of sheet
1706.         alpha = 255 '                                                                                   assume no alpha channel
1707.         _SOURCE sheetimage '                                                                            set sprite sheet image as source image
1708.         DO '                                                                                            start looping through the sheet's pixels
1709.             pixel = POINT(x, y) '                                                                       get the pixel's color attributes
1710.             alpha = _ALPHA32(pixel) '                                                                   get the alpha level (0 - 255)
1711.             IF alpha = 0 THEN EXIT DO '                                                                 if it is transparent then leave the loop
1712.             x = x + 1 '                                                                                 move right one pixel
1713.             IF x > sheetwidth THEN '                                                                    have we gone off the sheet?
1714.                 x = 0 '                                                                                 yes, reset back to the left beginning
1715.                 y = y + 1 '                                                                             move down one pixel
1716.             END IF
1717.         LOOP UNTIL y > sheetheight '                                                                    don't stop until the entire sheet has been checked
1718.         IF alpha = 0 THEN '                                                                             did we find a transparent pixel?
1719.             tempsprite = _NEWIMAGE(1, 1, 32) '                                                          yes, create a temporary image         * why did I have to do
1720.             _CLEARCOLOR pixel, tempsprite '                                                             set pixel found as transparent        * this hack to get
1721.             clearcolor = _CLEARCOLOR(tempsprite) '                                                      get the transparent color from image  * clearcolor to come out
1722.             _FREEIMAGE tempsprite '                                                                     temporary image no longer needed      * to the right value?
1723.         ELSE '                                                                                          no transparency found within sheet
1724.             transparency = 1 '                                                                          set sheet to having no alpha channel
1725.         END IF
1726.     ELSEIF transparency = 0 THEN '                                                   (constant SL_SET)  manually set alpha channel?
1727.         _CLEARCOLOR clearcolor, sheetimage '                                                            yes, set color as transparent
1728.         clearcolor = _CLEARCOLOR(sheetimage) '                                                          get the transparent color ************* again, why this hack?
1729.     END IF
1730.  
1731.     ' load sprites from sheet and place into sprite array
1732.  
1733.     FOR x = 1 TO columns '                                                                              cycle through the sheet's columns
1734.         FOR y = 1 TO rows '                                                                             cycle through the sheet's rows
1735.             SL_sheet(handle, x, y).cell = (y - 1) * columns + x '                                       record animation cell this sprite is in
1736.             SL_sheet(handle, x, y).image = _NEWIMAGE(swidth, sheight, 32) '                             create software sprite image
1737.             IF transparency < 1 THEN '                                                                  should a mask be created?
1738.                 SL_sheet(handle, x, y).mask = _NEWIMAGE(swidth, sheight, 32) '                          yes, create software sprite mask image
1739.                 _DEST SL_sheet(handle, x, y).mask '                                                     write to the mask image
1740.             ELSE
1741.                 SL_sheet(handle, x, y).transparency = 0 '                                      (FALSE)  set sprite as having no transparency
1742.             END IF
1743.             _PUTIMAGE , sheetimage, SL_sheet(handle, x, y).image,_
1744.                  ((x - 1) * swidth, (y - 1) * sheight)-_
1745.                  ((x - 1) * swidth + swidth - 1, (y - 1) * sheight + sheight - 1) ' copy sprite from sheet and place in sprite image
1746.  
1747.             ' precalculate collision boundaries and update sprite mask if needed
1748.  
1749.             _SOURCE SL_sheet(handle, x, y).image '                                                      work from the software sprite image
1750.             top = sheight - 1 '                                                                         set initial collision boundary markers
1751.             left = swidth - 1
1752.             bottom = 0
1753.             right = 0
1754.             FOR x1 = 0 TO swidth - 1 '                                                                  cycle through the width of sprite
1755.                 FOR y1 = 0 TO sheight - 1 '                                                             cycle through the height of sprite
1756.                     IF POINT(x1, y1) <> clearcolor THEN '                                               is this pixel a transparent/background color?
1757.                         IF x1 < left THEN left = x1 '                                                   no, save position if left-most pixel
1758.                         IF y1 < top THEN top = y1 '                                                     save position if top-most pixel
1759.                         IF x1 > right THEN right = x1 '                                                 save position if right-most pixel
1760.                         IF y1 > bottom THEN bottom = y1 '                                               save position if bbottom-most pixel
1761.                     END IF
1762.                     IF transparency < 1 THEN '                                                          update software sprite mask?
1763.                         IF POINT(x1, y1) = clearcolor THEN '                                            yes, is this pixel a transparent/background color?
1764.                             PSET (x1, y1), _RGB32(255, 255, 255) '                                      yes, set as white on the mask image
1765.                         END IF
1766.                     END IF
1767.                 NEXT y1
1768.             NEXT x1
1769.             SL_sheet(handle, x, y).collx1 = left '                                                      collision box top left x
1770.             SL_sheet(handle, x, y).colly1 = top '                                                       collision box top left y
1771.             SL_sheet(handle, x, y).collx2 = right '                                                     collision box bottom right x
1772.             SL_sheet(handle, x, y).colly2 = bottom '                                                    collision box bottom right y
1773.             SL_sheet(handle, x, y).swidth = swidth '                                                    remember sprite width
1774.             SL_sheet(handle, x, y).sheight = sheight '                                                  remember sprite height
1775.         NEXT y
1776.     NEXT x
1777.     _FREEIMAGE sheetimage '                                                                             sprite sheet image no longer needed
1778.  
1779.     ' create precalculated rotation table for the sprite sheet (1 to 359 degrees)
1780.  
1781.     FOR x = 1 TO 359
1782.         'px(0) = (-swidth + 1) / 2 '                                                                     upper left  x polar coordinate of sprite
1783.         'py(0) = (-sheight + 1) / 2 '                                                                    upper left  y polar coordinate of sprite
1784.         px(0) = -swidth / 2 '                                                                           upper left  x polar coordinate of sprite
1785.         py(0) = -sheight / 2 '                                                                          upper left  y polar coordinate of sprite
1786.         px(1) = px(0) '                                                                                 lower left  x polar coordinate of sprite
1787.         'py(1) = (sheight -1) / 2 '                                                                      lower left  y polar coordinate of sprite
1788.         'px(2) = (swidth - 1) / 2 '                                                                      lower right x polar coordinate of sprite
1789.         py(1) = sheight / 2 '                                                                           lower left  y polar coordinate of sprite
1790.         px(2) = swidth / 2 '                                                                            lower right x polar coordinate of sprite
1791.         py(2) = py(1) '                                                                                 lower right y polar coordinate of sprite
1792.         px(3) = px(2) '                                                                                 upper right x polar coordinate of sprite
1793.         py(3) = py(0) '                                                                                 upper right y polar coordinate of sprite
1794.         sinr = SIN(-x / 57.2957795131) '                                                                calculate the sin of rotation
1795.         cosr = COS(-x / 57.2957795131) '                                                                calculate the cosine of rotation
1796.         bx1 = 0 '                                                                                       upper left x boundary of sprite
1797.         by1 = 0 '                                                                                       upper left y boundary of sprite
1798.         bx2 = 0 '                                                                                       lower right x boundary of sprite
1799.         by2 = 0 '                                                                                       lower right y boundary of sprite
1800.         FOR y = 0 TO 3 '                                                                                cycle through all four polar coordinates
1801.             x2 = (px(y) * cosr + sinr * py(y)) '                                                        compute new polar coordinate location
1802.             y2 = (py(y) * cosr - px(y) * sinr) '                                                        compute new polar coordinate location
1803.             px(y) = x2 '                                                                                save the new polar coordinate
1804.             py(y) = y2 '                                                                                save the new polar coordinate
1805.             IF px(y) < bx1 THEN bx1 = px(y) '                                                           save lowest  x value seen \  NOTE: use for
1806.             IF px(y) > bx2 THEN bx2 = px(y) '                                                           save highest x value seen  \ background image         <--------------------- LOOK
1807.             IF py(y) < by1 THEN by1 = py(y) '                                                           save lowest  y value seen  / rectangle coordinates
1808.             IF py(y) > by2 THEN by2 = py(y) '                                                           save highest y value seen /
1809.         NEXT y
1810.         SL_rotate(handle, x).rwidth = bx2 - bx1 + 1 '                                                   calculate width of rotated sprite
1811.         SL_rotate(handle, x).rheight = by2 - by1 + 1 '                                                  calculate height of rotated sprite
1812.         SL_rotate(handle, x).px0 = px(0) + ((bx2 - bx1 + 1) \ 2) '                                      calculate triangular coordinates
1813.         SL_rotate(handle, x).px1 = px(1) + ((bx2 - bx1 + 1) \ 2)
1814.         SL_rotate(handle, x).px2 = px(2) + ((bx2 - bx1 + 1) \ 2)
1815.         SL_rotate(handle, x).px3 = px(3) + ((bx2 - bx1 + 1) \ 2)
1816.         SL_rotate(handle, x).py0 = py(0) + ((by2 - by1 + 1) \ 2)
1817.         SL_rotate(handle, x).py1 = py(1) + ((by2 - by1 + 1) \ 2)
1818.         SL_rotate(handle, x).py2 = py(2) + ((by2 - by1 + 1) \ 2)
1819.         SL_rotate(handle, x).py3 = py(3) + ((by2 - by1 + 1) \ 2)
1820.  
1821.         'SL_rotate(handle, x).rwidth = bx2 - bx1 '                                                       calculate width of rotated sprite
1822.         'SL_rotate(handle, x).rheight = by2 - by1 '                                                      calculate height of rotated sprite
1823.         'SL_rotate(handle, x).px0 = px(0) + ((bx2 - bx1) / 2) '                                          calculate triangular coordinates
1824.         'SL_rotate(handle, x).px1 = px(1) + ((bx2 - bx1) / 2)
1825.         'SL_rotate(handle, x).px2 = px(2) + ((bx2 - bx1) / 2)
1826.         'SL_rotate(handle, x).px3 = px(3) + ((bx2 - bx1) / 2)
1827.         'SL_rotate(handle, x).py0 = py(0) + ((by2 - by1) / 2)
1828.         'SL_rotate(handle, x).py1 = py(1) + ((by2 - by1) / 2)
1829.         'SL_rotate(handle, x).py2 = py(2) + ((by2 - by1) / 2)
1830.         'SL_rotate(handle, x).py3 = py(3) + ((by2 - by1) / 2)
1831.  
1832.     NEXT x
1833.     _SOURCE osource '                                                                                   return source to current
1834.     _DEST odest '                                                                                       return destination to current
1835.     SL_NEW_SHEET = handle '                                                                             return the handle number pointing to this sheet
1836.  
1837. END FUNCTION
1838.  
1839. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1840. FUNCTION SL_VALID_SPRITE (handle AS INTEGER) '                                                                                                                                         SL_VALID_SPRITE
1841.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1842.  
1843.     ' declare global variables
1844.  
1845.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1846.  
1847.     IF handle > UBOUND(SL_SPRITE) OR (NOT SL_sprite(handle).inuse) OR handle < 1 THEN '                  is this a valid sprite handle?
1848.         SL_VALID_SPRITE = 0 '                                                                   (FALSE)  no, return 0
1849.     ELSE '                                                                                               yes, it is valid
1850.         SL_VALID_SPRITE = -1 '                                                                   (TRUE)  return -1
1851.     END IF
1852.  
1853. END FUNCTION
1854.  
1855. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1856. FUNCTION SL_VALID_SHEET (sheet AS INTEGER) '                                                                                                                                             SL_VALID_SHEET
1857.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1858.  
1859.     ' declare global variables
1860.  
1861.     SHARED SL_sheet() AS SL_SHEET '    master sprite sheet array
1862.  
1863.     IF sheet > UBOUND(SL_sheet) OR sheet < 1 THEN '                                                     is this a valid sheet?
1864.         SL_VALID_SHEET = 0 '                                                                   (FALSE)  no, return false
1865.     ELSEIF NOT SL_sheet(sheet, 0, 0).image THEN '                                                       is sprite sheet in use?
1866.         SL_VALID_SHEET = 0 '                                                                   (FALSE)  no, return false
1867.     ELSE '                                                                                              everything checks out
1868.         SL_VALID_SHEET = -1 '                                                                   (TRUE)  return true
1869.     END IF
1870.  
1871. END FUNCTION
1872.  
1873. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1874. FUNCTION SL_FIX_DEGREES (degrees AS INTEGER) '                                                                                                                                           SL_FIX_DEGREES
1875.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1876.  
1877.     ' Credits: this function uses code contriibuted by codeguy
1878.     '          https://www.qb64.org/forum/index.php?topic=537.15
1879.  
1880.     'declare local variables
1881.  
1882.     DIM degree AS INTEGER '             degree angle passed in
1883.  
1884.     ' set local variables
1885.  
1886.     degree = degrees MOD 360 '                                                                          get -359 to 359
1887.     IF degree < 0 THEN '                                                                                need to make positive?
1888.         SL_FIX_DEGREES = degree + 360 '                                                                 yes, correct value and return degree angle
1889.     ELSE
1890.         SL_FIX_DEGREES = degree '                                                                       no correction needed, return degree angle
1891.     END IF
1892.  
1893. END FUNCTION
1894.  
1895. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1896. SUB SL_ERROR (routine AS STRING, errno AS INTEGER, info AS STRING) '                                                                                                                           SL_ERROR
1897.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1898.  
1899.     SCREEN 0, 0, 0, 0 '                                                                                 go to a pure text screen
1900.     _FONT 16 '                                                                                          set the standard screen 0 font
1901.     IF _FULLSCREEN THEN _FULLSCREEN _OFF '                                                              turn off full screen if on
1902.     _AUTODISPLAY '                                                                                      auto update the display
1903.     CLS '                                                                                               clear the screen
1904.     COLOR 10, 0
1905.     PRINT "                   **************************************" '                                 print error header
1906.     PRINT "                   ** Sprite Library Error Encountered **"
1907.     PRINT "                   **************************************"
1908.     PRINT
1909.     COLOR 15, 0
1910.     PRINT " "; routine;
1911.     COLOR 7, 0
1912.     PRINT " has reported error";
1913.     COLOR 30, 0
1914.     PRINT STR$(errno)
1915.     COLOR 7, 0
1916.     PRINT
1917.     SELECT CASE errno '                                                                                 which error number is being reported?
1918.  
1919.         ' general purpose errors for all subs/functions
1920.  
1921.         CASE 1
1922.             PRINT "- the requested sprite does not exist"
1923.         CASE 2
1924.             PRINT "- invalid background restore setting supplied - valid settings are"
1925.             PRINT "- : -1 (constant SL_SAVE)"
1926.             PRINT "- :  0 (constant SL_NOSAVE)"
1927.         CASE 3
1928.             PRINT "- invalid flip setting supplied - valid settings are"
1929.             PRINT "  : 0 (constant SL_NOFLIP)"
1930.             PRINT "  : 1 (constant SL_HORIZONTAL)"
1931.             PRINT "  : 2 (constant SL_VERTICAL)"
1932.             PRINT "  : 3 (constant SL_FLIPBOTH)"
1933.         CASE 4
1934.             PRINT "- invalid zoom level setting supplied"
1935.             PRINT "- zoom level must be greater than zero (0)"
1936.         CASE 5
1937.             PRINT "- the specified sprite sheet is not in use or does not exist"
1938.         CASE 6
1939.             PRINT "- invalid row or column selected for specified sprite sheet"
1940.         CASE 7
1941.             PRINT "- invalid auto motion behavior requested - valid settings are"
1942.             PRINT "- : -1 (constant SL_START)"
1943.             PRINT "- :  0 (constant SL_STOP)"
1944.         CASE 8
1945.             PRINT "- invalid auto rotation behavior requested - valid settings are"
1946.             PRINT "- : -1 (constant SL_START)"
1947.             PRINT "- :  0 (constant SL_STOP)"
1948.         CASE 9
1949.             PRINT "- rotation speed must be between -359 and 359 degrees"
1950.  
1951.  
1952.  
1953.             ' errors belonging to SL_NEW_SHEET (100 - 109)
1954.  
1955.         CASE 100
1956.             PRINT "- "; CHR$(34); info; CHR$(34); " sprite sheet does not exist"
1957.             PRINT "- check path or spelling"
1958.         CASE 101
1959.             PRINT "- invalid transparency setting supplied - valid settings are"
1960.             PRINT "- : -1 (constant SL_USESHEET)"
1961.             PRINT "- :  0 (constant SL_SET)"
1962.             PRINT "- :  1 (constant SL_NONE)"
1963.         CASE 102
1964.             PRINT "- sprite width and height must be greater than zero"
1965.         CASE 103
1966.             PRINT "- selecting to use a sheet's transparency only works with .PNG files"
1967.             PRINT "- the function was passed a "; info; " file."
1968.         CASE 104
1969.             PRINT "- there must be at least one column and one row of sprites on sheet"
1970.             PRINT "- the sheet being loaded does not meet these minimums"
1971.  
1972.             'errors belonging to SL_NEW_SPRITE (110 - 119)
1973.  
1974.             'CASE 110
1975.             '    PRINT "- the specified sprite sheet is not in use or does not exist"
1976.             'CASE 111
1977.             '    PRINT "- invalid row or column selected for specified sprite sheet"
1978.         CASE 112
1979.             PRINT "- invalid hardware / software setting supplied - valid settings are"
1980.             PRINT "- : -1 (constant SL_SOFTWARE)"
1981.             PRINT "- :  0 (constant SL_HARDWARE)"
1982.         CASE 113
1983.             PRINT "- there is no need to restore the background with hardware sprites"
1984.             PRINT "- change background restore setting to zero (0) (constant SL_NOSAVE)"
1985.  
1986.             ' errors belonging to SL_FLIP_SPRITE (120 - 129)
1987.  
1988.             'CASE 120
1989.             '    PRINT "- invalid flip setting supplied - valid settings are"
1990.             '    PRINT "  : 0 (constant SL_NOFLIP)"
1991.             '    PRINT "  : 1 (constant SL_HORIZONTAL)"
1992.             '    PRINT "  : 2 (constant SL_VERTICAL)"
1993.             '    PRINT "  : 3 (constant SL_FLIPBOTH)"
1994.  
1995.             ' errors belonging to SL_ZOOM_SPRITE (130 - 139)
1996.  
1997.             'CASE 130
1998.             '    PRINT "- invalid zoom level setting supplied"
1999.             '    PRINT "- zoom level must be greater than zero (0)"
2000.  
2001.             ' errors belonging to SL_CHANGE_ROTATION_SPEED (140 - 149)
2002.  
2003.             'CASE 140
2004.             '    PRINT "- rotation speed must be between -359 and 359 degrees"
2005.  
2006.             ' errors belonging to SL_CHANGE_AUTOMOTION (150 - 159)
2007.  
2008.             'CASE 150
2009.             '    PRINT "- invalid auto motion behavior requested - valid settings are"
2010.             '    PRINT "- : -1 (constant SL_START)"
2011.             '    PRINT "- :  0 (constant SL_STOP)"
2012.  
2013.             ' errors belonging to SL_CHANGE_AUTOROTATION (160 - 169)
2014.  
2015.             'CASE 160
2016.             '    PRINT "- invalid auto rotation behavior requested - valid settings are"
2017.             '    PRINT "- : -1 (constant SL_START)"
2018.             '    PRINT "- :  0 (constant SL_STOP)"
2019.  
2020.             ' errors belonging to SL_UPDATE_MOTION (170 - 179)
2021.  
2022.         CASE 170
2023.             PRINT "- the sprite requested is already under automatic movement control"
2024.  
2025.             ' errors belonging to SL_UPDATE_ROTATION (180 - 189)
2026.  
2027.         CASE 180
2028.             PRINT "- the sprite requested is already under automatic rotation control"
2029.  
2030.     END SELECT
2031.     COLOR 12, 0
2032.     PRINT
2033.     PRINT " See sprite library doumentation for further explanation."
2034.     COLOR 7, 0
2035.     DO: LOOP UNTIL INKEY$ = "" '                                                                        clear the keyboard buffer
2036.     END '                                                                                               end the program
2037.  
2038. END SUB
2039.  
2040.  

[TerryRitchie]

I had a LOT of bugs to work out over the past few days. I believe they are all sorted out now. There are currently 63 commands in the new library and counting with many more to go. Here is the code so far for those keeping track:

Code: QB64: [Select]

1. '** NOTES **
2.  
3.  
4.  
5. ' Ideas to add
6. '
7. ' if SL_EVENT_TRIGGER then 'check for event that was sent (add event triggers)
8. ' - possible link sounds to events
9. ' add gravity, attraction, repulsion  SL_SET_PHYSICS
10. ' add mass, elasticity (bounciness?)   ^  ^  ^
11. ' add arc calculator for things like a swinging vine or radar scope
12. ' ability to link sprites, when one moves the other moves, break apart when collision happens SL_LINK_SPRITE
13. ' give sprites path-following ability (bezier curves?) SL_FOLLOW_PATH
14. ' divide work space into cells and detect when sprites enter/leave a cell
15. ' stand-alone program to develop sprite sheets (inform)        \
16. ' stand-alone program to develop celled work spaces (inform)   /  combine these into one program?
17. ' when sprite interact their mass, elascticity, etc. govern the way the move and fall
18. ' - I will need help from a math major for this
19.  
20. ' Planned additions
21. '
22. ' Mouse routines
23. ' - detect when mouse interacts with a sprite (hover, click, double click, right click, etc..) SL_MOUSE_STATUS
24. ' ** DONE ** set a score value to a sprite for game score tracking, SL_SET_SCORE, SL_GET_SCORE ** DONE **
25. ' get sprite width and height (both actual and collision box) SL_GET_ACTUAL_WIDTH, SL_GET_ACTUAL_HEIGHT, SL_GET_COLLISION_WIDTH, SL_GET_COLLISION_HEIGHT
26. ' reverse x and y directions for auto/manual movement, SL_MOTION_REVERSEX, SL_MOTION_REVERSEY
27. ' set Z depth of sprite for different planes/layers (possibly incorporate this into zoom?)
28. ' hide/unhide sprites SL_HIDE_SPRITE, SL_SHOW_SPRITE
29. ' collision detection routines (rectangle, round, ellipticle, pixel-perfect, n-space?, prediction?) SL_SET_COLLISION, SL_GET_COLLISION, SL_COLLIDED_WITH
30. ' - need to figure out how to rotate collision box along with sprites, not too hard
31. ' - this will require line segment intersection algorithms for collision detection, yikes! hard, probably need help
32. ' - possibly link sounds to collisions SL_LINK_COLLIDE_SOUND
33. ' Parallaxing layers  SL_CREATE_PARALLAX, SL_UPDATE_PARALLAX
34. ' Game font printing
35. ' Sprite tiling, square for sure, isometric?
36.  
37. ' Things to improve
38. '
39. ' Naming convention of constants and their values
40. ' ** DONE ** Remove all for/next loops and replace with do/loop or while/wend ** DONE **
41. ' Use integers wherever possible
42. ' allow SINGLE value rotation angles for accuracy but convert to integer before sprite rotation
43. ' - using only integer now, may not be precise enough for future improvements
44.  
45. ' Investigate
46. '
47. ' Use of _MAPTRIANGLE for 3D rotation   SL_ROTATE_3D
48. ' _HARDWARE vs _HARDWARE1
49.  
50. ' Remember
51. '
52. ' Any code added that is OS dependant needs to detect the OS running first
53. ' - try to create routines that are OS dependant for all OS'
54.  
55.  
56.  
57. OPTION _EXPLICIT ' need to remove before publishing library!!
58.  
59. '*
60. '* constant declarations
61. '*
62.  
63. '      CONSTANT NAME                   DESCRIPTION                                                       FUNCTIONS / SUBROUTINES THAT MAY USE THIS CONSTANT
64. ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
65. CONST SL_RESET = -32767 '   reset a function or subroutine              SL_ROTATE_SPRITE, SL_FLIP_SPRITE, SL_ZOOM_SPRITE, SL_SET_ZOOM, SL_CHANGE_AUTOROTATION, SL_CHANGE_AUTOMOTION, SL_CHANGE_ROTATION_SPEED
66. CONST SL_NOFLIP = 0 '       sprite will use no flipping                 SL_FLIP_SPRITE
67. CONST SL_HORIZONTAL = 1 '   sprite will be flipped horizontally         SL_FLIP_SPRITE
68. CONST SL_VERTICAL = 2 '     sprite will be flipped vertically           SL_FLIP_SPRITE
69. CONST SL_FLIPBOTH = 3 '     sprite will be flipped both direction       SL_FLIP_SPRITE
70. CONST SL_USESHEET = -1 '    use sheet's transparency info (.PNG)        SL_NEW_SHEET
71. CONST SL_SET = 0 '          manually set transparency                   SL_NEW_SHEET
72. CONST SL_NONE = 1 '         don't use transparency with sheet           SL_NEW_SHEET
73. CONST SL_NOSAVE = 0 '       sprite will not save background             SL_NEW_SPRITE, SL_SET_SOFTWARE
74. CONST SL_SAVE = -1 '        sprite will save background                 SL_NEW_SPRITE, SL_SET_SOFTWARE
75. CONST SL_HARDWARE = 0 '     sprite in hardware mode                     SL_NEW_SPRITE
76. CONST SL_SOFTWARE = -1 '    sprite in software mode                     SL_NEW_SPRITE
77. CONST SL_START = -1 '       enable auto motion / rotation               SL_CHANGE_AUTOMOTION, SL_CHANGE_AUTOROTATION, SL_SET_AUTOANIMATION, SL_SET_ANIMATION, SL_SET_MOTION, SL_SET_ROTATION
78. CONST SL_STOP = 0 '         disable auto motion / rotation              SL_CHANGE_AUTOMOTION, SL_CHANGE_AUTOROTATION, SL_SET_AUTOANIMATION, SL_SET_ANIMATION, SL_SET_MOTION, SL_SET_ROTATION, SL_CHANGE_ROTATION_SPEED
79. CONST SL_FORWARD = 0 '      animation cells proceed forward             SL_SET_ANIMATION
80. CONST SL_BACKWARD = 1 '     animation cells proceed backwards           SL_SET_ANIMATION
81. CONST SL_BACKFORTH = 2 '    animation cells toggle forward/backward     SL_SET_ANIMATION
82. CONST SL_CURRENTCELL = -1 ' use current cell as starting cell           SL_SET_ANIMATION, SL_CHANGE_ANIMATION_CELLS
83.  
84. '*
85. '* type declarations
86. '*
87.  
88. TYPE SL_SHEET ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SPRITE SHEET DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
89.     image AS LONG '                     software sprite image
90.     mask AS LONG '                      software mask image
91.     swidth AS INTEGER '                 width of sprite
92.     sheight AS INTEGER '                height of sprite
93.     cell AS INTEGER '                   the animation cell of this sprite
94.     collx1 AS INTEGER '                 collision box top left x
95.     colly1 AS INTEGER '                 collision box top left y
96.     collx2 AS INTEGER '                 collision box bottom right x
97.     colly2 AS INTEGER '                 collision box bottom right y
98.     transparency AS INTEGER '           -1 (TRUE) if sheet uses transparency
99. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
100.  
101. TYPE SL_XY ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ X,Y LOCATIONS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
102.     real AS SINGLE '                    single values of sprite x,y center point
103.     int AS INTEGER '                    integer values of sprite x,y center point
104.     actual AS INTEGER '                 integer values of sprite upper left x,y location
105.     back AS INTEGER '                   integer values of sprite's background image x,y location
106.     dir AS SINGLE '                     single values of sprite x,y motion vectors
107. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
108.  
109. TYPE SL_IMAGE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ IMAGES ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
110.     sprite AS LONG '                    hardware sprite image
111.     image AS LONG '                     software sprite image
112.     mask AS LONG '                      software sprite mask image
113.     back AS LONG '                      software sprite saved background image
114. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
115.  
116. TYPE SL_ANIM ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ANIMATION SETTINGS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
117.     cell AS INTEGER '                   current animation cell
118.     cellfrom AS INTEGER '               starting animation cell
119.     cellto AS INTEGER '                 ending animation cell
120.     dir AS INTEGER '                    animation direction
121.     mode AS INTEGER '                   animation mode (forward, backward, back/forth)
122.     framerate AS INTEGER '              sprite animation frame rate
123.     frame AS INTEGER '                  animation frame counter
124.     skip AS INTEGER '                   how often to skip a frame to achieve framerate
125.     auto AS INTEGER '                   auto-animation on/off
126. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
127.  
128. TYPE SL_MOTION ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ MOTION SETTINGS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
129.     auto AS INTEGER '                   -1 (TRUE) if auto-motion turned on
130.     speed AS SINGLE '                   speed of sprite during motion
131.     angle AS INTEGER '                  direction of sprite during motion (0 - 359)
132. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
133.  
134. TYPE SL_ROTATION ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ROTATION SETTINGS ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
135.     auto AS INTEGER '                   -1 (TRUE) if auto-rotation turned on
136.     speed AS INTEGER '                  spin rate in degrees of sprite (0 - 359)
137.     angle AS INTEGER '                  current rotation angle of sprite
138. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
139.  
140. TYPE SL_SPRITE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ SPRITE DATABASE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
141.     inuse AS INTEGER '                  this array index in use
142.     x AS SL_XY '                        x coordinate locations
143.     y AS SL_XY '                        y coordinate locations
144.     gfx AS SL_IMAGE '                   image graphics
145.     anim AS SL_ANIM '                   animation settings
146.     motion AS SL_MOTION '               motion settings
147.     rotation AS SL_ROTATION '           rotation settings
148.     sheet AS INTEGER '                  sheet sprite belongs to
149.     column AS INTEGER '                 the column on the sheet the sprite resides
150.     row AS INTEGER '                    the row on the sheet the sprite resides
151.     swidth AS INTEGER '                 width of sprite
152.     sheight AS INTEGER '                height of sprite
153.     restore AS INTEGER '                -1 (true) if sprite restores background
154.     collx1 AS INTEGER '                 collision box top left x
155.     colly1 AS INTEGER '                 collision box top left y
156.     collx2 AS INTEGER '                 collision box bottom right x
157.     colly2 AS INTEGER '                 collision box bottom right y
158.     flip AS INTEGER '                   flip horizontally, vertically, or both
159.     transparency AS INTEGER '           -1 (TRUE) if sprite uses transparency
160.     zoom AS INTEGER '                   zoom level of sprite (1% - x%)
161.     software AS INTEGER '               -1 (TRUE) if sprite is to be treated as software image
162.     score AS INTEGER '                  point score of sprite
163. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
164.  
165. TYPE SL_ROTATE 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ PRECALCULATED ROTATION TABLE ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
166.     rwidth AS INTEGER '                 width of rotated sprite
167.     rheight AS INTEGER '                height of rotated sprite
168.     px0 AS INTEGER '                    rectangular rotation coordinates
169.     px1 AS INTEGER
170.     px2 AS INTEGER
171.     px3 AS INTEGER
172.     py0 AS INTEGER
173.     py1 AS INTEGER
174.     py2 AS INTEGER
175.     py3 AS INTEGER
176. END TYPE ' ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
177.  
178. '*
179. '* global dynamic array declarations
180. '*
181.  
182. REDIM SL_sheet(1, 1, 1) AS SL_SHEET '   master sprite sheet array
183. REDIM SL_sprite(1) AS SL_SPRITE '       master working sprite array
184. REDIM SL_rotate(1, 359) AS SL_ROTATE '  precalculated rotation values
185.  
186. '*
187. '* global variable declarations
188. '*
189.  
190. DIM SL_framerate AS INTEGER '           the global frame rate
191.  
192. '*
193. '* main code (for testing)
194. '*
195.  
196. DIM kongsheet AS INTEGER
197. DIM mysprite AS INTEGER
198. DIM mysprite2 AS INTEGER
199. DIM x AS SINGLE
200. DIM y AS INTEGER
201. DIM angle AS INTEGER
202.  
203. SL_SET_FRAMERATE 30
204.  
205. kongsheet = SL_NEW_SHEET("dkong.png", 64, 64, SL_SET, _RGB32(255, 0, 255))
206. mysprite = SL_NEW_SPRITE(kongsheet, 1, 1, SL_HARDWARE, SL_NOSAVE)
207. 'mysprite2 = SL_NEW_SPRITE(kongsheet, 1, 1, SL_SOFTWARE, SL_NOSAVE)
208.  
209. 'SL_FLIP_SPRITE mysprite, SL_HORIZONTAL
210. 'SL_SET_ZOOM mysprite, 125
211.  
212. 'SL_SET_MOTION mysprite, 90, 3, SL_START
213. SL_SET_ROTATION mysprite, 0, 5, SL_START
214. 'SL_SET_ROTATION mysprite2, 180, 10, SL_START
215.  
216. SL_SET_ANIMATION mysprite, 1, 3, SL_FORWARD, 10, SL_START
217.  
218. SCREEN _NEWIMAGE(640, 480, 32)
219. CLS
220.  
221. CIRCLE (128, 128), 64, _RGB32(255, 255, 255)
222.  
223. SL_PUT_SPRITE 128, 128, mysprite
224. 'SL_PUT_SPRITE 128, 128, mysprite2
225.  
226. DO
227.     _LIMIT SL_GET_FRAMERATE
228.     x = x + 1
229.     IF x = 15 THEN
230.         'SL_CHANGE_MOTION_SPEED mysprite, SL_GET_MOTION_SPEED(mysprite) * 1.1
231.         'SL_CHANGE_ROTATION_SPEED mysprite, SL_GET_ROTATION_SPEED(mysprite) + 1
232.         x = 0
233.     END IF
234.     SL_UPDATE_AUTO_SPRITES
235.     _DISPLAY
236. LOOP UNTIL _KEYHIT
237.  
238. SL_FREE_SPRITE mysprite
239. 'SL_FREE_SPRITE mysprite2
240.  
241. END
242.  
243.  
244. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
245. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
246. '                                                                     ----------==========                    ==========----------
247. '                                                                     ----------========== ANIMATION ROUTINES ==========----------
248. '                                                                     ----------==========                    ==========----------
249. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
250. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
251.  
252. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
253. SUB SL_SET_FRAMERATE (framerate AS INTEGER) '                                                                                                                                          SL_SET_FRAMERATE
254.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
255.  
256.     ' declare global variables
257.  
258.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
259.     SHARED SL_framerate AS INTEGER '    global frame rate
260.  
261.     ' declare local variables
262.  
263.     DIM handle AS INTEGER '             cycle counter through sprite handles
264.  
265.     ' perform error checks
266.  
267.     IF framerate < 1 THEN '                                                                             valid frame rate?
268.         SL_ERROR "SL_SET_FRAMERATE", 10, "" '                                                           no, report error to programmer
269.     END IF
270.  
271.     ' set local variables
272.  
273.     SL_framerate = framerate '                                                                          set global frame rate
274.     handle = 0 '                                                                                        reset handle counter
275.  
276.     DO '                                                                                                update all available sprites
277.         handle = handle + 1 '                                                                           increment sprite pointer
278.         IF SL_sprite(handle).inuse THEN '                                                               is this sprite in use?
279.             IF SL_sprite(handle).anim.framerate THEN '                                                  yes, does it contain an animation frame rate?
280.                 IF SL_framerate < SL_sprite(handle).anim.framerate THEN '                               is new global frame rate less than sprite's frame rate?
281.                     SL_sprite(handle).anim.framerate = SL_framerate '                                   yes, set sprite's frame rate to global frame rate
282.                 END IF
283.                 IF SL_framerate = SL_sprite(handle).anim.framerate THEN '                               animation and global frame rates the same?
284.                     SL_sprite(handle).anim.skip = 0 '                                                   yes, nothing needs to be done with frames
285.                 ELSEIF SL_sprite(handle).anim.framerate >= SL_framerate \ 2 THEN '                      no, sprite frame rate 1/2 or less of master frame rate?
286.                     SL_sprite(handle).anim.skip = SL_framerate \ (SL_framerate - SL_sprite(handle).anim.framerate) ' yes, calculate every frame to skip
287.                 ELSE '                                                                                  no, sprite frame rate is greater than 1/2 of master frame rate
288.                     SL_sprite(handle).anim.skip = SL_framerate \ SL_sprite(handle).anim.framerate '     calculate every frame to draw
289.                 END IF
290.             END IF
291.         END IF
292.     LOOP UNTIL handle = UBOUND(SL_sprite) '                                                             leave when all sprites updated
293.  
294. END SUB
295.  
296. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
297. FUNCTION SL_GET_FRAMERATE () '                                                                                                                                                         SL_GET_FRAMERATE
298.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
299.  
300.     ' declare global variables
301.  
302.     SHARED SL_framerate AS INTEGER '    global frame rate
303.  
304.     SL_GET_FRAMERATE = SL_framerate '                                                                   return global frame rate
305.  
306. END FUNCTION
307.  
308. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
309. SUB SL_NEXT_ANIMATION_CELL (handle AS INTEGER) '                                                                                                                                 SL_NEXT_ANIMATION_CELL
310.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
311.  
312.     ' declare global variables
313.  
314.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
315.  
316.     ' perform error checks
317.  
318.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
319.         SL_ERROR "SL_NEXT_ANIMATION_CELL", 1, "" '                                                      no, report error to programmer
320.     END IF
321.     IF NOT SL_sprite(handle).anim.cellfrom THEN '                                                       has animation been assigned to this sprite?
322.         SL_ERROR "SL_NEXT_ANIMATION_CELL", 15, "" '                                                     no, report error to programmer
323.     END IF
324.     IF SL_sprite(handle).anim.auto THEN '                                                               is this sprite under auto animation control?
325.         SL_ERROR "SL_NETXT_ANIMATION_CELL", 18, "" '                                                    yes, report error to programmer
326.     END IF
327.  
328.     SELECT CASE SL_sprite(handle).anim.mode '                                                           which animation mode is this sprite using?
329.         CASE 0 '                                                                          (SL_FORWARD)  move forward through the cells
330.             SL_sprite(handle).anim.cell = SL_sprite(handle).anim.cell + 1 '                             increment animation cell
331.             IF SL_sprite(handle).anim.cell > SL_sprite(handle).anim.cellto THEN '                       passed the last cell?
332.                 SL_sprite(handle).anim.cell = SL_sprite(handle).anim.cellfrom '                         yes, go back to first cell
333.             END IF
334.         CASE 1 '                                                                         (SL_BACKWARD)  move backward through the cells
335.             SL_sprite(handle).anim.cell = SL_sprite(handle).anim.cell - 1 '                             decrement animation cell
336.             IF SL_sprite(handle).anim.cell < SL_sprite(handle).anim.cellfrom THEN '                     passed the first cell?
337.                 SL_sprite(handle).anim.cell = SL_sprite(handle).anim.cellto '                           yes, go back to last cell
338.             END IF
339.         CASE 2 '                                                                        (SL_BACKFORTH)  ping-pong back and forth through the cells
340.             SL_sprite(handle).anim.cell = SL_sprite(handle).anim.cell + SL_sprite(handle).anim.dir '    increment/decrement animation cell
341.             IF SL_sprite(handle).anim.cell = SL_sprite(handle).anim.cellto OR _
342.                SL_sprite(handle).anim.cell = SL_sprite(handle).anim.cellfrom THEN '                     is this the first or last cell?
343.                 SL_sprite(handle).anim.dir = -SL_sprite(handle).anim.dir '                              yes, reverse animation direction
344.             END IF
345.     END SELECT
346.  
347.     SL_sprite(handle).column = SL_GET_COLUMN(SL_sprite(handle).sheet, SL_sprite(handle).anim.cell) '    get cell column on sheet and save
348.     SL_sprite(handle).row = SL_GET_ROW(SL_sprite(handle).sheet, SL_sprite(handle).anim.cell) '          get cell row on sheet and save
349.  
350. END SUB
351.  
352. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
353. SUB SL_CHANGE_ANIMATION_CELLS (handle AS INTEGER, cellfrom AS INTEGER, cellto AS INTEGER) '                                                                                   SL_CHANGE_ANIMATION_CELLS
354.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
355.     ' change a sprite's animation sequence
356.  
357.     ' declare global variables
358.  
359.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
360.  
361.     ' perform error checks
362.  
363.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
364.         SL_ERROR "SL_CHANGE_ANIMATION_CELLS", 1, "" '                                                   no, report error to programmer
365.     END IF
366.     IF NOT SL_sprite(handle).anim.cellfrom THEN '                                                       has animation been assigned to this sprite?
367.         SL_ERROR "SL_CHANGE_ANIMATION_CELLS", 15, "" '                                                  no, report error to programmer
368.     END IF
369.     IF cellfrom <> -1 THEN '                                                          (SL_CURRENTCELL)  is the current cell being requested for cellfrom?
370.         IF cellfrom < 1 OR (NOT SL_VALID_CELL(SL_sprite(handle).sheet, cellfrom)) THEN '                no, is this a valid cell request?
371.             SL_ERROR "SL_CHANGE_ANIMATION_CELLS", 13, "" '                                              no, report error to rpogrammer
372.         END IF
373.     END IF
374.     IF cellto < 1 OR (NOT SL_VALID_CELL(SL_sprite(handle).sheet, cellto)) THEN '                        is this valid cell request?
375.         SL_ERROR "SL_CHANGE_ANIMATION_CELLS", 13, "" '                                                  no, report error to programmer
376.     END IF
377.  
378.     IF cellfrom = -1 THEN '                                                           (SL_CURRENTCELL)  use current cell as start cell?
379.         SL_sprite(handle).anim.cellfrom = SL_sprite(handle).anim.cell '                                 yes, set first cell as current cell
380.     ELSE '                                                                                              no
381.         SL_sprite(handle).anim.cellfrom = cellfrom '                                                    set first cell in animation
382.     END IF
383.     SL_sprite(handle).anim.cellto = cellto '                                                            set last cell in animation
384.     SL_sprite(handle).anim.cell = SL_sprite(handle).anim.cellfrom '                                     set current cell to first cell
385.  
386.     IF SL_sprite(handle).anim.cellto <= SL_sprite(handle).anim.cellfrom THEN '                          is cellto greater than cellfrom?
387.         SL_ERROR "SL_CHANGE_ANIMATION_CELLS", 19, "" '                                                  no, report error to programmer
388.     END IF
389.  
390. END SUB
391.  
392. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
393. SUB SL_CHANGE_ANIMATION_FRAMERATE (handle AS INTEGER, framerate AS INTEGER) '                                                                                             SL_CHANGE_ANIMATION_FRAMERATE
394.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
395.     ' declare global variables
396.  
397.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
398.     SHARED SL_framerate AS INTEGER '    global frame rate
399.  
400.     ' perform error checks
401.  
402.     IF framerate < 1 OR framerate > SL_framerate THEN '                                                 valid frame rate supplied?
403.         SL_ERROR "SL_CHANGE_ANIMATION_FRAMERATE", 11, "" '                                              no, report error to programmer
404.     END IF
405.  
406.     SL_sprite(handle).anim.framerate = framerate '                                                      save sprite frame rate
407.     IF SL_framerate = framerate THEN '                                                                  animation and global frame rates the same?
408.         SL_sprite(handle).anim.skip = 0 '                                                               yes, nothing needs to be done with frames
409.     ELSEIF framerate >= SL_framerate \ 2 THEN '                                                         no, sprite frame rate 1/2 or less of master frame rate?
410.         SL_sprite(handle).anim.skip = SL_framerate \ (SL_framerate - framerate) '                       yes, calculate every frame to skip
411.     ELSE '                                                                                              no, sprite frame rate is greater than 1/2 of master frame rate
412.         SL_sprite(handle).anim.skip = SL_framerate \ framerate '                                        calculate every frame to draw
413.     END IF
414.  
415. END SUB
416.  
417. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
418. SUB SL_CHANGE_AUTOANIMATION (handle AS INTEGER, auto AS INTEGER) '                                                                                                              SL_CHANGE_AUTOANIMATION
419.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
420.  
421.     ' declare global variables
422.  
423.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
424.  
425.     ' perform error checks
426.  
427.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
428.         SL_ERROR "SL_CHANGE_AUTOANIMATION", 1, "" '                                                     no, report error to programmer
429.     END IF
430.     IF auto < -1 OR auto > 0 THEN '                                                                     valid auto animation value?
431.         SL_ERROR "SL_CHANGE_ANIMATION", 14, "" '                                                        no, report error to programmer
432.     END IF
433.  
434.     SL_sprite(handle).anim.auto = auto '                                          (SL_START & SL_STOP)  set auto-animation
435.  
436. END SUB
437.  
438. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
439. SUB SL_SET_ANIMATION (handle AS INTEGER, cellfrom AS INTEGER, cellto AS INTEGER, mode AS INTEGER, framerate AS INTEGER, auto AS INTEGER) '                                             SL_SET_ANIMATION
440.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
441.  
442.     ' declare global variables
443.  
444.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
445.     SHARED SL_framerate AS INTEGER '    global frame rate
446.  
447.     ' perform error checks
448.  
449.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
450.         SL_ERROR "SL_SET_ANIMATION", 1, "" '                                                            no, report error to programmer
451.     END IF
452.     IF framerate < 1 OR framerate > SL_framerate THEN '                                                 valid frame rate supplied?
453.         SL_ERROR "SL_SET_ANIMATION", 11, "" '                                                           no, report error to programmer
454.     END IF
455.     IF mode < 0 OR mode > 2 THEN '                                                                      valid animation mode supplied?
456.         SL_ERROR "SL_SET_ANIMATION", 12, "" '                                                           no, report error to programmer
457.     END IF
458.     IF cellfrom <> -1 THEN '                                                          (SL_CURRENTCELL)  is the current cell being requested for cellfrom?
459.         IF cellfrom < 1 OR (NOT SL_VALID_CELL(SL_sprite(handle).sheet, cellfrom)) THEN '                no, is this a valid cell request?
460.             SL_ERROR "SL_SET_ANIMATION", 13, "" '                                                       no, report error to rpogrammer
461.         END IF
462.     END IF
463.     IF cellto < 1 OR (NOT SL_VALID_CELL(SL_sprite(handle).sheet, cellto)) THEN '                        is this valid cell request?
464.         SL_ERROR "SL_SET_ANIMATION", 13, "" '                                                           no, report error to programmer
465.     END IF
466.     IF auto < -1 OR auto > 0 THEN '                                                                     valid auto animation value?
467.         SL_ERROR "SL_SET_ANIMATION", 14, "" '                                                           no, report error to programmer
468.     END IF
469.  
470.     IF cellfrom = -1 THEN '                                                           (SL_CURRENTCELL)  use current cell as start cell?
471.         SL_sprite(handle).anim.cellfrom = SL_sprite(handle).anim.cell '                                 yes, set first cell as current cell
472.     ELSE '                                                                                              no
473.         SL_sprite(handle).anim.cell = cellfrom '                                                        set starting cell
474.         SL_sprite(handle).anim.cellfrom = cellfrom '                                                    set first cell in animation
475.     END IF
476.     SL_sprite(handle).anim.cellto = cellto '                                                            set last cell in animation
477.  
478.     IF cellto <= cellfrom THEN '                                                                        is cellto greater than cellfrom?
479.         SL_ERROR "SL_SET_ANIMATION", 19, "" '                                                           no, report error to programmer
480.     END IF
481.  
482.     SL_sprite(handle).column = SL_GET_COLUMN(SL_sprite(handle).sheet, SL_sprite(handle).anim.cell) '    get cell column on sheet
483.     SL_sprite(handle).row = SL_GET_ROW(SL_sprite(handle).sheet, SL_sprite(handle).anim.cell) '          get cell row on sheet
484.     SL_sprite(handle).anim.framerate = framerate '                                                      save sprite frame rate
485.     IF SL_framerate = framerate THEN '                                                                  animation and global frame rates the same?
486.         SL_sprite(handle).anim.skip = 0 '                                                               yes, nothing needs to be done with frames
487.     ELSEIF framerate >= SL_framerate \ 2 THEN '                                                         no, sprite frame rate 1/2 or less of master frame rate?
488.         SL_sprite(handle).anim.skip = SL_framerate \ (SL_framerate - framerate) '                       yes, calculate every frame to skip
489.     ELSE '                                                                                              no, sprite frame rate is greater than 1/2 of master frame rate
490.         SL_sprite(handle).anim.skip = SL_framerate \ framerate '                                        calculate every frame to draw
491.     END IF
492.     SL_sprite(handle).anim.frame = 0 '                                                                  reset skip frame counter
493.     SL_sprite(handle).anim.mode = mode '                     (SL_FORWARD & SL_BACKWARD & SL_BACKFORTH)  set animation mode
494.     IF mode = 0 OR mode = 2 THEN '                                        (SL_FORWARD or SL_BACKFORTH)  forward or back and forth?
495.         SL_sprite(handle).anim.dir = 1 '                                                                yes, set animation direction forward
496.     ELSE '                                                                               (SL_BACKWARD)  no, backward
497.         SL_sprite(handle).anim.dir = -1 '                                                               set animation direction backward
498.     END IF
499.     SL_sprite(handle).anim.auto = auto '                                          (SL_START & SL_STOP)  set auto-animation
500.  
501. END SUB
502.  
503. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
504. FUNCTION SL_GET_ROW (sheet AS INTEGER, cell AS INTEGER) '                                                                                                                                    SL_GET_ROW
505.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
506.  
507.     ' declare global variables
508.  
509.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
510.  
511.     ' perform error checks
512.  
513.     IF NOT SL_VALID_SHEET(sheet) THEN '                                                                 is this a valid sheet?
514.         SL_ERROR "SL_GET_ROW", 5, "" '                                                                  no, report error to programmer
515.     END IF
516.     IF NOT SL_VALID_CELL(sheet, cell) THEN '                                                            is this a valid cell?
517.         SL_ERROR "SL_GET_ROW", 13, "" '                                                                 no, report error to programmer
518.     END IF
519.  
520.     IF cell MOD SL_sheet(sheet, 0, 0).swidth = 0 THEN '                                                 right-most column?
521.         SL_GET_ROW = cell \ SL_sheet(sheet, 0, 0).swidth '                                              yes, calculate and return row
522.     ELSE '                                                                                              no, in another column
523.         SL_GET_ROW = cell \ SL_sheet(sheet, 0, 0).swidth + 1 '                                          calculate and return row
524.     END IF
525.  
526. END FUNCTION
527.  
528. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
529. FUNCTION SL_GET_COLUMN (sheet AS INTEGER, cell AS INTEGER) '                                                                                                                              SL_GET_COLUMN
530.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
531.  
532.     ' declare global variables
533.  
534.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
535.  
536.     ' declare local variables
537.  
538.     DIM column AS INTEGER '             column cell is located in
539.  
540.     ' perform error checks
541.  
542.     IF NOT SL_VALID_SHEET(sheet) THEN '                                                                 is this a valid sheet?
543.         SL_ERROR "SL_GET_COLUMN", 5, "" '                                                               no, report error to programmer
544.     END IF
545.     IF NOT SL_VALID_CELL(sheet, cell) THEN '                                                            is this a valid cell?
546.         SL_ERROR "SL_GET_COLUMN", 13, "" '                                                              no, report error to programmer
547.     END IF
548.  
549.     column = cell MOD SL_sheet(sheet, 0, 0).swidth '                                                    get column sprite is in
550.     IF column = 0 THEN '                                                                                right-most column?
551.         SL_GET_COLUMN = SL_sheet(sheet, 0, 0).swidth '                                                  return right-most column value
552.     ELSE '                                                                                              no, in another column
553.         SL_GET_COLUMN = column '                                                                        return the column sprite is in
554.     END IF
555.  
556. END FUNCTION
557.  
558. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
559. FUNCTION SL_GET_CELL (handle AS INTEGER) '                                                                                                                                                  SL_GET_CELL
560.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
561.  
562.     ' declare global variables
563.  
564.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
565.  
566.     ' perform error checks
567.  
568.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
569.         SL_ERROR "SL_GET_CELL", 1, "" '                                                                 no, report error to programmer
570.     END IF
571.  
572.     SL_GET_CELL = SL_sprite(handle).anim.cell '                                                         return animation cell of this sprite
573.  
574. END FUNCTION
575.  
576. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
577. FUNCTION SL_VALID_CELL (sheet AS INTEGER, cell AS INTEGER) '                                                                                                                              SL_VALID_CELL
578.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
579.  
580.     ' declare global variables
581.  
582.     SHARED SL_sheet() AS SL_SHEET '    master sprite sheet array
583.  
584.     IF NOT SL_VALID_SHEET(sheet) THEN '                                                                 is this a valid sheet?
585.         SL_ERROR "SL_VALID_CELL", 5, "" '                                                               no, report error to programmer
586.     END IF
587.  
588.     IF (cell > SL_sheet(sheet, 0, 0).swidth * SL_sheet(sheet, 0, 0).sheight) OR (cell < 1) THEN '       does cell exceed total cells on sheet or less than one?
589.         SL_VALID_CELL = 0 '                                                                    (FALSE)  yes, return false for invalid cell
590.     ELSE '                                                                                              no, within total cells
591.         SL_VALID_CELL = -1 '                                                                    (TRUE)  return true for valid cell
592.     END IF
593.  
594. END FUNCTION
595.  
596. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
597. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
598. '                                                                       ----------==========                 ==========----------
599. '                                                                       ----------========== MOTION ROUTINES ==========----------
600. '                                                                       ----------==========                 ==========----------
601. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
602. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
603.  
604. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
605. SUB SL_REVERSE_MOTIONX (handle AS INTEGER) '                                                                                                                                         SL_REVERSE_MOTIONX
606.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
607.  
608.     ' declare global variables
609.  
610.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
611.  
612.     ' perform error checks
613.  
614.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
615.         SL_ERROR "SL_REVERSE_MOTIONX", 1, "" '                                                          no, report error to programmer
616.     END IF
617.  
618.     SL_sprite(handle).x.dir = -SL_sprite(handle).x.dir '                                                reverse x motion direction
619.  
620. END SUB
621.  
622.  
623. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
624. SUB SL_REVERSE_MOTIONY (handle AS INTEGER) '                                                                                                                                         SL_REVERSE_MOTIONY
625.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
626.  
627.     ' declare global variables
628.  
629.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
630.  
631.     ' perform error checks
632.  
633.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
634.         SL_ERROR "SL_REVERSE_MOTIONY", 1, "" '                                                          no, report error to programmer
635.     END IF
636.  
637.     SL_sprite(handle).y.dir = -SL_sprite(handle).y.dir '                                                reverse y motion direction
638.  
639. END SUB
640.  
641.  
642. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
643. FUNCTION SL_GET_MOTIONX (handle AS INTEGER) '                                                                                                                                            SL_GET_MOTIONX
644.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
645.  
646.     ' declare global variables
647.  
648.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
649.  
650.     ' perform error checks
651.  
652.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
653.         SL_ERROR "SL_GET_MOTIONX", 1, "" '                                                              no, report error to programmer
654.     END IF
655.  
656.     SL_GET_MOTIONX = SL_sprite(handle).x.dir '                                                          return x motion direction
657.  
658. END FUNCTION
659.  
660. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
661. FUNCTION SL_GET_MOTIONY (handle AS INTEGER) '                                                                                                                                            SL_GET_MOTIONY
662.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
663.  
664.     ' declare global variables
665.  
666.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
667.  
668.     ' perform error checks
669.  
670.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
671.         SL_ERROR "SL_GET_MOTIONY", 1, "" '                                                              no, report error to programmer
672.     END IF
673.  
674.     SL_GET_MOTIONY = SL_sprite(handle).y.dir '                                                          return y motion direction
675.  
676. END FUNCTION
677.  
678. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
679. SUB SL_SET_MOTIONX (handle AS INTEGER, xdir AS SINGLE) '                                                                                                                                 SL_SET_MOTIONX
680.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
681.     ' declare global variables
682.  
683.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
684.  
685.     ' perform error checks
686.  
687.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
688.         SL_ERROR "SL_SET_MOTIONX", 1, "" '                                                              no, report error to programmer
689.     END IF
690.  
691.     SL_sprite(handle).x.dir = xdir '                                                                    set x motion direction
692.  
693. END SUB
694.  
695. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
696. SUB SL_SET_MOTIONY (handle AS INTEGER, ydir AS SINGLE) '                                                                                                                                 SL_SET_MOTIONY
697.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
698.  
699.     ' declare global variables
700.  
701.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
702.  
703.     ' perform error checks
704.  
705.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
706.         SL_ERROR "SL_SET_MOTIONY", 1, "" '                                                              no, report error to programmer
707.     END IF
708.  
709.     SL_sprite(handle).y.dir = ydir '                                                                    set y motion direction
710.  
711. END SUB
712.  
713. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
714. SUB SL_UPDATE_MOTION (handle AS INTEGER) '                                                                                                                                             SL_UPDATE_MOTION
715.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
716.  
717.     ' declare global variables
718.  
719.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
720.  
721.     ' perform error checks
722.  
723.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
724.         SL_ERROR "SL_UPDATE_MOTION", 1, "" '                                                            no, report error to programmer
725.     END IF
726.     IF SL_sprite(handle).motion.auto THEN '                                                             attempt to move sprite under automatic control?
727.         SL_ERROR "SL_UPDATE_MOTION", 16, "" '                                                           yes, report error to programmer
728.     END IF
729.  
730.     SL_sprite(handle).x.real = SL_sprite(handle).x.real + SL_sprite(handle).x.dir '                     update x location
731.     SL_sprite(handle).y.real = SL_sprite(handle).y.real + SL_sprite(handle).y.dir '                     update y location
732.     SL_PUT_SPRITE SL_sprite(handle).x.real, SL_sprite(handle).y.real, handle '                          update sprite location
733.  
734. END SUB
735.  
736. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
737. SUB SL_SET_MOTION (handle AS INTEGER, degrees AS INTEGER, speed AS SINGLE, auto AS INTEGER) '                                                                                            SL_SET_MOTION
738.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
739.  
740.     ' declare global variables
741.  
742.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
743.  
744.     ' perform error checks
745.  
746.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
747.         SL_ERROR "SL_SET_DIRECTION", 1, "" '                                                            no, report error to programmer
748.     END IF
749.     IF auto < -1 OR auto > 0 THEN '                                               (SL_START & SL_STOP)  valid on/off switch supplied?
750.         SL_ERROR "SL_CHANGE_AUTOMOTION", 7, "" '                                                        no, report error to programmer
751.     END IF
752.  
753.     SL_sprite(handle).motion.speed = speed '                                                            set motion speed of sprite
754.     SL_CHANGE_MOTION_DIRECTION handle, degrees '                                                        set motion angle of sprite
755.     SL_sprite(handle).motion.auto = auto '                                        (SL_START & SL_STOP)  set auto-motion of sprite
756.  
757. END SUB
758.  
759. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
760. SUB SL_CHANGE_MOTION_DIRECTION (handle AS INTEGER, degrees AS INTEGER) '                                                                                                     SL_CHANGE_MOTION_DIRECTION
761.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
762.  
763.     ' declare global variables
764.  
765.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
766.  
767.     ' delcare local variables
768.  
769.     DIM degree AS INTEGER '             degree angle passed in
770.  
771.     ' perform error checks
772.  
773.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
774.         SL_ERROR "SL_CHANGE_MOTION_DIRECTION", 1, "" '                                                  no, report error to programmer
775.     END IF
776.  
777.     degree = SL_FIX_DEGREES(degrees) '                                                                  get degree angle passed in
778.  
779.     SL_sprite(handle).motion.angle = degree '                                                           set motion degree angle
780.     SL_sprite(handle).x.dir = SIN(degree * .017453292) * SL_sprite(handle).motion.speed '               calculate x vector
781.     SL_sprite(handle).y.dir = -COS(degree * .017453292) * SL_sprite(handle).motion.speed '              calculate y vector
782.  
783. END SUB
784.  
785. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
786. FUNCTION SL_GET_MOTION_DIRECTION (handle AS INTEGER) '                                                                                                                          SL_GET_MOTION_DIRECTION
787.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
788.  
789.     ' declare global variables
790.  
791.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
792.  
793.     ' perform error checks
794.  
795.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
796.         SL_ERROR "SL_GET_MOTION_DIRECTION", 1, "" '                                                     no, report error to programmer
797.     END IF
798.  
799.     SL_GET_MOTION_DIRECTION = SL_sprite(handle).motion.angle '                                          return direction sprite currently set to
800.  
801. END FUNCTION
802.  
803. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
804. SUB SL_CHANGE_MOTION_SPEED (handle AS INTEGER, speed AS SINGLE) '                                                                                                                SL_CHANGE_MOTION_SPEED
805.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
806.  
807.     ' declare global variables
808.  
809.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
810.  
811.     ' perform error checks
812.  
813.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
814.         SL_ERROR "SL_CHANGE_MOTION_SPEED", 1, "" '                                                      no, report error to programmer
815.     END IF
816.  
817.     SL_sprite(handle).motion.speed = speed '                                                            set sprite motion speed
818.     SL_sprite(handle).x.dir = SIN(SL_sprite(handle).motion.angle * .017453292) * speed '                calculate x vector
819.     SL_sprite(handle).y.dir = -COS(SL_sprite(handle).motion.angle * .017453292) * speed '               calculate y vector
820.  
821. END SUB
822.  
823. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
824. FUNCTION SL_GET_MOTION_SPEED (handle AS INTEGER) '                                                                                                                                  SL_GET_MOTION_SPEED
825.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
826.  
827.     ' declare global variables
828.  
829.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
830.  
831.     ' perform error checks
832.  
833.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
834.         SL_ERROR "SL_GET_MOTION_SPEED", 1, "" '                                                         no, report error to programmer
835.     END IF
836.  
837.     SL_GET_MOTION_SPEED = SL_sprite(handle).motion.speed '                                              return current sprite motion speed
838.  
839. END FUNCTION
840.  
841. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
842. SUB SL_CHANGE_AUTOMOTION (handle AS INTEGER, auto AS INTEGER) '                                                                                                                    SL_CHANGE_AUTOMOTION
843.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
844.  
845.     ' declare global variables
846.  
847.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
848.  
849.     IF auto = -32767 THEN '                                                                 (SL_RESET)  reset auto motion?
850.         SL_sprite(handle).motion.auto = 0 '                                                    (FALSE)  yes, turn auto motion off
851.         EXIT SUB '                                                                                      leave subroutine
852.     END IF
853.  
854.     ' perform error checks
855.  
856.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
857.         SL_ERROR "SL_CHANGE_AUTOMOTION", 1, "" '                                                        no, report error to programmer
858.     END IF
859.     IF auto < -1 OR auto > 0 THEN '                                               (SL_START & SL_STOP)  valid on/off switch supplied?
860.         SL_ERROR "SL_CHANGE_AUTOMOTION", 7, "" '                                                        no, report error to programmer
861.     END IF
862.  
863.     SL_sprite(handle).motion.auto = auto '                                              (TRUE & FALSE)  set auto motion status
864.  
865. END SUB
866.  
867. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
868. FUNCTION SL_GET_AUTOMOTION (handle AS INTEGER) '                                                                                                                                      SL_GET_AUTOMOTION
869.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
870.  
871.     ' declare global variables
872.  
873.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
874.  
875.     ' perform error checks
876.  
877.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
878.         SL_ERROR "SL_GET_AUTOMOTION", 1, "" '                                                           no, report error to programmer
879.     END IF
880.  
881.     SL_GET_AUTOMOTION = SL_sprite(handle).motion.auto '                                 (TRUE & FALSE)  return auto motion status
882.  
883. END FUNCTION
884.  
885. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
886. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
887. '                                                                      ----------==========                   ==========----------
888. '                                                                      ----------========== ROTATION ROUTINES ==========----------
889. '                                                                      ----------==========                   ==========----------
890. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
891. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
892.  
893. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
894. SUB SL_UPDATE_ROTATION (handle AS INTEGER) '                                                                                                                                         SL_UPDATE_ROTATION
895.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
896.  
897.     ' declare global variables
898.  
899.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
900.  
901.     ' perform error checks
902.  
903.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
904.         SL_ERROR "SL_UPDATE_ROTATION", 1, "" '                                                          no, report error to programmer
905.     END IF
906.     IF SL_sprite(handle).rotation.auto THEN '                                                           attempt to rotate sprite under automatic control?
907.         SL_ERROR "SL_UPDATE_ROTATION", 17, "" '                                                         yes, report error to programmer
908.     END IF
909.  
910.     SL_ROTATE_SPRITE handle, SL_sprite(handle).rotation.angle + SL_sprite(handle).rotation.speed '      rotate sprite to next degree angle
911.     SL_PUT_SPRITE SL_sprite(handle).x.real, SL_sprite(handle).y.real, handle '                          update sprite rotation
912.  
913. END SUB
914.  
915.  
916. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
917. SUB SL_SET_ROTATION (handle AS INTEGER, degrees AS INTEGER, speed AS INTEGER, auto AS INTEGER) '                                                                                        SL_SET_ROTATION
918.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
919.  
920.     ' declare global variables
921.  
922.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
923.  
924.     ' perform error checks
925.  
926.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
927.         SL_ERROR "SL_SET_ROTATION", 1, "" '                                                             no, report error to programmer
928.     END IF
929.     IF auto < -1 OR auto > 0 THEN '                                               (SL_START & SL_STOP)  valid on/off switch supplied?
930.         SL_ERROR "SL_SET_ROTATION", 8, "" '                                                             no, report error to programmer
931.     END IF
932.     IF ABS(degrees) > 359 THEN '                                                                        degree requested between -359 and 359?
933.         SL_ERROR "SL_SET_ROTATION", 9, "" '                                                             no, report error to programmer
934.     END IF
935.  
936.     SL_sprite(handle).rotation.speed = speed '                                                          set rotation speed
937.     SL_ROTATE_SPRITE handle, degrees '                                                                  set start angle
938.     SL_sprite(handle).rotation.auto = auto '                                                            set auto-rotation
939.  
940. END SUB
941.  
942. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
943. SUB SL_CHANGE_AUTOROTATION (handle AS INTEGER, auto AS INTEGER) '                                                                                                                SL_CHANGE_AUTOROTATION
944.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
945.  
946.     ' declare global variables
947.  
948.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
949.  
950.     IF auto = -32767 THEN '                                                                 (SL_RESET)  reset auto rotate?
951.         SL_sprite(handle).rotation.auto = 0 '                                                  (FALSE)  yes, turn auto rotation off
952.         EXIT SUB '                                                                                      leave subroutine
953.     END IF
954.  
955.     ' perform error checks
956.  
957.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
958.         SL_ERROR "SL_CHANGE_AUTOROTATION", 1, "" '                                                      no, report error to programmer
959.     END IF
960.     IF auto < -1 OR auto > 0 THEN '                                               (SL_START & SL_STOP)  valid on/off switch supplied?
961.         SL_ERROR "SL_CHANGE_AUTOROTATION", 8, "" '                                                      no, report error to programmer
962.     END IF
963.  
964.     SL_sprite(handle).rotation.auto = auto '                                            (TRUE & FALSE)  set auto rotation status
965.  
966. END SUB
967.  
968. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
969. FUNCTION SL_GET_AUTOROTATION (handle AS INTEGER) '                                                                                                                                  SL_GET_AUTOROTATION
970.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
971.  
972.     ' declare global variables
973.  
974.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
975.  
976.     ' perform error checks
977.  
978.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
979.         SL_ERROR "SL_GET_AUTOROTATION", 1, "" '                                                         no, report error to programmer
980.     END IF
981.  
982.     SL_GET_AUTOROTATION = SL_sprite(handle).rotation.auto '                             (TRUE & FALSE)  return auto rotation status
983.  
984. END FUNCTION
985.  
986. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
987. SUB SL_CHANGE_ROTATION_SPEED (handle AS INTEGER, degrees AS INTEGER) '                                                                                                         SL_CHANGE_ROTATION_SPEED
988.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
989.  
990.     ' declare global variables
991.  
992.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
993.  
994.     ' perform error checks
995.  
996.     IF degrees = -32767 THEN '                                                              (SL_RESET)  reset requested?
997.         SL_sprite(handle).rotation.speed = 0 '                                               (SL_STOP)  turn auto spin off
998.         EXIT SUB '                                                                                      leave subroutine
999.     END IF
1000.  
1001.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1002.         SL_ERROR "SL_CHANGE_ROTATION_SPEED", 1, "" '                                                    no, report error to programmer
1003.     END IF
1004.     IF ABS(degrees) > 359 THEN '                                                                        degree requested between -359 and 359?
1005.         SL_ERROR "SL_CHANGE_ROTATION_SPEED", 9, "" '                                                    no, report error to programmer
1006.     END IF
1007.  
1008.     SL_sprite(handle).rotation.speed = degrees '                                                        set sprite spin rate
1009.  
1010. END SUB
1011.  
1012. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1013. FUNCTION SL_GET_ROTATION_SPEED (handle AS INTEGER) '                                                                                                                              SL_GET_ROTATION_SPEED
1014.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1015.  
1016.     ' declare global variables
1017.  
1018.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1019.  
1020.     ' perform error checks
1021.  
1022.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1023.         SL_ERROR "SL_GET_ROTATION_SPEED", 1, "" '                                                       no, report error to programmer
1024.     END IF
1025.  
1026.     SL_GET_ROTATION_SPEED = SL_sprite(handle).rotation.speed '                                          return current sprite spin rate
1027.  
1028. END FUNCTION
1029.  
1030. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1031. SUB SL_ROTATE_SPRITE (handle AS INTEGER, degrees AS INTEGER) '                                                                                                                         SL_ROTATE_SPRITE
1032.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1033.  
1034.     ' declare global variables
1035.  
1036.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1037.  
1038.     ' perform error checks
1039.  
1040.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1041.         SL_ERROR "SL_ROTATE_SPRITE", 1, "" '                                                            no, report error to programmer
1042.     END IF
1043.  
1044.     IF degrees = -32767 THEN '                                                              (SL_RESET)  reset sprite rotation?
1045.         SL_sprite(handle).rotation.angle = 0 '                                                          reset rotation angle
1046.     ELSE
1047.         SL_sprite(handle).rotation.angle = SL_FIX_DEGREES(degrees) '                                    set degree of rotation
1048.     END IF
1049.  
1050. END SUB
1051.  
1052. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1053. FUNCTION SL_FIX_DEGREES (degrees AS INTEGER) '                                                                                                                                           SL_FIX_DEGREES
1054.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1055.  
1056.     ' Credits: this function uses code contriibuted by codeguy
1057.     '          https://www.qb64.org/forum/index.php?topic=537.15
1058.  
1059.     'declare local variables
1060.  
1061.     DIM degree AS INTEGER '             degree angle passed in
1062.  
1063.     ' set local variables
1064.  
1065.     degree = degrees MOD 360 '                                                                          get -359 to 359
1066.     IF degree < 0 THEN '                                                                                need to make positive?
1067.         SL_FIX_DEGREES = degree + 360 '                                                                 yes, correct value and return degree angle
1068.     ELSE
1069.         SL_FIX_DEGREES = degree '                                                                       no correction needed, return degree angle
1070.     END IF
1071.  
1072. END FUNCTION
1073.  
1074. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1075. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1076. '                                                                      ----------==========                   ==========----------
1077. '                                                                      ----------========== LOCATION ROUTINES ==========----------
1078. '                                                                      ----------==========                   ==========----------
1079. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1080. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1081.  
1082. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1083. FUNCTION SL_GET_REALX (handle AS INTEGER) '                                                                                                                                                SL_GET_REALX
1084.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1085.  
1086.     ' declare global variables
1087.  
1088.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1089.  
1090.     ' perform error checks
1091.  
1092.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1093.         SL_ERROR "SL_GET_REALX", 1, "" '                                                                no, report error to programmer
1094.     END IF
1095.  
1096.     SL_GET_REALX = SL_sprite(handle).x.real '                                                           return real number center point x
1097.  
1098. END FUNCTION
1099.  
1100. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1101. FUNCTION SL_GET_REALY (handle AS INTEGER) '                                                                                                                                                SL_GET_REALY
1102.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1103.  
1104.     ' declare global variables
1105.  
1106.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1107.  
1108.     ' perform error checks
1109.  
1110.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1111.         SL_ERROR "SL_GET_REALY", 1, "" '                                                                no, report error to programmer
1112.     END IF
1113.  
1114.     SL_GET_REALY = SL_sprite(handle).y.real '                                                           return real number center point y
1115.  
1116. END FUNCTION
1117.  
1118. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1119. FUNCTION SL_GET_INTX (handle AS INTEGER) '                                                                                                                                                  SL_GET_INTX
1120.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1121.  
1122.     ' declare global variables
1123.  
1124.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1125.  
1126.     ' perform error checks
1127.  
1128.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1129.         SL_ERROR "SL_GET_INTX", 1, "" '                                                                 no, report error to programmer
1130.     END IF
1131.  
1132.     SL_GET_INTX = SL_sprite(handle).x.int '                                                             return integer number center point x
1133.  
1134. END FUNCTION
1135.  
1136. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1137. FUNCTION SL_GET_INTY (handle AS INTEGER) '                                                                                                                                                  SL_GET_INTY
1138.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1139.  
1140.     ' declare global variables
1141.  
1142.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1143.  
1144.     ' perform error checks
1145.  
1146.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1147.         SL_ERROR "SL_GET_INTY", 1, "" '                                                                 no, report error to programmer
1148.     END IF
1149.  
1150.     SL_GET_INTY = SL_sprite(handle).y.int '                                                             return integer number center point x
1151.  
1152. END FUNCTION
1153.  
1154. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1155. FUNCTION SL_GET_ACTUALX (handle AS INTEGER) '                                                                                                                                            SL_GET_ACTUALX
1156.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1157.  
1158.     ' declare global variables
1159.  
1160.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1161.  
1162.     ' perform error checks
1163.  
1164.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1165.         SL_ERROR "SL_GET_ACTUALX", 1, "" '                                                              no, report error to programmer
1166.     END IF
1167.  
1168.     SL_GET_ACTUALX = SL_sprite(handle).x.actual '                                                       return integer number upper left point x
1169.  
1170. END FUNCTION
1171.  
1172. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1173. FUNCTION SL_GET_ACTUALY (handle AS INTEGER) '                                                                                                                                            SL_GET_ACTUALY
1174.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1175.  
1176.     ' declare global variables
1177.  
1178.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1179.  
1180.     ' perform error checks
1181.  
1182.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1183.         SL_ERROR "SL_GET_ACTUALY", 1, "" '                                                              no, report error to programmer
1184.     END IF
1185.  
1186.     SL_GET_ACTUALY = SL_sprite(handle).y.actual '                                                       return integer number upper left point y
1187.  
1188. END FUNCTION
1189.  
1190. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1191. FUNCTION SL_GET_DISTANCE_POINT_TO_POINT (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER) '                                                                   SL_GET_DISTANCE_POINT_TO_POINT
1192.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1193.  
1194.     'declare local variables
1195.  
1196.     DIM a AS INTEGER '                  side a of triangle
1197.     DIM b AS INTEGER '                  side b of triangle
1198.  
1199.     'solve for c (hypotenuse)
1200.  
1201.     a = x1 - x2 '                                                                                       get length of side a
1202.     b = y1 = y2 '                                                                                       get length of side b
1203.  
1204.     SL_GET_DISTANCE_POINT_TO_POINT = INT(SQR(a * a + b * b)) '                                          return length of side c
1205.  
1206. END FUNCTION
1207.  
1208. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1209. FUNCTION SL_GET_DISTANCE_TO_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                 SL_GET_DISTANCE_TO_SPRITE
1210.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1211.  
1212.     ' declare global variables
1213.  
1214.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1215.  
1216.     'perform error checks
1217.  
1218.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
1219.         SL_ERROR "SL_GET_DISTANCE_TO_SPRITE", 1, "" '                                                   no, report error to programmer
1220.     END IF
1221.  
1222.     SL_GET_DISTANCE_TO_SPRITE = SL_GET_DISTANCE_POINT_TO_POINT(SL_sprite(handle1).x.int, SL_sprite(handle1).y.int, _
1223.                                                                SL_sprite(handle2).x.int, SL_sprite(handle2).y.int) '  return distance to sprite 2
1224.  
1225. END FUNCTION
1226.  
1227. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1228. FUNCTION SL_GET_DISTANCE_TO_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER) '                                                                                            SL_GET_DISTANCE_TO_POINT
1229.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1230.  
1231.     ' declare global variables
1232.  
1233.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1234.  
1235.     'perform error checks
1236.  
1237.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1238.         SL_ERROR "SL_GET_DISTANCE_TO_POINT", 1, "" '                                                    no, report error to programmer
1239.     END IF
1240.  
1241.     SL_GET_DISTANCE_TO_POINT = SL_GET_DISTANCE_POINT_TO_POINT(SL_sprite(handle).x.int, SL_sprite(handle).y.int, x, y) ' return distance to point
1242.  
1243. END FUNCTION
1244.  
1245. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1246. FUNCTION SL_GET_ANGLE_POINT_TO_POINT (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER) '                                                                         SL_GET_ANGLE_POINT_TO_POINT
1247.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1248.  
1249.     'declare local variables
1250.  
1251.     DIM angle AS INTEGER '              angle from first x,y location to second x,y location
1252.  
1253.     IF y1 = y2 THEN '                                                                                   both y values same?
1254.         IF x1 = x2 THEN '                                                                               yes, both x values same?
1255.             EXIT FUNCTION '                                                                             yes, there is no angle (0), leave
1256.         END IF
1257.         IF x2 > x1 THEN '                                                                               is second x to the right of first x?
1258.             SL_GET_ANGLE_POINT_TO_POINT = 90 '                                                          yes, the angle must be 90 degrees
1259.         ELSE '                                                                                          no, second x is to the left of first x
1260.             SL_GET_ANGLE_POINT_TO_POINT = 270 '                                                         the angle must be 270 degrees
1261.         END IF
1262.         EXIT FUNCTION '                                                                                 leave function, angle computed
1263.     END IF
1264.     IF x1 = x2 THEN '                                                                                   both x values same?
1265.         IF y2 > y1 THEN '                                                                               yes, is second y lower than first y?
1266.             SL_GET_ANGLE_POINT_TO_POINT = 180 '                                                         yes, the angle must be 180
1267.         END IF
1268.         EXIT FUNCTION '                                                                                 leave function, angle computed (angle is 0 if no calculation done)
1269.     END IF
1270.     angle = ATN((x2 - x1) / (y2 - y1)) * -57.2957795131 '                                               calculate initial angle
1271.     IF y2 < y1 THEN '                                                                                   is second y higher than first y?
1272.         IF x2 > x1 THEN '                                                                               yes, is second x to right of first x?
1273.             SL_GET_ANGLE_POINT_TO_POINT = angle '                                                       yes, angle needs no adjustment
1274.         ELSE '                                                                                          no, second x is to left of first x
1275.             SL_GET_ANGLE_POINT_TO_POINT = angle + 360 '                                                 adjust angle accordingly
1276.         END IF
1277.     ELSE '                                                                                              no, second y is lower than first y
1278.         SL_GET_ANGLE_POINT_TO_POINT = angle + 180 '                                                     adjust angle accordingly
1279.     END IF
1280.  
1281. END FUNCTION
1282.  
1283. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1284. FUNCTION SL_GET_ANGLE_TO_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                       SL_GET_ANGLE_TO_SPRITE
1285.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1286.  
1287.     ' declare global variables
1288.  
1289.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1290.  
1291.     'perform error checks
1292.  
1293.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
1294.         SL_ERROR "SL_GET_ANGLE_TO_SPRITE", 1, "" '                                                      no, report error to programmer
1295.     END IF
1296.  
1297.     SL_GET_ANGLE_TO_SPRITE = SL_GET_ANGLE_POINT_TO_POINT(SL_sprite(handle1).x.int, SL_sprite(handle1).y.int, _
1298.                                                          SL_sprite(handle2).x.int, SL_sprite(handle2).y.int) ' return angle to sprite 2
1299.  
1300. END FUNCTION
1301.  
1302. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1303. FUNCTION SL_GET_ANGLE_FROM_SPRITE (handle1 AS INTEGER, handle2 AS INTEGER) '                                                                                                   SL_GET_ANGLE_FROM_SPRITE
1304.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1305.  
1306.     ' declare global variables
1307.  
1308.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1309.  
1310.     'perform error checks
1311.  
1312.     IF (NOT SL_VALID_SPRITE(handle1)) OR (NOT SL_VALID_SPRITE(handle2)) THEN '                          are these valid sprites?
1313.         SL_ERROR "SL_GET_ANGLE_FROM_SPRITE", 1, "" '                                                    no, report error to programmer
1314.     END IF
1315.  
1316.     SL_GET_ANGLE_FROM_SPRITE = SL_GET_ANGLE_POINT_TO_POINT(SL_sprite(handle2).x.int, SL_sprite(handle2).y.int, _
1317.                                                            SL_sprite(handle1).x.int, SL_sprite(handle1).y.int) '  return angle from sprite 2
1318.  
1319. END FUNCTION
1320.  
1321. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1322. FUNCTION SL_GET_ANGLE_TO_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER) '                                                                                                  SL_GET_ANGLE_TO_POINT
1323.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1324.  
1325.     ' declare global variables
1326.  
1327.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1328.  
1329.     'perform error checks
1330.  
1331.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1332.         SL_ERROR "SL_GET_ANGLE_TO_POINT", 1, "" '                                                       no, report error to programmer
1333.     END IF
1334.  
1335.     SL_GET_ANGLE_TO_POINT = SL_GET_ANGLE_POINT_TO_POINT(SL_sprite(handle).x.int, SL_sprite(handle).y.int, x, y) ' return angle to point x,y
1336.  
1337. END FUNCTION
1338.  
1339. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1340. FUNCTION SL_GET_ANGLE_FROM_POINT (handle AS INTEGER, x AS INTEGER, y AS INTEGER) '                                                                                              SL_GET_ANGLE_FROM_POINT
1341.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1342.  
1343.     ' declare global variables
1344.  
1345.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1346.  
1347.     'perform error checks
1348.  
1349.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1350.         SL_ERROR "SL_GET_ANGLE_FROM_POINT", 1, "" '                                                     no, report error to programmer
1351.     END IF
1352.  
1353.     SL_GET_ANGLE_FROM_POINT = SL_GET_ANGLE_POINT_TO_POINT(x, y, SL_sprite(handle).x.int, SL_sprite(handle).y.int) 'return angle from point x,y
1354.  
1355. END FUNCTION
1356.  
1357. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1358. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1359. '                                                                       ----------==========                 ==========----------
1360. '                                                                       ----------========== SPRITE ROUTINES ==========----------
1361. '                                                                       ----------==========                 ==========----------
1362. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1363. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1364.  
1365. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1366. FUNCTION SL_COPY_SPRITE (handle AS INTEGER) '                                                                                                                                            SL_COPY_SPRITE
1367.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1368.  
1369.     ' declare global variables
1370.  
1371.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1372.  
1373.     ' declare local variables
1374.  
1375.     DIM newhandle AS INTEGER '          handle of copied sprite
1376.  
1377.     ' perform error checks
1378.  
1379.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1380.         SL_ERROR "SL_COPY_SPRITE", 1, "" '                                                              no, report error to programmer
1381.     END IF
1382.  
1383.     newhandle = 0 '                                                                                     initialize new handle counter
1384.  
1385.     ' increase sprite array's size if needed
1386.  
1387.     DO '                                                                                                look for next available handle
1388.         newhandle = newhandle + 1 '                                                                     increment to next handle value
1389.     LOOP UNTIL (NOT SL_sprite(newhandle).inuse) OR newhandle = UBOUND(SL_sprite) '                      stop looking when valid handle found
1390.     IF SL_sprite(newhandle).inuse THEN '                                                                is the last array element in use?
1391.         newhandle = newhandle + 1 '                                                                     yes, increment to next handle value
1392.         REDIM _PRESERVE SL_sprite(newhandle) AS SL_SPRITE '                                             increase the size of the sprite array
1393.     END IF
1394.  
1395.     ' copy new sprite
1396.  
1397.     SL_sprite(newhandle) = SL_sprite(handle) '                                                          copy entire sprite contents
1398.     SL_sprite(newhandle).gfx.sprite = _COPYIMAGE(SL_sprite(handle).gfx.sprite, 33) '                    create an actual copy of the hardware sprite
1399.     SL_sprite(newhandle).gfx.image = _COPYIMAGE(SL_sprite(handle).gfx.image, 32) '                      create an actual copy of the software image
1400.     IF SL_sprite(handle).gfx.mask THEN '                                                                does the original contain a mask image?
1401.         SL_sprite(newhandle).gfx.mask = _COPYIMAGE(SL_sprite(handle).gfx.mask, 32) '                    yes, create an actual copy of the software mask image
1402.     END IF
1403.  
1404.     SL_COPY_SPRITE = newhandle '                                                                        return new sprite's handle pointer
1405.  
1406. END FUNCTION
1407.  
1408. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1409. SUB SL_STAMP_SPRITE (x AS INTEGER, y AS INTEGER, sheet AS INTEGER, column AS INTEGER, row AS INTEGER, degrees AS INTEGER, flip AS INTEGER, zoom AS INTEGER) '                           SL_STAMP_SPRITE
1410.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1411.  
1412.     ' declare global variables
1413.  
1414.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
1415.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1416.  
1417.     ' declare local variables
1418.  
1419.     DIM tempsprite AS LONG '            temporary sprite to stamp
1420.     DIM degree AS INTEGER '             rotation degree passed in
1421.  
1422.     ' set local variables
1423.  
1424.     degree = SL_FIX_DEGREES(degrees) '                                                                  get rotation degree passed in
1425.  
1426.     ' perform error checks
1427.  
1428.     IF NOT SL_VALID_SHEET(sheet) THEN '                                                                 is this a valid sheet?
1429.         SL_ERROR "SL_STAMP_SPRITE", 5, "" '                                                             no, report error to programmer
1430.     END IF
1431.     IF column > UBOUND(SL_sheet, 2) OR row > UBOUND(SL_sheet, 3) OR row < 1 OR column < 1 THEN '        valid row and column requested?
1432.         SL_ERROR "SL_STAMP_SPRITE", 6, "" '                                                             no, report error to programmer
1433.     END IF
1434.     IF flip < 0 OR flip > 3 THEN '                                                                      valid flip behavior requested?
1435.         SL_ERROR "SL_STAMP_SPRITE", 3, "" '                                                             no, report error to programmer
1436.     END IF
1437.     IF zoom < 1 THEN '                                                                                  valid zoom level requested?
1438.         SL_ERROR "SL_STAMP_SPRITE", 4, "" '                                                             no, report error to programmer
1439.     END IF
1440.  
1441.     tempsprite = SL_NEW_SPRITE(sheet, column, row, 0, 0) '                                              create new temporary sprite
1442.     SL_sprite(tempsprite).rotation.speed = degree '                                                     set speed of rotation
1443.     SL_sprite(tempsprite).flip = flip '                                                                 set flipping behavior
1444.     SL_sprite(tempsprite).zoom = zoom '                                                                 set zoom level
1445.     SL_PUT_SPRITE x, y, tempsprite '                                                                    place sprite on current destination
1446.     SL_FREE_SPRITE tempsprite '                                                                         temporary sprite no longer needed
1447.  
1448. END SUB
1449.  
1450. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1451. SUB SL_UPDATE_AUTO_SPRITES () '                                                                                                                                                  SL_UPDATE_AUTO_SPRITES
1452.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1453.  
1454.     ' declare global variables
1455.  
1456.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1457.     SHARED SL_framerate AS INTEGER '    global frame rate
1458.  
1459.     ' declare local variables
1460.  
1461.     DIM handle AS INTEGER '             handle of sprite
1462.     DIM nextcell AS SINGLE '            draw or skip next animation cell
1463.  
1464.     ' local variable setup
1465.  
1466.     handle = 0 '                                                                                        initialize handle counter
1467.  
1468.     DO '                                                                                                cycle through all sprite indexes
1469.         handle = handle + 1 '                                                                           increment to next sprite handle
1470.         IF SL_sprite(handle).inuse AND (SL_sprite(handle).motion.auto OR _
1471.                                         SL_sprite(handle).rotation.auto OR _
1472.                                         SL_sprite(handle).anim.auto) THEN '                             is this sprite being used and automagically controlled?
1473.  
1474.             ' auto motion
1475.  
1476.             IF SL_sprite(handle).motion.auto THEN '                                                     yes, is auto motion enabled?
1477.                 SL_sprite(handle).x.real = SL_sprite(handle).x.real + SL_sprite(handle).x.dir '         yes, update x location
1478.                 SL_sprite(handle).y.real = SL_sprite(handle).y.real + SL_sprite(handle).y.dir '         update y location
1479.             END IF
1480.  
1481.             ' auto rotation
1482.  
1483.             IF SL_sprite(handle).rotation.auto THEN '                                                   is auto rotation enabled?
1484.                 SL_sprite(handle).rotation.angle = SL_FIX_DEGREES(SL_sprite(handle).rotation.angle_
1485.                                                                 + SL_sprite(handle).rotation.speed) '   yes, rotate sprite to next degree angle
1486.             END IF
1487.  
1488.             ' auto animation
1489.  
1490.             IF SL_sprite(handle).anim.auto THEN '                                                       is auto animation enabled?
1491.                 IF SL_sprite(handle).anim.skip = 0 THEN '                                               yes, always go to next cell?
1492.                     nextcell = -1 '                                                             (TRUE)  yes, draw next cell
1493.                 ELSE '                                                                                  no
1494.  
1495.                     ' decide to draw or skip next cell
1496.  
1497.                     SL_sprite(handle).anim.frame = SL_sprite(handle).anim.frame + 1 '                   increment frame counter
1498.                     IF SL_sprite(handle).anim.skip = SL_sprite(handle).anim.frame THEN '                time to skip or go to next cell?
1499.                         SL_sprite(handle).anim.frame = 0 '                                              yes, reset the frame counter
1500.                         IF SL_sprite(handle).anim.framerate >= SL_framerate \ 2 THEN '                  should this cell be skipped?
1501.                             nextcell = 0 '                                                     (FALSE)  yes, skip next cell
1502.                         ELSE '                                                                          no
1503.                             nextcell = -1 '                                                     (TRUE)  go to next cell
1504.                         END IF
1505.                     ELSEIF SL_sprite(handle).anim.framerate >= SL_framerate \ 2 THEN '                  no, is sprite frame rate equal or greater than half global frame rate?
1506.                         nextcell = -1 '                                                                 yes, go to next cell
1507.                     END IF
1508.                 END IF
1509.  
1510.                 ' draw next cell
1511.  
1512.                 IF nextcell THEN '                                                                      update animation cell?
1513.                     SELECT CASE SL_sprite(handle).anim.mode '                                           which animation mode is this sprite using?
1514.                         CASE 0 '                                                          (SL_FORWARD)  move forward through the cells
1515.                             SL_sprite(handle).anim.cell = SL_sprite(handle).anim.cell + 1 '             increment animation cell
1516.                             IF SL_sprite(handle).anim.cell > SL_sprite(handle).anim.cellto THEN '       passed the last cell?
1517.                                 SL_sprite(handle).anim.cell = SL_sprite(handle).anim.cellfrom '         yes, go back to first cell
1518.                             END IF
1519.                         CASE 1 '                                                         (SL_BACKWARD)  move backward through the cells
1520.                             SL_sprite(handle).anim.cell = SL_sprite(handle).anim.cell - 1 '             decrement animation cell
1521.                             IF SL_sprite(handle).anim.cell < SL_sprite(handle).anim.cellfrom THEN '     passed the first cell?
1522.                                 SL_sprite(handle).anim.cell = SL_sprite(handle).anim.cellto '           yes, go back to last cell
1523.                             END IF
1524.                         CASE 2 '                                                        (SL_BACKFORTH)  ping-pong back and forth through the cells
1525.                             SL_sprite(handle).anim.cell = SL_sprite(handle).anim.cell + SL_sprite(handle).anim.dir ' increment/decrement animation cell
1526.                             IF SL_sprite(handle).anim.cell = SL_sprite(handle).anim.cellto OR _
1527.                                SL_sprite(handle).anim.cell = SL_sprite(handle).anim.cellfrom THEN '     is this the first or last cell?
1528.                                 SL_sprite(handle).anim.dir = -SL_sprite(handle).anim.dir '              yes, reverse animation direction
1529.                             END IF
1530.                     END SELECT
1531.                     SL_sprite(handle).column = SL_GET_COLUMN(SL_sprite(handle).sheet, SL_sprite(handle).anim.cell) ' get cell column on sheet
1532.                     SL_sprite(handle).row = SL_GET_ROW(SL_sprite(handle).sheet, SL_sprite(handle).anim.cell) '       get cell row on sheet
1533.                 END IF
1534.             END IF
1535.             SL_PUT_SPRITE SL_sprite(handle).x.real, SL_sprite(handle).y.real, handle '                  update sprite motion location, rotation, and animation
1536.         END IF
1537.     LOOP UNTIL handle = UBOUND(SL_sprite) '                                                             leave when all indexes checked
1538.  
1539. END SUB
1540.  
1541. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1542. SUB SL_SET_SOFTWARE (handle AS INTEGER, restores AS INTEGER) '                                                                                                                          SL_SET_SOFTWARE
1543.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1544.  
1545.     ' declare global variables
1546.  
1547.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1548.  
1549.     'perform error checks
1550.  
1551.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1552.         SL_ERROR "SL_SET_SOFTWARE", 1, "" '                                                             no, report error to programmer
1553.     END IF
1554.     IF restores < -1 OR restores > 0 THEN '                                                             valid background restoration behavior requested?
1555.         SL_ERROR "SL_SET_SOFTWARE", 2, "" '                                                             no, report error to programmer
1556.     END IF
1557.  
1558.     SL_sprite(handle).software = -1 '                                                    (SL_SOFTWARE)  set sprite to software mode
1559.     SL_sprite(handle).restore = restores '                                       (SL_SAVE & SL_NOSAVE)  set background saving behavior
1560.  
1561. END SUB
1562.  
1563. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1564. SUB SL_SET_HARDWARE (handle AS INTEGER) '                                                                                                                                               SL_SET_HARDWARE
1565.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1566.  
1567.     ' declare global variables
1568.  
1569.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1570.  
1571.     'perform error checks
1572.  
1573.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1574.         SL_ERROR "SL_SET_HARDWARE", 1, "" '                                                             no, report error to programmer
1575.     END IF
1576.  
1577.     SL_sprite(handle).software = 0 '                                                     (SL_HARDWARE)  set sprite to hardware mode
1578.  
1579. END SUB
1580.  
1581. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1582. SUB SL_SET_ZOOM (handle AS INTEGER, zoom AS INTEGER) '                                                                                                                                      SL_SET_ZOOM
1583.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1584.  
1585.     ' declare global variables
1586.  
1587.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1588.  
1589.     IF zoom = -32767 THEN '                                                                 (SL_RESET)  reset zoom level?
1590.         SL_sprite(handle).zoom = 100 '                                                                  yes, reset level to normal
1591.         EXIT SUB '                                                                                      leave subroutine
1592.     END IF
1593.  
1594.     ' perform error checks
1595.  
1596.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1597.         SL_ERROR "SL_SET_ZOOM", 1, "" '                                                                 no, report error to programmer
1598.     END IF
1599.     IF zoom < 1 THEN '                                                                                  valid zoom level requested?
1600.         SL_ERROR "SL_SET_ZOOM", 4, "" '                                                                 no, report error to programmer
1601.     END IF
1602.  
1603.     SL_sprite(handle).zoom = zoom '                                                                     set zoom level
1604.  
1605. END SUB
1606.  
1607.  
1608. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1609. SUB SL_FLIP_SPRITE (handle AS INTEGER, flip AS INTEGER) '                                                                                                                                SL_FLIP_SPRITE
1610.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1611.  
1612.     ' declare global variables
1613.  
1614.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1615.  
1616.     ' perform error checks
1617.  
1618.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1619.         SL_ERROR "SL_FLIP_SPRITE", 1, "" '                                                              no, report error to programmer
1620.     END IF
1621.     IF flip < 0 OR flip > 3 THEN '                                                                      valid flip behavior requested?
1622.         SL_ERROR "SL_FLIP_SPRITE", 3, "" '                                                              no, report error to programmer
1623.     END IF
1624.  
1625.     IF flip = -32767 THEN '                                                                 (SL_RESET)  reset flipping behavior?
1626.         SL_sprite(handle).flip = 0 '                                                       (SL_NOFLIP)  yes, reset flip value
1627.     ELSE
1628.         SL_sprite(handle).flip = flip '           (SL_NOFLIP, SL_HORIZONTAL, SL_VERTICAL, SL_FLIPBOTH)  set flipping behavior
1629.     END IF
1630.  
1631. END SUB
1632.  
1633. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1634. SUB SL_PUT_SPRITE (x AS SINGLE, y AS SINGLE, handle AS INTEGER) '                                                                                                                         SL_PUT_SPRITE
1635.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1636.  
1637.     ' declare global variables
1638.  
1639.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
1640.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1641.     SHARED SL_rotate() AS SL_ROTATE '   precalculated rotation table
1642.  
1643.     ' declare local variables
1644.  
1645.     DIM xa AS INTEGER '                 actual x location of sprite on screen
1646.     DIM ya AS INTEGER '                 actual y location of sprite on screen
1647.     DIM sw AS INTEGER '                 width of sprite to be drawn
1648.     DIM sh AS INTEGER '                 height of sprite to be drawn
1649.     DIM rw AS INTEGER '                 precalculated rotated sprite width
1650.     DIM rh AS INTEGER '                 precalculated rotated sprite height
1651.     DIM px0 AS INTEGER '                precalculated triangular coordinates
1652.     DIM px1 AS INTEGER
1653.     DIM px2 AS INTEGER
1654.     DIM px3 AS INTEGER
1655.     DIM py0 AS INTEGER
1656.     DIM py1 AS INTEGER
1657.     DIM py2 AS INTEGER
1658.     DIM py3 AS INTEGER
1659.     DIM image AS LONG '                 software sprite image
1660.     DIM mask AS LONG '                  software sprite image mask
1661.     DIM sprite AS LONG '                hardware sprite image
1662.  
1663.     ' perform error checks
1664.  
1665.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1666.         SL_ERROR "SL_PUT_SPRITE", 1, "" '                                                               no, report error to programmer
1667.     END IF
1668.  
1669.     'local variable setup
1670.  
1671.     SL_sprite(handle).x.real = x '                                                            (SINGLE)  save requested x center location
1672.     SL_sprite(handle).y.real = y '                                                            (SINGLE)  save requested y center location
1673.     SL_sprite(handle).x.int = INT(x) '                                                       (INTEGER)  save screen x center location
1674.     SL_sprite(handle).y.int = INT(y) '                                                       (INTEGER)  save screen y center location
1675.     image = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).column, SL_sprite(handle).row).image '  get image from sprite sheet
1676.     mask = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).column, SL_sprite(handle).row).mask '    get mask from sprite sheet
1677.     sw = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).column, SL_sprite(handle).row).swidth '    get default sprite width from sprite sheet
1678.     sh = SL_sheet(SL_sprite(handle).sheet, SL_sprite(handle).column, SL_sprite(handle).row).sheight '   get default sprite height from sprite sheet
1679.  
1680.     'free existing images
1681.  
1682.     _FREEIMAGE SL_sprite(handle).gfx.sprite '                                                           free hardware sprite image
1683.     _FREEIMAGE SL_sprite(handle).gfx.image '                                                            free software sprite image
1684.     IF SL_sprite(handle).gfx.mask THEN _FREEIMAGE SL_sprite(handle).gfx.mask '                          free software mask image
1685.     IF SL_sprite(handle).restore THEN '                                                                 is sprite holding a background image?
1686.         IF SL_sprite(handle).gfx.back THEN '                                                            yes, has a background image been saved yet?
1687.             _PUTIMAGE (SL_sprite(handle).x.back, SL_sprite(handle).y.back), SL_sprite(handle).gfx.back 'yes, replace background with image
1688.             _FREEIMAGE SL_sprite(handle).gfx.back '                                                     free hardware background image
1689.         END IF
1690.         IF NOT SL_sprite(handle).software THEN '                                                        was the sprite type changed?
1691.             SL_sprite(handle).restore = 0 '                                                (SL_NOSAVE)  yes, stop saving background
1692.         END IF
1693.     END IF
1694.  
1695.     'adjust sprite rotation if needed
1696.  
1697.     IF SL_sprite(handle).rotation.angle THEN '                                                          rotate sprite?
1698.         px0 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).px0 '                yes, get precalculated triangular coordinates
1699.         px1 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).px1
1700.         px2 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).px2
1701.         px3 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).px3
1702.         py0 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).py0
1703.         py1 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).py1
1704.         py2 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).py2
1705.         py3 = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).py3
1706.         rw = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).rwidth '              get precalculated rotated sprite width
1707.         rh = SL_rotate(SL_sprite(handle).sheet, SL_sprite(handle).rotation.angle).rheight '             get precalculated rotated sprite height
1708.         SL_sprite(handle).gfx.image = _NEWIMAGE(rw, rh, 32) '                                           create image using precalculated width/height
1709.         _MAPTRIANGLE (0, 0)-(0, sh - 1)-(sw - 1, sh - 1), image TO _
1710.                      (px0, py0)-(px1, py1)-(px2, py2), SL_sprite(handle).gfx.image '                    map rotated sprite onto image
1711.         _MAPTRIANGLE (0, 0)-(sw - 1, 0)-(sw - 1, sh - 1), image TO _
1712.                      (px0, py0)-(px3, py3)-(px2, py2), SL_sprite(handle).gfx.image
1713.         IF SL_sprite(handle).transparency THEN '                                                        does this sprite have a mask?
1714.             SL_sprite(handle).gfx.mask = _NEWIMAGE(rw, rh, 32) '                                        yes, create mask image
1715.             _MAPTRIANGLE (0, 0)-(0, sh - 1)-(sw - 1, sh - 1), mask TO _
1716.                          (px0, py0)-(px1, py1)-(px2, py2), SL_sprite(handle).gfx.mask '                 map rotated mask onto image
1717.             _MAPTRIANGLE (0, 0)-(sw - 1, 0)-(sw - 1, sh - 1), mask TO _
1718.                          (px0, py0)-(px3, py3)-(px2, py2), SL_sprite(handle).gfx.mask
1719.         END IF
1720.         sw = rw '                                                                                       save new sprite width
1721.         sh = rh '                                                                                       save new sprite height
1722.     ELSE '                                                                                              no rotation needed
1723.         SL_sprite(handle).gfx.image = _COPYIMAGE(image, 32) '                                           copy software image from sprite sheet
1724.         IF SL_sprite(handle).transparency THEN '                                                        does this sprite have a mask?
1725.             SL_sprite(handle).gfx.mask = _COPYIMAGE(mask, 32) '                                         yes, copy software mask from sprite sheet
1726.         END IF
1727.     END IF
1728.  
1729.     'create hardware sprite
1730.  
1731.     SL_sprite(handle).gfx.sprite = _COPYIMAGE(SL_sprite(handle).gfx.image, 33) '                        create hardware sprite of image
1732.  
1733.     'adjust zoom level if needed
1734.  
1735.     IF SL_sprite(handle).zoom <> 100 THEN '                                                             zoom sprite in/out?
1736.         sw = sw * SL_sprite(handle).zoom \ 100 '                                                        yes, calculate new zoom width
1737.         sh = sh * SL_sprite(handle).zoom \ 100 '                                                        calculate new zoom height
1738.     END IF
1739.  
1740.     'calculate actual sprite screen coordinates
1741.  
1742.     xa = SL_sprite(handle).x.int - sw \ 2 '                                                             calculate actual screen x location from center
1743.     ya = SL_sprite(handle).y.int - sh \ 2 '                                                             calculate actual screen y location from center
1744.     SL_sprite(handle).x.actual = xa '                                                        (INTEGER)  save actual screen x location
1745.     SL_sprite(handle).y.actual = ya '                                                        (INTEGER)  save actual screen y location
1746.  
1747.     'get background image before placing sprite if necessary
1748.  
1749.     IF SL_sprite(handle).restore THEN '                                                                 is this sprite storing background images?
1750.         SL_sprite(handle).gfx.back = _NEWIMAGE(sw, sh, 32) '                                            yes, create background image
1751.         _PUTIMAGE , _DEST, SL_sprite(handle).gfx.back, (xa, ya)-(xa + sw - 1, ya + sh - 1) '            get background area from current destination
1752.         SL_sprite(handle).x.back = xa '                                                                 record background x location
1753.         SL_sprite(handle).y.back = ya '                                                                 record background y location
1754.     END IF
1755.  
1756.     'use hardware or software image
1757.  
1758.     IF SL_sprite(handle).software THEN '                                                                is this a software sprite?
1759.         sprite = SL_sprite(handle).gfx.image '                                                          yes, use the software image
1760.     ELSE '                                                                                              no
1761.         sprite = SL_sprite(handle).gfx.sprite '                                                         use the hardware image
1762.     END IF
1763.  
1764.     ' place sprite on the current destination with desired flip method
1765.  
1766.     SELECT CASE SL_sprite(handle).flip '                                                                which flipping style is selected?
1767.         CASE 0 '                                                                           (SL_NOFLIP)  normal, no flipping
1768.             _PUTIMAGE (xa, ya)-(xa + sw - 1, ya + sh - 1), sprite '                                     draw normal sprite
1769.         CASE 1 '                                                                       (SL_HORIZONTAL)  flip horizontally
1770.             _PUTIMAGE (xa + sw - 1, ya)-(xa, ya + sh - 1), sprite '                                     draw horizontally flipped sprite
1771.         CASE 2 '                                                                         (SL_VERTICAL)  flip vertically
1772.             _PUTIMAGE (xa, ya + sh - 1)-(xa + sw - 1, ya), sprite '                                     draw vertically flipped sprite
1773.         CASE 3 '                                                                         (SL_FLIPBOTH)  flip vertically and horizontally
1774.             _PUTIMAGE (xa + sw - 1, ya + sh - 1)-(xa, ya), sprite '                                     draw horizontally and vertically flipped sprite
1775.     END SELECT
1776.  
1777. END SUB
1778.  
1779. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1780. FUNCTION SL_NEW_SPRITE (sheet AS INTEGER, column AS INTEGER, row AS INTEGER, software AS INTEGER, restores AS INTEGER) '                                                                  SL_NEW_SPRITE
1781.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1782.  
1783.     ' declare global variables
1784.  
1785.     SHARED SL_sheet() AS SL_SHEET '     master sprite sheet array
1786.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1787.  
1788.     ' declare local variables
1789.  
1790.     DIM handle AS INTEGER '             handle (pointer) number of new sprite
1791.  
1792.     ' perform error checks
1793.  
1794.     IF NOT SL_VALID_SHEET(sheet) THEN '                                                                 is this a valid sprite sheet?
1795.         SL_ERROR "SL_NEW_SPRITE", 5, "" '                                                               no, report error to programmer
1796.     END IF
1797.     IF column > UBOUND(SL_sheet, 2) OR row > UBOUND(SL_sheet, 3) OR row < 1 OR column < 1 THEN '        valid row and column requested?
1798.         SL_ERROR "SL_NEW_SPRITE", 6, "" '                                                               no, report error to programmer
1799.     END IF
1800.     IF restores < -1 OR restores > 0 THEN '                                                             valid background restoration behavior requested?
1801.         SL_ERROR "SL_NEW_SPRITE", 2, "" '                                                               no, report error to programmer
1802.     END IF
1803.     IF software < -1 OR software > 0 THEN '                                                             valid hardware / software setting requested?
1804.         SL_ERROR "SL_NEW_SPRITE", 112, "" '                                                             no, report error to programmer
1805.     END IF
1806.     IF (NOT software) AND restores THEN '                                                               hardware image that restores background?
1807.         SL_ERROR "SL_NEW_SPRITE", 113, "" '                                                             yes, report error to programmer
1808.     END IF
1809.  
1810.     ' local variable setup
1811.  
1812.     handle = 0 '                                                                                        initialize handle value
1813.  
1814.     ' increase sprite array's size if needed
1815.  
1816.     DO '                                                                                                look for next available handle
1817.         handle = handle + 1 '                                                                           increment to next handle value
1818.     LOOP UNTIL (NOT SL_sprite(handle).inuse) OR handle = UBOUND(SL_sprite) '                            stop looking when valid handle found
1819.     IF SL_sprite(handle).inuse THEN '                                                                   is the last array element in use?
1820.         handle = handle + 1 '                                                                           yes, increment to next handle value
1821.         REDIM _PRESERVE SL_sprite(handle) AS SL_SPRITE '                                                increase the size of the sprite array
1822.     END IF
1823.  
1824.     ' populate sprite array, general settings
1825.  
1826.     SL_sprite(handle).inuse = -1 '                                                              (TRUE)  mark array index as in use
1827.     SL_sprite(handle).sheet = sheet '                                                                   point to sheet where sprite resides
1828.     SL_sprite(handle).column = column '                                                                 point to column on sheet where sprite located
1829.     SL_sprite(handle).row = row '                                                                       point to row on sheet where sprite located
1830.     SL_sprite(handle).software = software '                                (SL_SOFTWARE & SL_HARDWARE)  sprite treated as software or hardware image
1831.     SL_sprite(handle).restore = restores '                                       (SL_SAVE & SL_NOSAVE)  background restore behavior of sprite
1832.     SL_sprite(handle).swidth = SL_sheet(sheet, column, row).swidth '                                    get width of sprite
1833.     SL_sprite(handle).sheight = SL_sheet(sheet, column, row).sheight '                                  get height of sprite
1834.     SL_sprite(handle).collx1 = SL_sheet(sheet, column, row).collx1 '                                    get sprite's collision box boundaries
1835.     SL_sprite(handle).colly1 = SL_sheet(sheet, column, row).colly1
1836.     SL_sprite(handle).collx2 = SL_sheet(sheet, column, row).collx2
1837.     SL_sprite(handle).colly2 = SL_sheet(sheet, column, row).colly2
1838.     SL_sprite(handle).flip = 0 '                                                                        no sprite flipping
1839.     SL_sprite(handle).zoom = 100 '                                                                      zoom normal at 100%
1840.     SL_sprite(handle).score = 0 '                                                                       no point score
1841.  
1842.     ' animation settings
1843.  
1844.     SL_sprite(handle).anim.cell = SL_sheet(sheet, column, row).cell '                                   the animation cell this sprite is in
1845.     SL_sprite(handle).anim.cellfrom = 0 '                                                               reset sprite beginning animation cell
1846.     SL_sprite(handle).anim.cellto = 0 '                                                                 reset sprite ending animation cell
1847.     SL_sprite(handle).anim.dir = 0 '                           (SL_FORWARD, SL_BACKWARD & SLBACKFORTH)  reset sprite animation direction
1848.     SL_sprite(handle).anim.mode = 0 '                                                                   reset sprite animation mode
1849.     SL_sprite(handle).anim.frame = 0 '                                                                  reset sprite animation frame counter
1850.     SL_sprite(handle).anim.skip = 0 '                                                                   reset sprite animation skip rate
1851.     SL_sprite(handle).anim.auto = 0 '                                                          (FALSE)  sprite has no auto animation
1852.  
1853.     ' x,y location settings
1854.  
1855.     SL_sprite(handle).x.real = 0 '                                                                      reset x location of sprite (center x)
1856.     SL_sprite(handle).y.real = 0 '                                                                      reset y location of sprite (center y)
1857.     SL_sprite(handle).x.int = 0 '                                                                       reset x location of sprite on screen INT(xreal) (center x)
1858.     SL_sprite(handle).y.int = 0 '                                                                       reset y location of sprite on screen INT(yreal) (center y)
1859.     SL_sprite(handle).x.actual = 0 '                                                                    reset x location of sprite on screen (upper left x)
1860.     SL_sprite(handle).y.actual = 0 '                                                                    reset y location of sprite on screen (upper left y)
1861.     SL_sprite(handle).x.dir = 0 '                                                                       x direction during motion
1862.     SL_sprite(handle).y.dir = 0 '                                                                       y direction during motion
1863.  
1864.     ' graphics image settings
1865.  
1866.     SL_sprite(handle).gfx.back = 0 '                                                                    no background image saved yet
1867.     SL_sprite(handle).gfx.sprite = _COPYIMAGE(SL_sheet(sheet, column, row).image, 33) '                 create hardware sprite image
1868.     SL_sprite(handle).gfx.image = _COPYIMAGE(SL_sheet(sheet, column, row).image, 32) '                  copy software sprite image from sheet
1869.     IF SL_sheet(sheet, column, row).transparency THEN '                                                 does this sprite use transparency?
1870.         SL_sprite(handle).gfx.mask = _COPYIMAGE(SL_sheet(sheet, column, row).mask, 32) '                yes, copy software sprite mask image from sheet
1871.         SL_sprite(handle).transparency = -1 '                                                   (TRUE)  remember this sprite has a transparency layer
1872.     ELSE '                                                                                              no transparency
1873.         SL_sprite(handle).gfx.mask = 0 '                                                                no mask will be brought in
1874.         SL_sprite(handle).transparency = 0 '                                                   (FALSE)  remember this sprite has no transparency layer
1875.     END IF
1876.  
1877.     ' rotation settings
1878.  
1879.     SL_sprite(handle).rotation.angle = 0 '                                                              no sprite rotation angle
1880.     SL_sprite(handle).rotation.speed = 0 '                                                              no spin rate
1881.     SL_sprite(handle).rotation.auto = 0 '                                                      (FALSE)  auto rotation disabled
1882.  
1883.     ' motion settings
1884.  
1885.     SL_sprite(handle).motion.speed = 0 '                                                                speed during motion
1886.     SL_sprite(handle).motion.angle = 0 '                                                                direction during motion (0 - 359)
1887.     SL_sprite(handle).motion.auto = 0 '                                                        (FALSE)  auto motion disabled
1888.  
1889.     SL_NEW_SPRITE = handle '                                                                            return pointer value of new sprite
1890.  
1891. END FUNCTION
1892.  
1893. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1894. SUB SL_FREE_SPRITE (handle AS INTEGER) '                                                                                                                                                 SL_FREE_SPRITE
1895.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1896.  
1897.     ' declare global variables
1898.  
1899.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1900.  
1901.     ' check for errors
1902.  
1903.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1904.         SL_ERROR "SL_FREE_SPRITE", 1, "" '                                                              no, report error to programmer
1905.     END IF
1906.  
1907.     ' restore background if this sprite saving background
1908.  
1909.     IF SL_sprite(handle).restore THEN '                                                                 is there a background image to restore?
1910.         _PUTIMAGE (SL_sprite(handle).x.back, SL_sprite(handle).y.back), SL_sprite(handle).gfx.back '    yes, restore the image
1911.         _FREEIMAGE SL_sprite(handle).gfx.back '                                                         free background image
1912.     END IF
1913.  
1914.     ' free all image data associated with sprite
1915.  
1916.     IF SL_sprite(handle).gfx.back THEN _FREEIMAGE SL_sprite(handle).gfx.back '                          free background image if present
1917.     IF SL_sprite(handle).gfx.mask THEN _FREEIMAGE SL_sprite(handle).gfx.mask '                          free sprite mask image if present
1918.     _FREEIMAGE SL_sprite(handle).gfx.sprite '                                                           free hardware sprite image
1919.     _FREEIMAGE SL_sprite(handle).gfx.image '                                                            free software sprite image
1920.  
1921.     IF (handle = UBOUND(sl_sprite)) AND (handle <> 1) THEN '                                            is handle the last element in array?
1922.         REDIM _PRESERVE SL_sprite(handle - 1) AS SL_SPRITE '                                            yes, remove index and resize array
1923.     ELSE '                                                                                              no, index somewhere else
1924.         SL_sprite(handle).inuse = 0 '                                                          (FALSE)  mark index as usable later
1925.     END IF
1926.  
1927. END SUB
1928.  
1929. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1930. FUNCTION SL_VALID_SPRITE (handle AS INTEGER) '                                                                                                                                         SL_VALID_SPRITE
1931.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1932.  
1933.     ' declare global variables
1934.  
1935.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1936.  
1937.     IF (handle > UBOUND(SL_SPRITE)) OR (NOT SL_sprite(handle).inuse) OR (handle < 1) THEN '              is this a valid sprite handle?
1938.         SL_VALID_SPRITE = 0 '                                                                   (FALSE)  no, return 0
1939.     ELSE '                                                                                               yes, it is valid
1940.         SL_VALID_SPRITE = -1 '                                                                   (TRUE)  return -1
1941.     END IF
1942.  
1943. END FUNCTION
1944.  
1945. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1946. SUB SL_SET_SCORE (handle AS INTEGER, score AS INTEGER) '                                                                                                                                   SL_SET_SCORE
1947.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1948.  
1949.     ' declare global variables
1950.  
1951.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1952.  
1953.     ' perform error checks
1954.  
1955.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1956.         SL_ERROR "SL_SET_SCORE", 1, "" '                                                                no, report error to programmer
1957.     END IF
1958.  
1959.     SL_sprite(handle).score = score '                                                                   set sprite score
1960.  
1961. END SUB
1962.  
1963. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1964. FUNCTION SL_GET_SCORE (handle AS INTEGER) '                                                                                                                                                SL_GET_SCORE
1965.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1966.  
1967.     ' declare global variables
1968.  
1969.     SHARED SL_sprite() AS SL_SPRITE '   master working sprite array
1970.  
1971.     ' perform error checks
1972.  
1973.     IF NOT SL_VALID_SPRITE(handle) THEN '                                                               is this a valid sprite?
1974.         SL_ERROR "SL_GET_SCORE", 1, "" '                                                                no, report error to programmer
1975.     END IF
1976.  
1977.     SL_GET_SCORE = SL_sprite(handle).score '                                                            return sprite score
1978.  
1979. END FUNCTION
1980.  
1981. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1982. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1983. '                                                                       ----------==========                ==========----------
1984. '                                                                       ----------========== SHEET ROUTINES ==========----------
1985. '                                                                       ----------==========                ==========----------
1986. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1987. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1988.  
1989. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1990. FUNCTION SL_NEW_SHEET (filename AS STRING, swidth AS INTEGER, sheight AS INTEGER, transparency AS INTEGER, transcolor AS _UNSIGNED LONG) '                                       SL_NEW_SHEET
1991.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
1992.  
1993.     ' declare global variables
1994.  
1995.     SHARED SL_sheet() AS SL_SHEET '    master sprite sheet array
1996.     SHARED SL_rotate() AS SL_ROTATE '  precalculated rotation table
1997.  
1998.     ' declare local variables
1999.  
2000.     DIM handle AS INTEGER '             handle (pointer) number of new sprite sheet
2001.     DIM x AS INTEGER '                  generic counter to cycle through sheet sprite columns
2002.     DIM y AS INTEGER '                  generic counter to cycle through sheet sprite rows
2003.     DIM x1 AS INTEGER '                 generic counter to cycle though sprite for collision boundaries and mask creation
2004.     DIM y1 AS INTEGER '                 generic ocunter to cycle though sprite for collision boundaries and mask creation
2005.     DIM osource AS LONG '               original source image before this function was called
2006.     DIM odest AS LONG '                 original destination image before this function was called
2007.     DIM pixel AS _UNSIGNED LONG '       pixel color at each coordinate in sprite sheet
2008.     DIM alpha AS _UNSIGNED LONG '       alpha level of current pixel
2009.     DIM top AS INTEGER '                upper boundary of sprite image
2010.     DIM bottom AS INTEGER '             lower boundary of sprite image
2011.     DIM left AS INTEGER '               left boundary of sprite image
2012.     DIM right AS INTEGER '              right boundary of sprite image
2013.     DIM sheetimage AS LONG '            sprite sheet image
2014.     DIM sheetwidth AS INTEGER '         width of sprite sheet in pixels
2015.     DIM sheetheight AS INTEGER '        height of sprite sheet in pixels
2016.     DIM rows AS INTEGER '               number of sprite rows contained on sheet
2017.     DIM columns AS INTEGER '            number of sprite columns contained on sheet
2018.     DIM clearcolor AS _UNSIGNED LONG '  transcolor passed in will be modified
2019.     DIM tempsprite AS LONG '            temporary sprite for _CLEARCOLOR detection
2020.     DIM px(3) AS SINGLE '               polar x coordinates of maptriangle *
2021.     DIM py(3) AS SINGLE '               polar y coordinates of maptriangle *
2022.     DIM sinr AS SINGLE '                sin rotation calculation           *  could all of these DOUBLEs
2023.     DIM cosr AS SINGLE '                cosine rotation claculation        *  be changed to SINGLEs and     <-------------------------------------- LOOK
2024.     DIM bx1 AS SINGLE '                 max boundaries of rotated sprite   *  still be accurate enough for
2025.     DIM bx2 AS SINGLE '                                                    *  _MAPTRIANGLE?
2026.     DIM by1 AS SINGLE '                                                    *
2027.     DIM by2 AS SINGLE '                                                    *
2028.     DIM x2 AS SINGLE '                  new computed polar coordinates     *
2029.     DIM y2 AS SINGLE '                                                     *
2030.  
2031.     ' perform error checks
2032.  
2033.     IF NOT _FILEEXISTS(filename) THEN '                                                                 does the sprite sheet exist?
2034.         SL_ERROR "SL_NEW_SHEET", 100, filename '                                                        no, report error to programmer
2035.     END IF
2036.     IF ABS(transparency) > 1 THEN '                                                                     valid transparency setting?
2037.         SL_ERROR "SL_NEW_SHEET", 101, "" '                                                              no, report error to programmer
2038.     END IF
2039.     IF swidth < 1 OR sheight < 1 THEN '                                                                 valid sprite width/height supplied?
2040.         SL_ERROR "SL_NEW_SHEET", 102, "" '                                                              no, report error to programmer
2041.     END IF
2042.     IF transparency = -1 AND UCASE$(RIGHT$(filename, 4)) <> ".PNG" THEN '                               wrong file type for transparency?
2043.         SL_ERROR "SL_NEW_SHEET", 103, UCASE$(RIGHT$(filename, 4)) '                                     yes, report error to programmer
2044.     END IF
2045.  
2046.     ' local variable setup
2047.  
2048.     sheetimage = _LOADIMAGE(filename, 32) '                                                             load sprite sheet file
2049.     sheetwidth = _WIDTH(sheetimage) '                                                                   get width of sheet
2050.     sheetheight = _HEIGHT(sheetimage) '                                                                 get height of sheet
2051.     columns = sheetwidth \ swidth '                                                                     get number of whole columns of sprites
2052.     rows = sheetheight \ sheight '                                                                      get number of whole rows of sprites
2053.     IF columns < 1 OR rows < 1 THEN '                                                                   at least one sprite column and row on sheet?
2054.         SL_ERROR "SL_NEW_SHEET", 104, "" '                                                              no, report error to programmer
2055.     END IF
2056.     osource = _SOURCE '                                                                                 remember current source image
2057.     odest = _DEST '                                                                                     remember current destination image
2058.     handle = 0 '                                                                                        initialize handle value
2059.     clearcolor = transcolor '                                                                           get background/transparent color passed in
2060.  
2061.     ' increase sheet array's 1st dimension if needed to create a new sprite sheet
2062.  
2063.     DO '                                                                                                look for the next available handle
2064.         handle = handle + 1 '                                                                           increment the handle value
2065.     LOOP UNTIL (NOT SL_sheet(handle, 0, 0).image) OR handle = UBOUND(SL_sheet) '                        stop looking when valid handle value found
2066.     IF SL_sheet(handle, 0, 0).image = -1 THEN '                                                 (TRUE)  is the last array element in use?
2067.         handle = handle + 1 '                                                                           yes, increment the handle value
2068.         REDIM _PRESERVE SL_sheet(handle, UBOUND(SL_sheet, 2), UBOUND(SL_sheet, 3)) AS SL_SHEET '        create new sheet in sprite array
2069.         REDIM _PRESERVE SL_rotate(handle, UBOUND(SL_rotate, 2)) AS SL_ROTATE
2070.     END IF
2071.  
2072.     ' increase sheet array's 2nd and 3rd dimensions if needed to match number of rows and columns
2073.  
2074.     IF columns > UBOUND(SL_sheet, 2) THEN '                                                             more columns in this sheet than others?
2075.         REDIM _PRESERVE SL_sheet(handle, columns, UBOUND(SL_sheet, 3)) AS SL_SHEET '                    yes, increase the array's 2nd dimension to match
2076.     END IF
2077.     IF rows > UBOUND(SL_sheet, 3) THEN '                                                                more rows in this sheet than others?
2078.         REDIM _PRESERVE SL_sheet(handle, UBOUND(SL_sheet, 2), rows) AS SL_SHEET '                       yes, increase the array's 3rd dimension to match
2079.     END IF
2080.  
2081.     ' the variables in SL_sheet(x, 0, 0) will serve a dual purpose
2082.     ' SL_sheet(x, 0, 0).image will contain either -1 (true) or 0 (false) to indicate the first dimension of the array is in use.
2083.     ' SL_sheet(x, 0, 0).swidth will contain the number of columns contained in the sheet (the array's 2nd dimension)
2084.     ' SL_sheet(x, 0, 0).sheight will contain the number of rows contained in the sheet (the array's 3rd dimension)
2085.  
2086.     SL_sheet(handle, 0, 0).image = -1 '                                                         (TRUE)  mark as in use
2087.     SL_sheet(handle, 0, 0).swidth = columns '                                                           remember number of columns in sheet
2088.     SL_sheet(handle, 0, 0).sheight = rows '                                                             remember number of rows in sheet
2089.  
2090.     ' identify transparency of sprite sheet if requested
2091.  
2092.     IF transparency = -1 THEN '                                                          (SL_USESHEET)  sheet have alpha channel?
2093.         x = 0 '                                                                                         yes, start at upper left x of sheet
2094.         y = 0 '                                                                                         start at upper left y of sheet
2095.         alpha = 255 '                                                                                   assume no alpha channel
2096.         _SOURCE sheetimage '                                                                            set sprite sheet image as source image
2097.         DO '                                                                                            start looping through the sheet's pixels
2098.             pixel = POINT(x, y) '                                                                       get the pixel's color attributes
2099.             alpha = _ALPHA32(pixel) '                                                                   get the alpha level (0 - 255)
2100.             IF alpha = 0 THEN EXIT DO '                                                                 if it is transparent then leave the loop
2101.             x = x + 1 '                                                                                 move right one pixel
2102.             IF x > sheetwidth THEN '                                                                    have we gone off the sheet?
2103.                 x = 0 '                                                                                 yes, reset back to the left beginning
2104.                 y = y + 1 '                                                                             move down one pixel
2105.             END IF
2106.         LOOP UNTIL y > sheetheight '                                                                    don't stop until the entire sheet has been checked
2107.         IF alpha = 0 THEN '                                                                             did we find a transparent pixel?
2108.             tempsprite = _NEWIMAGE(1, 1, 32) '                                                          yes, create a temporary image         * why did I have to do
2109.             _CLEARCOLOR pixel, tempsprite '                                                             set pixel found as transparent        * this hack to get
2110.             clearcolor = _CLEARCOLOR(tempsprite) '                                                      get the transparent color from image  * clearcolor to come out
2111.             _FREEIMAGE tempsprite '                                                                     temporary image no longer needed      * to the right value?
2112.         ELSE '                                                                                          no transparency found within sheet
2113.             transparency = 1 '                                                                          set sheet to having no alpha channel
2114.         END IF
2115.     ELSEIF transparency = 0 THEN '                                                            (SL_SET)  manually set alpha channel?
2116.         _CLEARCOLOR clearcolor, sheetimage '                                                            yes, set color as transparent
2117.         clearcolor = _CLEARCOLOR(sheetimage) '                                                          get the transparent color ************* again, why this hack?
2118.     END IF
2119.  
2120.     ' load sprites from sheet and place into sprite array
2121.  
2122.     x = 0 '                                                                                             reset column counter
2123.     DO '                                                                                                cycle through sheet's columns
2124.         x = x + 1 '                                                                                     increment column counter
2125.         y = 0 '                                                                                         reset row counter
2126.         DO '                                                                                            cycle through sheet's rows
2127.             y = y + 1 '                                                                                 increment row counter
2128.             SL_sheet(handle, x, y).cell = (y - 1) * columns + x '                                       record animation cell this sprite is in
2129.             SL_sheet(handle, x, y).image = _NEWIMAGE(swidth, sheight, 32) '                             create software sprite image
2130.             IF transparency < 1 THEN '                                                                  should a mask be created?
2131.                 SL_sheet(handle, x, y).mask = _NEWIMAGE(swidth, sheight, 32) '                          yes, create software sprite mask image
2132.                 _DEST SL_sheet(handle, x, y).mask '                                                     write to the mask image
2133.             ELSE
2134.                 SL_sheet(handle, x, y).transparency = 0 '                                      (FALSE)  set sprite as having no transparency
2135.             END IF
2136.             _PUTIMAGE , sheetimage, SL_sheet(handle, x, y).image,_
2137.                 ((x - 1) * swidth, (y - 1) * sheight)-_
2138.                 ((x - 1) * swidth + swidth - 1, (y - 1) * sheight + sheight - 1) '                      copy sprite from sheet and place in sprite image
2139.  
2140.             ' precalculate collision boundaries and update sprite mask if needed
2141.  
2142.             _SOURCE SL_sheet(handle, x, y).image '                                                      work from the software sprite image
2143.             top = sheight - 1 '                                                                         set initial collision boundary markers
2144.             left = swidth - 1
2145.             bottom = 0
2146.             right = 0
2147.             x1 = 0 '                                                                                    reset width counter
2148.             DO '                                                                                        cycle through width of sprite
2149.                 y1 = 0 '                                                                                reset height counter
2150.                 DO '                                                                                    cycle through height of sprite
2151.                     IF POINT(x1, y1) <> clearcolor THEN '                                               is this pixel a transparent/background color?
2152.                         IF x1 < left THEN left = x1 '                                                   no, save position if left-most pixel
2153.                         IF y1 < top THEN top = y1 '                                                     save position if top-most pixel
2154.                         IF x1 > right THEN right = x1 '                                                 save position if right-most pixel
2155.                         IF y1 > bottom THEN bottom = y1 '                                               save position if bbottom-most pixel
2156.                     END IF
2157.                     IF transparency < 1 THEN '                                                          update software sprite mask?
2158.                         IF POINT(x1, y1) = clearcolor THEN '                                            yes, is this pixel a transparent/background color?
2159.                             PSET (x1, y1), _RGB32(255, 255, 255) '                                      yes, set as white on the mask image
2160.                         END IF
2161.                     END IF
2162.                     y1 = y1 + 1 '                                                                       increment height counter
2163.                 LOOP UNTIL y1 = sheight '                                                               leave when height of sprite reached (-1)
2164.                 x1 = x1 + 1 '                                                                           increment width counter
2165.             LOOP UNTIL x1 = swidth '                                                                    leave when width of sprite reached (-1)
2166.             SL_sheet(handle, x, y).collx1 = left '                                                      collision box top left x
2167.             SL_sheet(handle, x, y).colly1 = top '                                                       collision box top left y
2168.             SL_sheet(handle, x, y).collx2 = right '                                                     collision box bottom right x
2169.             SL_sheet(handle, x, y).colly2 = bottom '                                                    collision box bottom right y
2170.             SL_sheet(handle, x, y).swidth = swidth '                                                    remember sprite width
2171.             SL_sheet(handle, x, y).sheight = sheight '                                                  remember sprite height
2172.         LOOP UNTIL y = rows '                                                                           leave when all rows processed
2173.     LOOP UNTIL x = columns '                                                                            leave when all columns processed
2174.     _FREEIMAGE sheetimage '                                                                             sprite sheet image no longer needed
2175.  
2176.     ' create precalculated rotation table for the sprite sheet (1 to 359 degrees)
2177.  
2178.     x = 0 '                                                                                             reset counter
2179.     DO '                                                                                                cycle from 1 to 359 degrees
2180.         x = x + 1 '                                                                                     increment counter
2181.         'px(0) = (-swidth + 1) / 2 '                                                                     upper left  x polar coordinate of sprite
2182.         'py(0) = (-sheight + 1) / 2 '                                                                    upper left  y polar coordinate of sprite
2183.         px(0) = -swidth / 2 '                                                                           upper left  x polar coordinate of sprite
2184.         py(0) = -sheight / 2 '                                                                          upper left  y polar coordinate of sprite
2185.         px(1) = px(0) '                                                                                 lower left  x polar coordinate of sprite
2186.         'py(1) = (sheight -1) / 2 '                                                                      lower left  y polar coordinate of sprite
2187.         'px(2) = (swidth - 1) / 2 '                                                                      lower right x polar coordinate of sprite
2188.         py(1) = sheight / 2 '                                                                           lower left  y polar coordinate of sprite
2189.         px(2) = swidth / 2 '                                                                            lower right x polar coordinate of sprite
2190.         py(2) = py(1) '                                                                                 lower right y polar coordinate of sprite
2191.         px(3) = px(2) '                                                                                 upper right x polar coordinate of sprite
2192.         py(3) = py(0) '                                                                                 upper right y polar coordinate of sprite
2193.         sinr = SIN(-x / 57.2957795131) '                                                                calculate the sin of rotation
2194.         cosr = COS(-x / 57.2957795131) '                                                                calculate the cosine of rotation
2195.         bx1 = 0 '                                                                                       upper left x boundary of sprite
2196.         by1 = 0 '                                                                                       upper left y boundary of sprite
2197.         bx2 = 0 '                                                                                       lower right x boundary of sprite
2198.         by2 = 0 '                                                                                       lower right y boundary of sprite
2199.         y = 0 '                                                                                         reset counter
2200.         DO '                                                                                            cycle through all four polar coordinates (0 to 3)
2201.             x2 = (px(y) * cosr + sinr * py(y)) '                                                        compute new polar coordinate location
2202.             y2 = (py(y) * cosr - px(y) * sinr) '                                                        compute new polar coordinate location
2203.             px(y) = x2 '                                                                                save the new polar coordinate
2204.             py(y) = y2 '                                                                                save the new polar coordinate
2205.             IF px(y) < bx1 THEN bx1 = px(y) '                                                           save lowest  x value seen \  NOTE: use for
2206.             IF px(y) > bx2 THEN bx2 = px(y) '                                                           save highest x value seen  \ background image         <--------------------- LOOK
2207.             IF py(y) < by1 THEN by1 = py(y) '                                                           save lowest  y value seen  / rectangle coordinates
2208.             IF py(y) > by2 THEN by2 = py(y) '                                                           save highest y value seen /
2209.             y = y + 1 '                                                                                 increment counter
2210.         LOOP UNTIL y = 4 '                                                                              leave when all coordinates calculated
2211.         SL_rotate(handle, x).rwidth = bx2 - bx1 + 1 '                                                   calculate width of rotated sprite
2212.         SL_rotate(handle, x).rheight = by2 - by1 + 1 '                                                  calculate height of rotated sprite
2213.         x2 = SL_rotate(handle, x).rwidth \ 2 '                                                          calculate x offset
2214.         y2 = SL_rotate(handle, x).rheight \ 2 '                                                         calculate y offset
2215.         SL_rotate(handle, x).px0 = px(0) + x2 '                                                         add offsets to coordinates
2216.         SL_rotate(handle, x).px1 = px(1) + x2
2217.         SL_rotate(handle, x).px2 = px(2) + x2
2218.         SL_rotate(handle, x).px3 = px(3) + x2
2219.         SL_rotate(handle, x).py0 = py(0) + y2
2220.         SL_rotate(handle, x).py1 = py(1) + y2
2221.         SL_rotate(handle, x).py2 = py(2) + y2
2222.         SL_rotate(handle, x).py3 = py(3) + y2
2223.     LOOP UNTIL x = 359 '                                                                                leave when all degree angles calculated
2224.  
2225.     _SOURCE osource '                                                                                   return source to current
2226.     _DEST odest '                                                                                       return destination to current
2227.     SL_NEW_SHEET = handle '                                                                             return the handle number pointing to this sheet
2228.  
2229. END FUNCTION
2230.  
2231. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
2232. FUNCTION SL_VALID_SHEET (sheet AS INTEGER) '                                                                                                                                             SL_VALID_SHEET
2233.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
2234.  
2235.     ' declare global variables
2236.  
2237.     SHARED SL_sheet() AS SL_SHEET '    master sprite sheet array
2238.  
2239.     IF (sheet > UBOUND(SL_sheet)) OR (sheet < 1) THEN '                                                 is this a valid sheet?
2240.         SL_VALID_SHEET = 0 '                                                                   (FALSE)  no, return false
2241.     ELSEIF NOT SL_sheet(sheet, 0, 0).image THEN '                                                       is sprite sheet in use?
2242.         SL_VALID_SHEET = 0 '                                                                   (FALSE)  no, return false
2243.     ELSE '                                                                                              everything checks out
2244.         SL_VALID_SHEET = -1 '                                                                   (TRUE)  return true
2245.     END IF
2246.  
2247. END FUNCTION
2248.  
2249. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
2250. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
2251. '                                                                        ----------==========               ==========----------
2252. '                                                                        ----------========== ERROR ROUTINE ==========----------
2253. '                                                                        ----------==========               ==========----------
2254. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
2255. 'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
2256.  
2257. '    ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
2258. SUB SL_ERROR (routine AS STRING, errno AS INTEGER, info AS STRING) '                                                                                                                           SL_ERROR
2259.     'ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
2260.  
2261.     SCREEN 0, 0, 0, 0 '                                                                                 go to a pure text screen
2262.     _FONT 16 '                                                                                          set the standard screen 0 font
2263.     IF _FULLSCREEN THEN _FULLSCREEN _OFF '                                                              turn off full screen if on
2264.     _AUTODISPLAY '                                                                                      auto update the display
2265.     CLS '                                                                                               clear the screen
2266.     COLOR 10, 0
2267.     PRINT "                   **************************************" '                                 print error header
2268.     PRINT "                   ** Sprite Library Error Encountered **"
2269.     PRINT "                   **************************************"
2270.     PRINT
2271.     COLOR 15, 0
2272.     PRINT " "; routine;
2273.     COLOR 7, 0
2274.     PRINT " has reported error";
2275.     COLOR 30, 0
2276.     PRINT STR$(errno)
2277.     COLOR 7, 0
2278.     PRINT
2279.     SELECT CASE errno '                                                                                 which error number is being reported?
2280.  
2281.         ' general purpose errors for all subs/functions
2282.  
2283.         CASE 1
2284.             PRINT "- the requested sprite does not exist"
2285.         CASE 2
2286.             PRINT "- invalid background restore setting supplied - valid settings are"
2287.             PRINT "- : -1 (constant SL_SAVE)"
2288.             PRINT "- :  0 (constant SL_NOSAVE)"
2289.         CASE 3
2290.             PRINT "- invalid flip setting supplied - valid settings are"
2291.             PRINT "- : 0 (constant SL_NOFLIP)"
2292.             PRINT "- : 1 (constant SL_HORIZONTAL)"
2293.             PRINT "- : 2 (constant SL_VERTICAL)"
2294.             PRINT "- : 3 (constant SL_FLIPBOTH)"
2295.         CASE 4
2296.             PRINT "- invalid zoom level setting supplied"
2297.             PRINT "- zoom level must be greater than zero (0)"
2298.         CASE 5
2299.             PRINT "- the specified sprite sheet is not in use or does not exist"
2300.         CASE 6
2301.             PRINT "- invalid row or column selected for specified sprite sheet"
2302.         CASE 7
2303.             PRINT "- invalid auto motion behavior requested - valid settings are"
2304.             PRINT "- : -1 (constant SL_START)"
2305.             PRINT "- :  0 (constant SL_STOP)"
2306.         CASE 8
2307.             PRINT "- invalid auto rotation behavior requested - valid settings are"
2308.             PRINT "- : -1 (constant SL_START)"
2309.             PRINT "- :  0 (constant SL_STOP)"
2310.         CASE 9
2311.             PRINT "- rotation speed must be between -359 and 359 degrees"
2312.         CASE 10
2313.             PRINT "- frame rate must be greater than zero (0)"
2314.         CASE 11
2315.             PRINT "- frame rate must be greater than zero (0) and less than or equal"
2316.             PRINT "- to the global frame rate"
2317.         CASE 12
2318.             PRINT "- incorrect animation direction mode setting - valid settings are"
2319.             PRINT "- : 0 (constant SL_FORWARD)"
2320.             PRINT "- : 1 (constant SL_BACKWARD)"
2321.             PRINT "- : 2 (constant CL_BACKFORTH"
2322.         CASE 13
2323.             PRINT "- invalid cell value given - it must be greater than 0 and less"
2324.             PRINT "- than or equal to the total number of animation cells on a sheet"
2325.         CASE 14
2326.             PRINT "- invalid auto animation behavior requested - valid settings are"
2327.             PRINT "- : -1 (constant SL_START)"
2328.             PRINT "- :  0 (constant SL_STOP)"
2329.         CASE 15
2330.             PRINT "- animation has not been assigned to this sprite - use"
2331.             PRINT "- SL_SET_ANIMATION to assign animation to this sprite"
2332.         CASE 16
2333.             PRINT "- this srpite is already under auto motion control"
2334.             PRINT "- use SL_CHANGE_AUTOMOTION to disable auto motion control"
2335.         CASE 17
2336.             PRINT "- this sprite is already under auto rotation control"
2337.             PRINT "- use SL_CHANGE_AUTOROTATION to disable auto rotation control"
2338.         CASE 18
2339.             PRINT "- this sprite is already under auto animation control"
2340.             PRINT "- use SL_CHNAGE_AUTOANIMATION to disable auto animation control"
2341.         CASE 19
2342.             PRINT "- the destination cell must be greater than the starting cell"
2343.  
2344.             ' errors belonging to SL_NEW_SHEET (100 - 109)
2345.  
2346.         CASE 100
2347.             PRINT "- "; CHR$(34); info; CHR$(34); " sprite sheet does not exist"
2348.             PRINT "- check path or spelling"
2349.         CASE 101
2350.             PRINT "- invalid transparency setting supplied - valid settings are"
2351.             PRINT "- : -1 (constant SL_USESHEET)"
2352.             PRINT "- :  0 (constant SL_SET)"
2353.             PRINT "- :  1 (constant SL_NONE)"
2354.         CASE 102
2355.             PRINT "- sprite width and/or height must be greater than zero"
2356.         CASE 103
2357.             PRINT "- selecting to use a sheet's transparency only works with .PNG files"
2358.             PRINT "- the function was passed a "; info; " file."
2359.         CASE 104
2360.             PRINT "- there must be at least one column and one row of sprites on sheet"
2361.             PRINT "- the sheet being loaded does not meet these minimums"
2362.  
2363.             'errors belonging to SL_NEW_SPRITE (110 - 119)
2364.  
2365.             'CASE 110
2366.             '    PRINT "- the specified sprite sheet is not in use or does not exist"
2367.             'CASE 111
2368.             '    PRINT "- invalid row or column selected for specified sprite sheet"
2369.         CASE 112
2370.             PRINT "- invalid hardware / software setting supplied - valid settings are"
2371.             PRINT "- : -1 (constant SL_SOFTWARE)"
2372.             PRINT "- :  0 (constant SL_HARDWARE)"
2373.         CASE 113
2374.             PRINT "- there is no need to restore the background with hardware sprites"
2375.             PRINT "- change background restore setting to zero (0) (constant SL_NOSAVE)"
2376.  
2377.     END SELECT
2378.     COLOR 12, 0
2379.     PRINT
2380.     PRINT " See sprite library doumentation for further explanation."
2381.     COLOR 7, 0
2382.     DO: LOOP UNTIL INKEY$ = "" '                                                                        clear the keyboard buffer
2383.     END '                                                                                               end the program
2384.  
2385. END SUB
2386.  
2387.  

[TerryRitchie]

Ok, it looks like ellipse collision is out for two ellipses colliding. This is the formula for it .. NO JOKE LOL

x = c*b^2/(2*(b^2 - 1)) - 1/2*sqrt(c^2*b^4/(b^2 - 1)^2 + (c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)/(3*(b^4 - 2*b^2 + 1)) - (c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)/(b^2 - 1)^2 + (- 108*c^2*(b^4*c - b^2*c)^2*b^4 + 72*(b^4 - 2*b^2 + 1)*c^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)*b^4 + 2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^3 + 108*(b^4 - 2*b^2 + 1)*(b^4*c - b^2*c)^2 + 36*(b^4*c - b^2*c)^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1) + sqrt((- 108*c^2*(b^4*c - b^2*c)^2*b^4 + 72*(b^4 - 2*b^2 + 1)*c^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)*b^4 + 2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^3 + 108*(b^4 - 2*b^2 + 1)*(b^4*c - b^2*c)^2 + 36*(b^4*c - b^2*c)^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1))^2 - 4*(- 12*(b^4 - 2*b^2 + 1)*c^2*b^4 + 12*(b^4*c - b^2*c)^2 + (c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^2)^3))^(1/3)/(3*2^(1/3)*(b^2 - 1)^2) + 2^(1/3)*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^2/(3*(b^2 - 1)^2*(- 108*c^2*(b^4*c - b^2*c)^2*b^4 + 72*(b^4 - 2*b^2 + 1)*c^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)*b^4 + 2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^3 + 108*(b^4 - 2*b^2 + 1)*(b^4*c - b^2*c)^2 + 36*(b^4*c - b^2*c)^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1) + sqrt((- 108*c^2*(b^4*c - b^2*c)^2*b^4 + 72*(b^4 - 2*b^2 + 1)*c^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)*b^4 + 2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^3 + 108*(b^4 - 2*b^2 + 1)*(b^4*c - b^2*c)^2 + 36*(b^4*c - b^2*c)^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1))^2 - 4*(- 12*(b^4 - 2*b^2 + 1)*c^2*b^4 + 12*(b^4*c - b^2*c)^2 + (c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^2)^3))^(1/3))) + 1/2*sqrt(2*c^2*b^4/(b^2 - 1)^2 - (c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)/(3*(b^4 - 2*b^2 + 1)) - (c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)/(b^2 - 1)^2 - (- 108*c^2*(b^4*c - b^2*c)^2*b^4 + 72*(b^4 - 2*b^2 + 1)*c^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)*b^4 + 2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^3 + 108*(b^4 - 2*b^2 + 1)*(b^4*c - b^2*c)^2 + 36*(b^4*c - b^2*c)^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1) + sqrt((- 108*c^2*(b^4*c - b^2*c)^2*b^4 + 72*(b^4 - 2*b^2 + 1)*c^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)*b^4 + 2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^3 + 108*(b^4 - 2*b^2 + 1)*(b^4*c - b^2*c)^2 + 36*(b^4*c - b^2*c)^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1))^2 - 4*(- 12*(b^4 - 2*b^2 + 1)*c^2*b^4 + 12*(b^4*c - b^2*c)^2 + (c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^2)^3))^(1/3)/(3*2^(1/3)*(b^2 - 1)^2) - 2^(1/3)*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^2/(3*(b^2 - 1)^2*(- 108*c^2*(b^4*c - b^2*c)^2*b^4 + 72*(b^4 - 2*b^2 + 1)*c^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)*b^4 + 2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^3 + 108*(b^4 - 2*b^2 + 1)*(b^4*c - b^2*c)^2 + 36*(b^4*c - b^2*c)^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1) + sqrt((- 108*c^2*(b^4*c - b^2*c)^2*b^4 + 72*(b^4 - 2*b^2 + 1)*c^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)*b^4 + 2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^3 + 108*(b^4 - 2*b^2 + 1)*(b^4*c - b^2*c)^2 + 36*(b^4*c - b^2*c)^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1))^2 - 4*(- 12*(b^4 - 2*b^2 + 1)*c^2*b^4 + 12*(b^4*c - b^2*c)^2 + (c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^2)^3))^(1/3)) - (8*c^3*b^6/(b^2 - 1)^3 - 16*c*b^2/(b^2 - 1) - 8*c*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)*b^2/(b^2 - 1)^3)/(4*sqrt(c^2*b^4/(b^2 - 1)^2 + (c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)/(3*(b^4 - 2*b^2 + 1)) - (c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)/(b^2 - 1)^2 + (- 108*c^2*(b^4*c - b^2*c)^2*b^4 + 72*(b^4 - 2*b^2 + 1)*c^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)*b^4 + 2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^3 + 108*(b^4 - 2*b^2 + 1)*(b^4*c - b^2*c)^2 + 36*(b^4*c - b^2*c)^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1) + sqrt((- 108*c^2*(b^4*c - b^2*c)^2*b^4 + 72*(b^4 - 2*b^2 + 1)*c^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)*b^4 + 2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^3 + 108*(b^4 - 2*b^2 + 1)*(b^4*c - b^2*c)^2 + 36*(b^4*c - b^2*c)^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1))^2 - 4*(- 12*(b^4 - 2*b^2 + 1)*c^2*b^4 + 12*(b^4*c - b^2*c)^2 + (c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^2)^3))^(1/3)/(3*2^(1/3)*(b^2 - 1)^2) + 2^(1/3)*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^2/(3*(b^2 - 1)^2*(- 108*c^2*(b^4*c - b^2*c)^2*b^4 + 72*(b^4 - 2*b^2 + 1)*c^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)*b^4 + 2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^3 + 108*(b^4 - 2*b^2 + 1)*(b^4*c - b^2*c)^2 + 36*(b^4*c - b^2*c)^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1) + sqrt((- 108*c^2*(b^4*c - b^2*c)^2*b^4 + 72*(b^4 - 2*b^2 + 1)*c^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)*b^4 + 2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^3 + 108*(b^4 - 2*b^2 + 1)*(b^4*c - b^2*c)^2 + 36*(b^4*c - b^2*c)^2*(c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1))^2 - 4*(- 12*(b^4 - 2*b^2 + 1)*c^2*b^4 + 12*(b^4*c - b^2*c)^2 + (c^2*b^4 - b^4 + d^2*b^2 + 2*b^2 - 1)^2)^3))^(1/3)))))

y = sqrt(1 - x^2)/b