| _____________________________________________
||                                             |
|| Run File for !TopModel solid modeller 2.14c |
||_____________________________________________|
|

|| Check for resources
IF "<TopModel$Library> "=""  THEN ERROR Please locate !TopRes resource.
IF "<TopModel$Textures>"=""  THEN ERROR Please locate !TopRes resource.
IF "<TopModel$Resources>"="" THEN ERROR Please locate !TopRes resource.
IF "<ChangeFSI$Dir>"=""      THEN ERROR Please locate !ChangeFSI utility.
RMEnsure GeminiMPGE 1.13 RMLoad <TopModel$Resources>.GeminiGE.Gemini
RMEnsure GeminiMPGE 1.13 ERROR You need Gemini 1.13 or later.

|| Set main directory
Set TopModel2$DIR <Obey$DIR>

|| Set filetypes
Set Alias$@RunType_69D Run <ChangeFSI$Dir>.!Run %%*0
IF "Alias$@RunType_B29"="" THEN SET Alias$@RunType_B29 Run <Obey$Dir> %%*0
Set Alias$@RunType_B5C Run <Obey$Dir> %%*0
Set File$Type_139 3DScene
Set File$Type_690 Clear
Set File$Type_69D Targa
Set File$Type_B29 VRML
Set File$Type_B5C 3DModel

|| Load icons
IconSprites <Obey$DIR>.!Sprites
IconSprites <Obey$DIR>.Sprites.TopAnim

|| Run the program
WimpSlot -min 64k -max 64k
Run <TopModel2$DIR>.StartUp.Starter %*0
IF "<TopModel$OK>"="1" THEN RUN <TopModel2$DIR>.!RunImage

|| Clear the environment
UnSet TopModel$POINT
UnSet TopModel$POLY
UnSet TopModel$FILE
UnSet TopModel$OK
