Path: utzoo!utgpu!news-server.csri.toronto.edu!mailrus!wuarchive!udel!mmdf
From: STU_AXFR%JMUVAX1.BITNET@vtvm2.cc.vt.edu
Newsgroups: comp.sys.amiga
Subject: Help with Sprites in M2
Message-ID: <25885@snow-white.udel.EDU>
Date: 27 Jul 90 21:46:08 GMT
Sender: mmdf@udel.EDU
Lines: 41





        I would appreciate any help that I might get.  All I am trying
to do is display a sprite in Modula II but the program locks up right
after MoveSprite statement.  It does display the sprite at the right
location but goes GURU after doing so (before getting to FreeSprite).
I am using M2Amiga.  It sometimes draws a bunch of lines under the sprite.
Thanks for any help.

                              Ali Fracyon
                              James Madison University

VAR
 SpriteDataAddress: ADDRESS;
 SpriteData: ARRAY[1..5] OF SpriteRow;
 SpriteNumber: INTEGER;
 SpritePointer: SimpleSpritePtr;
 i: CARDINAL;

BEGIN
 .
 .
 .
 SpriteData[1] := "0000000000000000";
 SpriteData[2] := "0000000110000000";
 SpriteData[3] := "0000002222000000";
 SpriteData[4] := "0000000110000000";             w  h
 SpriteData[5] := "0000000000000000";             |  |
 SpriteDataAddress := MakeSpriteData(SpriteData, 16, 5);
 SpriteNumber := GetSprite(SpritePointer, -1);
 IF SpriteNumber = -1 THEN HALT END;
 ChangeSprite(drawRP, SpritePointer, SpriteDataAddress);
 MoveSprite(drawRP, SpritePointer, 100, 100);
 .
 .
 .
 FreeSprite(SpriteNumber);

END .