neil_tag.e
- Posted by Lewis Townsend <keroltarr at HOTMAIL.COM> May 18, 1999
- 467 views
Hello folks, You know those times when your using neil and get a causeway error? It's really annoying not to have a readable file telling you what went wrong, and you can't even do things like: puts (1, "got this far\n") to find out where the error occured because if the graphics mode has been set then the text don't show. Not to worry anymore, with that said, I present neil_tag.e. It basically displays a picture and waits for key press. Multiple calls to tag() staggers the picture down the screen so you know how many times it was called. Just include neil_tag.e set the picture with "with_tag ("file_name.bmp")" call "tag ()" right before or after a suspicious line of code to see if the picture is displayed before the causeway error. -- neil_tag.e -- BOF -- by Lewis Townsend -- Call with_tag ("file_name.bmp") -- to set the tag picture. -- Call tag () to display the tag picture -- and wait for a keypress. include neil.e include get.e sequence TAG integer xp, yp xp = 0 yp = 0 global procedure with_tag (sequence fn) TAG = load_bitmap (fn) end procedure global procedure tag () do_command (clear_blit, TAG[1], {screen, xp, yp}) xp += 10 yp += 10 if wait_key () then end if end procedure -- EOF Hope this is useful, Lewis Townsend _______________________________________________________________ Get Free Email and Do More On The Web. Visit http://www.msn.com