|  ______________________________
| |                              |
| | Run file for TopModel viewer |
| |______________________________|
|
RMEnsure GeminiMPGE 1.10 RMLoad <TopModel$Resources>.GeminiGE.Gemini
RMEnsure GeminiMPGE 1.10 ERROR You need Gemini 1.10 or later.

WimpSlot -min 1888k -max 1888k
IF "<TopModel$Resources>"="" THEN ERROR Please locate !TopRes resources.
IF "<ChangeFSI$Dir>"=""      THEN ERROR Please locate !ChangeFSI utility.
Set TMviewer$DIR <Obey$Dir>

IF "Alias$@RunType_B5C"=""   THEN SET Alias$@RunType_B5C Run <Obey$Dir> %%*0
IF "Alias$@RunType_139"=""   THEN SET Alias$@RunType_139 Run <Obey$Dir> %%*0
SET Alias$@RunType_B29 Run <Obey$Dir> %%*0
Set File$Type_B29 VRML
Set File$Type_B5C 3DModel
Set File$Type_139 3DScene

IconSprites <TMviewer$DIR>.!Sprites
WimpSlot -min 192k -max 192k
Run <TMviewer$DIR>.!RunImage