STU_AXFR%JMUVAX1.BITNET@vtvm2.cc.vt.edu (07/28/90)
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 .