home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 July / AMIGA_1996_7.BIN / ausgabe_7_96 / pd-programmierung / ace_prgs.lha / gfx / InFFo.lha / InFFo.b next >
Text File  |  1994-10-26  |  1KB  |  61 lines
  1. '..Display an IFF picture with an information window.
  2.  
  3. '..get file name
  4. f$ = FileBox$("Select an IFF picture file")
  5. if f$="" then
  6.   MsgBox "No file selected!","Continue"
  7.   STOP
  8. end if
  9.  
  10. '..open IFF file
  11. iff open #1,f$
  12. if Err <> 0 then 
  13.   MsgBox f$+" is not an IFF file.","Continue" 
  14.   STOP
  15. end if
  16.  
  17. '..get screen info
  18. x = iff(1,1)
  19. y = iff(1,2)
  20. depth = iff(1,3)
  21. mode = iff(1,4)
  22.  
  23. '..open screen
  24. screen 1,x,y,depth,mode
  25. if Err = 600 then 
  26.   MsgBox "Unable to open screen.","Continue"
  27.   iff close #1
  28.   STOP
  29. end if
  30.  
  31. '..display picture
  32. iff read #1,1
  33. if Err <> 0 then 
  34.   MsgBox "Error reading "+f$+".","Continue" 
  35.   screen close 1
  36.   iff close #1
  37.   STOP
  38. end if
  39.  
  40. '..information window (displays file name in all colors available)
  41. window 1,,(x\2-80,y\2-40)-(x\2+80,y\2+40),32,1
  42. for i=0 to 2^depth-1
  43.   color i
  44.   locate 3
  45.   print "** ";f$;" **"
  46.   sleep for .25
  47. next
  48.  
  49. '..finished
  50. BEEP
  51.  
  52. '..mouse click or keypress in window required
  53. while inkey$="" and NOT mouse(0):sleep:wend
  54.  
  55. '..cleanup
  56. window close 1
  57. screen close 1
  58. iff close #1
  59.  
  60. END
  61.