home *** CD-ROM | disk | FTP | other *** search
- | > !GraphDraw.!Run
- |
- | Run file for GraphDraw
- |
- | by Chris Johnson
- |
- RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions
- |
- | Follow PRM (4:497) advice and prevent multiple running
- |
- If "<GraphDraw$Running>" = "yes" Then Error GraphDraw is already running
- |
- IconSprites <Obey$Dir>.!Sprites
- Set Alias$@RunType_7F3 /<Obey$Dir>.!Run %%*0
- Set File$Type_7F3 GraphFile
- |
- | Find path to file
- Set GraphDraw$Dir <Obey$Dir>
- |
- If "<Font$Prefix>"="" Then Error You need to double click on !Fonts before running this application
- |
- set temp$flag 1
- RMEnsure ABCLibrary 0 set temp$flag 0
- RMensure ABCLibrary 4.00 if "<temp$flag>" = "1" Then Error 0 Old ABCLib installed Else RMLoad <Obey$Dir>.ABCLib
- RMensure ABCLibrary 4.00 Error You need the ABClibrary ver 4.00 or later installed
- |
- set temp$flag 1
- RMEnsure CJWimpUtil 0 set temp$flag 0
- RMEnsure CJWimpUtil 0.17 if "<temp$flag>" = "1" Then Error 0 Old CJWimpUtil module installed Else RMLoad <Obey$Dir>.cjWimpUtil
- RMEnsure CJWimpUtil 0.17 Error You need the CJWimpUtil module installed
- |
- set temp$flag 1
- RMEnsure CJdrawUtil 0 set temp$flag 0
- RMEnsure CJdrawUtil 0.15 if "<temp$flag>" = "1" Then Error 0 Old CJdrawUtil installed Else RMLoad <Obey$Dir>.cjdrawUtil
- RMEnsure CJdrawUtil 0.15 Error You need the CJdrawUtil module installed
- unset temp$flag
- |
- set GraphDraw$VDULinePoints 100
- set GraphDraw$MPlotLinePoints 100
- set GraphDraw$DrawLinePoints 100
- set GraphDraw$PrintLinePoints 100
- set GraphDraw$AppendData 0
- |
- | Set up variables which affect slot size
- set GraphDraw$DataSetSize 200
- | Check memory allocation
- WimpSlot -min 352K -max 352K
- |
- | Set up variables which affect slot size
- |set GraphDraw$DataSetSize 300
- | Check memory allocation
- |WimpSlot -min 416K -max 416K
- |
- | Set up variables which affect slot size
- |set GraphDraw$DataSetSize 400
- | Check memory allocation
- |WimpSlot -min 480K -max 480K
- |
- | Now start program
- Run <GraphDraw$Dir>.!RunImage %*0
-