Contents of /archive/wimplibs/Sprite/2

REM > JLibraries:Sprite.2

REM JB  19 Nov 1997     created


DEF PROCSprite_LoadFile(Path$, Fixd%, Name$)
LOCAL Buff%, Type%, Siz1%, Siz2%, Siz3%, Sqsh%, Work%

SYS"OS_File", 17, Path$ TO File%,, Type%,, Siz1%
IF File%  = 0 THEN ERROR 1, FNMess_Global1("NoFile", Path$)
IF File% <> 1 THEN ERROR 1, FNMess_Global1("IsntFil", Path$)
Type% = (Type% AND &FFF00) / &100

 CASE Type% OF
  WHEN &FF9
   Siz2% = Siz1%
  WHEN &FCA
   Sqsh% = FNHeap_Safe(Siz1%, 0, "_Sqsh")
   SYS"OS_File", 16, Path$, Sqsh%
   Siz2% = Sqsh%!04
  OTHERWISE
   ERROR 1, "'" + Path$ + "' is not a sprite file or squashed sprite file"
 ENDCASE

 IF Fixd% THEN
  DIM Buff% Siz2% + 8
  !Buff% = Buff% + 4
 ELSE
  Buff% = FNHeap_Alloc(Siz2% + 4)
  IF Buff% = 0 THEN ERROR Erro_Memo%, ""
 ENDIF
BuffB% = !Buff%
!BuffB% = Siz2% + 4

 CASE Type% OF
  WHEN &FF9
   SYS"OS_SpriteOp", 265, BuffB%
   SYS"OS_SpriteOp", 266, BuffB%, Path$
  WHEN &FCA
   SYS"Squash_Decompress", %1000, -1 TO Siz3%
   Work% = FNHeap_Safe(Siz3%, 0, "_Work")
   SYS"Squash_Decompress", %100, Work%, Sqsh% + 20, Siz1% - 20, BuffB% + 4, Siz2%
   PROCHeap_Lose(0, "_Sqsh")
   PROCHeap_Lose(0, "_Work")
 ENDCASE

PROCObject_Add(6, Buff%, 0, Name$)
SYS"WimpExt_Heap", 6
ENDPROC
1	REM > JLibraries:Sprite.2
2
3	REM JB 19 Nov 1997 created
4
5
6	DEF PROCSprite_LoadFile(Path$, Fixd%, Name$)
7	LOCAL Buff%, Type%, Siz1%, Siz2%, Siz3%, Sqsh%, Work%
8
9	SYS"OS_File", 17, Path$ TO File%,, Type%,, Siz1%
10	IF File% = 0 THEN ERROR 1, FNMess_Global1("NoFile", Path$)
11	IF File% <> 1 THEN ERROR 1, FNMess_Global1("IsntFil", Path$)
12	Type% = (Type% AND &FFF00) / &100
13
14	CASE Type% OF
15	WHEN &FF9
16	Siz2% = Siz1%
17	WHEN &FCA
18	Sqsh% = FNHeap_Safe(Siz1%, 0, "_Sqsh")
19	SYS"OS_File", 16, Path$, Sqsh%
20	Siz2% = Sqsh%!04
21	OTHERWISE
22	ERROR 1, "'" + Path$ + "' is not a sprite file or squashed sprite file"
23	ENDCASE
24
25	IF Fixd% THEN
26	DIM Buff% Siz2% + 8
27	!Buff% = Buff% + 4
28	ELSE
29	Buff% = FNHeap_Alloc(Siz2% + 4)
30	IF Buff% = 0 THEN ERROR Erro_Memo%, ""
31	ENDIF
32	BuffB% = !Buff%
33	!BuffB% = Siz2% + 4
34
35	CASE Type% OF
36	WHEN &FF9
37	SYS"OS_SpriteOp", 265, BuffB%
38	SYS"OS_SpriteOp", 266, BuffB%, Path$
39	WHEN &FCA
40	SYS"Squash_Decompress", %1000, -1 TO Siz3%
41	Work% = FNHeap_Safe(Siz3%, 0, "_Work")
42	SYS"Squash_Decompress", %100, Work%, Sqsh% + 20, Siz1% - 20, BuffB% + 4, Siz2%
43	PROCHeap_Lose(0, "_Sqsh")
44	PROCHeap_Lose(0, "_Work")
45	ENDCASE
46
47	PROCObject_Add(6, Buff%, 0, Name$)
48	SYS"WimpExt_Heap", 6
49	ENDPROC