|>!run
|
SetEval Impression$NeedsAemulor 0
RMEnsure UtilityModule 6.00 SetEval Impression$NeedsAemulor -1
RMEnsure UtilityModule 5.00 SetEval Impression$NeedsAemulor 0
If Impression$NeedsAemulor THEN RMEnsure Aemulor 1.00 Error You need the Aemulor 26bit emulation software to run this copy of Impression-X on RISC OS 5
If Impression$NeedsAemulor THEN Set Alias$ImpRun "AemuExecute " ELSE Set Alias$ImpRun "Run "
If Impression$NeedsAemulor THEN Set Alias$ImpRMensure "AemuExecute RMEnsure " ELSE Set Alias$ImpRMEnsure "RMEnsure "
If Impression$NeedsAemulor THEN Set Alias$ImpRMload "AemuExecute RMLoad " ELSE Set Alias$ImpRMload "RMLoad "
|
If Impression$NeedsAemulor THEN Error For best results, please convert JPEGs to Sprites with !Paint or !ChangeFSI, or embed them in an Artworks file
|
RMEnsure UtilityModule 3.00 Error 0 TransJPEG requires RISC OS 3
Set TransJPEG$Dir <Obey$Dir>
ImpRun <TransJPEG$Dir>.TaskActive "TransJPEG"
IF "<Task$Active>" = "TRUE" THEN ERROR "JPEG translator is already running"
Set FFGServer$TransJPEG -T &C85 &FF9 -T &C85 &AFF -R TransJPEG$Dir
Set File$Type_C85 JPEG

ImpRMEnsure JPEGUtils 0.04 RMLoad <TransJPEG$Dir>.JPEGUtils
ImpRMEnsure JPEGUtils 0.04 Error "JPEGUtils out of date"
ImpRMEnsure ImageUtils 1.12 RMLoad <TransJPEG$Dir>.ImageUtils
ImpRMEnsure ImageUtils 1.12 Error "ImageUtils out of date"

|Set Alias$@RunType_FF0 Run <TransJPEG$Dir>.!Run %%*0

IconSprites <TransJPEG$Dir>.!Sprites
WimpSlot -min 64K -max 64K
ImpRun "<TransJPEG$Dir>.!RunImage" %*0
