home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 559a.lha / 2View_v1.11 / GetInfo.rx < prev    next >
Encoding:
Text File  |  1991-09-19  |  800 b   |  57 lines
  1.  
  2. /* 2View sample ARexx script*/
  3. /* This gets information about the currently displayed picture, then */
  4. /* advances to the next picture */
  5.  
  6. address "2View.1"
  7.  
  8. options results
  9.  
  10. pictoback
  11.  
  12. 'get name'
  13. say 'Name:' result
  14.  
  15. 'get width'
  16. say 'Width: ' result
  17.  
  18. 'get height'
  19. say 'Height: ' result
  20.  
  21. 'get depth'
  22. say 'Depth:' result
  23.  
  24. 'get viewmodes'
  25. say 'Viewmodes:' result
  26.  
  27. time=4;
  28.  
  29. 'get timeperpicture'
  30. time=result
  31. if time==0 then say 'Not timed'
  32. else say 'Timed:  'time' jiffies per picture'
  33.  
  34. if time~==0 then do
  35. 'get timeleft'
  36. say 'Timeleft: ' result
  37. time=result
  38. say 'Which equals ' time/50 ' seconds'
  39. end
  40.  
  41. 'get playlistname'
  42. say 'Playlist filename: 'result
  43.  
  44. 'get looping'
  45. say 'Looping?' result
  46.  
  47. 'get printpictures'
  48. say 'Print pictures? 'result
  49.  
  50. 'get version'
  51. say 'This is 2View 'result
  52.  
  53. pictofront
  54.  
  55. advance
  56.  
  57.