home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 15 / AACD15.ISO / AACD / Commercial / CGXV3_Elbox / CGXV3_Install next >
Text File  |  2000-10-25  |  25KB  |  494 lines
  1. ;*****************************************************************************
  2. ;    ______        __                  ______                     __  __   __
  3. ;   / __  /       / /                 / __  / ELBOX INSTALL      / /  \ \ / /
  4. ;  / /  -'__  __ / /___ ______ _____ / /_ -'_____ ______ ______ / /__  \ \ /
  5. ; / /     \ \/ // __  // ____// .__// // \ / .__// __  // __  // __  / /  /  V3
  6. ;/ /___    \  // /_/ // __/_ / /   / /_/ // /   / __  // /_/ // / / / / \ \
  7. ;\____/    / //_____//_____//_/   /_____//_/   /_/ /_// ____//_/ /_/ /_/ \_\
  8. ;         /_/                                        / /
  9. ;                                                   /_/
  10. ; S3           : Generic ViRGE 86C325 & ViRGE/DX 82C375 Driver
  11. ;
  12. ; CyberGraphX V3 ©1997-2000 Vision Factory Development
  13. ; CyberGraphX V3 Update Installer ©1995,1996,1997,1998,1999,2000 by Robert C. Reiswig 
  14. ; Mediator ©2000 by Elbox
  15. ; $VER: V0.48 (Oct-25-2000)
  16. ; 
  17. ; If you wish to use any part of this installer you must ask. May not be 
  18. ; integrated/placed into any other package! You may NOT change this in an way!
  19. ; You man NOT take or use the ENV definitions and use them without direct
  20. ; permission from me! Changes, suggestions or problems: rob@cgx.vgr.com
  21. ;********************************************************************************
  22.  
  23. ;MediatorViRGE file name , rest ElboxViRGE
  24.  
  25. ;********************************************************************************
  26. ; Cyber Release & Boards
  27. ;********************************************************************************
  28. (set @user-level 2)
  29. (set #cyberver "V3 41.2")
  30. (set NoBoard 0)
  31. (set whereback "SYS:Storage")
  32. (message (cat "CyberGraphX " #cyberver "\n~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  33.               "Generic PCI\n\nViRGE (86C325) / ViRGE/DX (86C375)\n\ndrivers for the Elbox Mediator"
  34.          )
  35. )
  36.  
  37. (welcome)
  38. ;********************************************************************************
  39. ; Read All System information
  40. ;********************************************************************************
  41. (set cpu (database "cpu")) (if (> (exists ("sys:libs/68060.library")) 0) (set cpu "68060") )
  42. (set vblank (database "vblank")) (set graphmem (database "graphics-mem"))
  43. (set totmem (database "total-mem")) (set osver (/ (getversion "LIBS:version.library") 65536))
  44. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  45. (set fastmem (- totmem graphmem))
  46. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  47. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  48. ( if (= osver 41) ( (set workbench "3.2")) )))))
  49. (set pick 0)
  50.  
  51. ;********************************************************************************
  52. ;English Strings
  53. ;********************************************************************************
  54. (set #By (cat "\n\nCyberGraphX\n\nRelease Version " #cyberver "\n\n\n\n"
  55.               "by:\n\nVision Factory Development"
  56.           
  57.          )
  58. )
  59.  
  60. (set #askzorro "\nWhat type of machine is CyberGraphX V3 installed on?\n")
  61. (set #askcpu "\nWhat CPU does the machine have that you are updating CyberGraphX V3 on? The installer has found:\n")
  62. (set #wherelibs "Where do you want the CyberGraphX V3 libraries installed? The default is 'SYS:Libs'")
  63. (set #whatboard (cat "\nPlease Select the Graphics Board(s) you wish to Install CyberGraphX V3 for:\n"))
  64. (set #todo-prompt "\nDo you wish to install:\n")
  65. (set #cgxmode-todo " CGXMode - Create & Change Screen Modes")
  66. (set #wheremode "Where do you wish to copy the CGXMode Program?")
  67. (set #whereshowcgxconfig "Where do you wish to copy the ShowCGXconfig Program?")
  68. (set #showcgxconfig " ShowCGXconfig - CGX Info Program")
  69.  
  70. ;***** New Strings for Aug-11-97
  71. (set #nocvppcboard "\n\n\nCurrently there is no public driver for the CyberVisionPPC graphics card.")
  72. (set #noretinaboard "\n\n\nCurrently there is no public driver for the Retina BLT Z3 graphics card.")
  73. (set #nopicasso4board "\n\n\nCurrently there is no public driver for the Picasso IV graphics card.")
  74. (set #noinfernoboard "\n\n\nCurrently there installer does not fully support the Inferno yet.")
  75.  
  76. (set #ask-MODEFILE1 "Which modefile should be installed for the ") 
  77. (set #ask-MODEFILE2 "? The khz number should not exceed your monitors max khz!")
  78. (set #15KHZ "15khz maximum") (set #31KHZ "31khz maximum")
  79. (set #35KHZ "35khz maximum") (set #38KHZ "38khz maximum")
  80. (set #48KHZ "48khz maximum") (set #57KHZ "57khz maximum")
  81. (set #64KHZ "64khz maximum") (set #80KHZ "80khz maximum")
  82.  
  83. (set #yes "Yes")
  84. (set #no "No")
  85. (set #followingenv "\n\n\n\nThe following section will set the Env Vars for CyberGraphX V3.")
  86. (set #whatboard-tt "\n\n\n\nThe following ToolTypes will be set for the:\n\n")
  87.  
  88.  
  89. ;*********** NEW English Strings:  Wednesday 03-Sep-97 *************************
  90. (set #nobackup "\n\nThis installer will install CGX V3 for the first time. Before you start you should use the backup program that came with your RTG Graphics system. Then you should use the uninstaller that came with it. If it did not come with these, then you will need to remove it by hand.\n\nYou should do this now if you have not done so.")
  91. (set #whatboot "\nWhat bootlogo would you like to use?\n")
  92. (set #bootdefault "CyberGraphX - Default")
  93. (set #bootppc "Light My Fire - PPC")
  94. (set #bootnone "Don't copy - Already Installed")
  95.  
  96.  
  97. ;*********** NEW English Strings:  Wednesday 22-Oct-97 *************************
  98.  
  99. ;*********** NEW English Strings:  Monday 01-Dec-97 *************************
  100. (set #noaga "\n\n\nCurrently there installer does not fully support the AGA Chipset or the driver is not out. Please see http://www.vgr.com for more info.")
  101. (set #CGXModeNot4AGA " CGXMode - Not for AGA Driver")
  102. (set #noenvaga "\n\nThe following ENV VARs that you will set will be use by the _graphics card(s)_ that you selected. They will NOT be used by the AGA-PPC driver.")
  103.  
  104. ;*********** NEW English Strings:  Wednesday 21-Jan-98 **********************
  105. (set #updatep4flash "\nTo use CyberGraphX with the Picasso IV you should be running version 2.0 or greater of the Picasso IV FlashROM.\n\nThe installer has found a version lower then 2.0.\n\nForm more information and newer FlashROMs you can contact:\nYour Dealer\nVillage Tronic\nVillage Tronic Web site\n")
  106.  
  107. ;*********** NEW English Strings:  Wednesday 11-Mar-98 **********************
  108. (set #noppc1 "\n\nYou selected the PPC option for one of your CPUs. The installer did not find the 'libs:PPC.library'.\n\nCyberGraphX may not work correctly.\n\n Do you wish to reselect the CPU type?")
  109. (set #noppcaga "\nYou selected the 'AGA (PPC Only)' option when picking what graphics card (display device) to use with CyberGraphX. The installer did not find the 'libs:PPC.library'.\n\n The AGACGX driver needs a PPC card installed to work correctly.\n\nDo you wish to Abort the install now?.")
  110. (set #agaquit "\nCyberGraphX install/update exiting.")
  111.  (set #noboard "\nOne of the board(s) or chipset(s) you selected is not currently supported.\n\nPlease look on http://www.vgr.com for an update or wait until the next CyberGraphX archive is released.\n\nThe card with the missing driver was the:\n") 
  112.  
  113.  
  114. ;*********** NEW English Strings: Monday 28-Aug-00 14:57:13 **********************
  115. (set #envtt "\nCurrently CGX is set to the default settings.\n\n\nPlease see the CyberGraphX homepage\n\nhttp://www.vgr.com/cgx\n\nfor a full list of settings and what they do.")
  116. (set #cgxv4 (cat "\nCheck out CyberGraphX V4 at:\nhttp://www.vgr.com/v4\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~"
  117.                  "\n- Includes -\nCustom drivers for each PCI Elbox Card\nHardware blitter support\nCGXVideo support\nCGX Prefs Program\nLatest CGXMode\nCGXMode monitor database\nFully compatible with CGX V3\n68040 version of the CGX library")
  118. )
  119.  
  120.  
  121.  
  122. ;********************************************************************************
  123. ;German Strings
  124. ;********************************************************************************
  125. (if (= @language "deutsch")
  126. (
  127.  (set #askzorro "\nWelche Erweiterungsslots besitzt der Computer, auf dem Sie CyberGraphX V3 installieren ?\n")
  128.  (set #askcpu "\nWelchen Prozessor besitzt der Computer, auf dem Sie CyberGraphX V3 installieren wollen ? Der installer hat folgendes gefunden:\n")
  129.  (set #wherelibs "Wohin sollen die CyberGraphX V3 Bibliotheken installiert werden? Standard ist 'SYS:Libs'")
  130.  (set #whatboard (cat "\nBitte wählen Sie die Grafikkarte(n), mit denen Sie CyberGraphX V3 benutzen wollen:\n"))
  131.  (set #todo-prompt "\nWelches der folgenden Programme wollen Sie installieren: ?\n")
  132.  (set #cgxmode-todo " CGXMode - Erstellen & Ändern von Bildschirmmodis")
  133.  (set #wheremode "Wohin wollen Sie das CGXMode Programm kopiert haben?")
  134.  (set #whereshowcgxconfig "Wohin wollen Sie das ShowCGXconfig Programm kopiert haben?")
  135.  (set #showcgxconfig " ShowCGXconfig - CyberGraphX Informationsprogramm")
  136.  
  137.  ;***** New Strings for Aug-11-97
  138.  (set #nocvppcboard "\n\n\nMomentan ist kein Treiber für die CyberVisionPPC Grafikkarte frei verfügbar.")
  139.  (set #noretinaboard "\n\n\nMomentan ist kein Treiber für die Retina BLT Z3 Grafikkarte frei verfügbar.")
  140.  (set #nopicasso4board "\n\n\nMomentan ist kein Treiber für die PicassoIV Grafikkarte frei verfügbar.")
  141.  (set #noinfernoboard "\n\n\nMomentan unterstützt dieses Skript die Installation der Inferno Grafikkarte noch nicht.")
  142.  
  143.  (set #ask-MODEFILE1 "Welche Monitorfrequenzdatei wählen Sie für die ") 
  144.  (set #ask-MODEFILE2 "? Die khz Angabe sollte die maximale khz Angabe für ihren Bildschirm nicht überschreiten!")
  145.  (set #15KHZ "15khz maximum") (set #31KHZ "31khz maximum")
  146.  (set #35KHZ "35khz maximum") (set #38KHZ "38khz maximum")
  147.  (set #48KHZ "48khz maximum") (set #57KHZ "57khz maximum")
  148.  (set #64KHZ "64khz maximum") (set #80KHZ "80khz maximum")
  149.  
  150.  (set #yes "Ja")
  151.  (set #no "Nein")
  152.  (set #followingenv "\n\n\n\nDer folgende Abschnitt setzt die Umgebungsvariablen für CyberGraphX V3.")
  153.  (set #whatboard-tt "\n\n\n\nDie folgenden Piktogrammmerkmale werden gesetzt für die:\n\n")
  154.  
  155.  
  156.  
  157.  ;*********** NEW Strings:  Wednesday 03-Sep-97 *************************
  158.  (set #nobackup "\n\nDieses Installationsskript führt eine Erstinstallation von CyberGraphX V3 durch. Bevor Sie weitermachen, sollten Sie das evtl. vorhandene alte System mit dem entsprechend dafür vorgesehenen Programm sichern. Verwenden Sie dann das Programm zum Entfernen der alten RTG Systemsoftware. Wenn dieses Programm nicht vorhanden ist, so müssen Sie das manuell erledigen.\n\nSie müssen es auf jeden Fall tun, bevor sie mit dieser Installation fortfahren.")
  159.  (set #whatboot "\nWelches StartupLogo wollen Sie installieren ?\n")
  160.  (set #bootdefault "CyberGraphX - Standard")
  161.  (set #bootppc "Light My Fire - PPC")
  162.  (set #bootnone "Nichts kopieren - bereits installiert")
  163.  
  164.  
  165.  ;*********** NEW English Strings:  Wednesday 22-Oct-97 *************************
  166.  
  167.  ;*********** NEW Strings:  Monday 01-Dec-97 *************************
  168.  (set #noaga "\n\n\nEntweder unterstützt das Installationsskript nicht vollständig den AGA Chipsatz oder der Treiber ist nicht verfügbar. Bitte schauen Sie unter http://www.vgr.com für weitere Informationen.")
  169.  (set #CGXModeNot4AGA " CGXMode - Nicht verwendbar für den AGA Treiber!")
  170.  (set #noenvaga "\n\nDie folgenden Variablen, die gesetzt werden, werden nur von _Grafikkarten_ verwendet. Sie werden NICHT vom AGA-PPC Treiber benutzt.")
  171.  (set #multimediamem (cat "MULTIMEDIAMEM\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  172.                           "Wenn MULTIMEDIAMEM=YES, reserviert CGX3 1MB Grafikspeicher der CV64/3D für 3D Texturen & Video Overlays. "
  173.                           "Wenn NO, verhält sich die CV64/3D wie eine andere Karte, die diese Möglichkeiten nicht besitzt, wie z.B. die PicassoII."
  174.                           "Sie erhalten dann volle 4MB Grafikspeicher für Bildschirme mit ZorroIII Geräten (3.5MB bei ZorroII). "
  175.                           "MULTIMEDIAMEM ist standardmäßig auf YES gesetzt (womit 3MB des Grafikspeichers für Bildschirme genutzt werden)."
  176.                      )
  177.  )
  178.  (set #blackborder   (cat "BLACKBORDER\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  179.                           "Das Setzen des Merkmals 'BLACKBORDER=YES' führt dazu, daß der Rahmen um "
  180.                           "den Bildschirm schwarz dargestellt wird. Die RetinaBLT Z3 benutzt sonst immer Farbe 0, "
  181.                           "wogegen andere Karten meist immer schwarz verwenden. Standardeinstellung ist 'BLACKBORDER=NO'."
  182.                      )
  183.  )
  184.  (set #noboard "\nOne of the board(s) or chipset(s) you selected is not currently supported.\n\nPlease look on http://www.vgr.com for an update or wait until the next CyberGraphX archive is released.\n\nThe card with the missing driver was the:\n") 
  185.  
  186.  ;*********** NEW English Strings:  Wednesday 21-Jan-98 **********************
  187.  (set #updatep4flash "\nUm CyberGraphX3 mit der PicassoIV zu benutzen, sollten sie auf jeden Fall die Version 2.0 oder größer des PicassoIV FlashROMs installieren.\n\nDas Installationsskript entdeckte eine ältere Version.\n\nFür weitere Informationen und eine neuere FlashROM Version kontaktieren Sie bitte:\nIhren Händler\nVillageTronic\ndie VillageTronic WWW Seite\n")
  188. )
  189. )
  190.  
  191.  
  192. ;********************************************************************************
  193. ; French Strings by: Gregory Eycken <geycken@geocities.com>
  194. ;********************************************************************************
  195. (if (= @language "français")
  196. (
  197.  (set #askzorro "\nSur quel type d'ordinateur CyberGraphX V3 va-t-il être installé?\n")
  198.  (set #askcpu "\nQuel est le processeur de l'ordinateur sur lequel vous voulez installer CyberGraphX V3? L'installeur a trouvé :\n")
  199.  (set #wherelibs "Où désirez-vous installer les bibliothèques de CyberGraphX V3? Par défaut, c'est 'SYS:Libs'.")
  200.  (set #whatboard (cat "\nVeuillez sélectionner la carte graphique dont vous voulez installer le fichier moniteur :\n"))
  201.  (set #todo-prompt "\nDésirez-vous installer :\n")
  202.  (set #cgxmode-todo " CGXMode - Créer et modifier les modes d'écran")
  203.  (set #wheremode "Où désirez-vous installer le programme CGXMode?")
  204.  (set #whereshowcgxconfig "Où désirez-vous installer le programme ShowCGXconfig?")
  205.  (set #showcgxconfig " ShowCGXconfig - Programme d'informations CyberGraphX")
  206.  
  207.  ;***** New Strings for Aug-11-97
  208.  (set #nocvppcboard "\n\n\nIl n'y a actuellement pas de fichier moniteur pour la carte graphique CyberVisionPPC.")
  209.  (set #noretinaboard "\n\n\nIl n'y a actuellement pas de fichier moniteur pour la carte graphique Retina BLT Z3.")
  210.  (set #nopicasso4board "\n\n\nIl n'y a actuellement pas de fichier moniteur pour la carte graphique Picasso IV.")
  211.  (set #noinfernoboard "\n\n\nLe script d'installation n'a pas conçu pour supporter entièrement l'Inferno.") 
  212.  
  213.  (set #ask-MODEFILE1 "Quel fichier de modes désirez-vous installer pour la ") 
  214.  (set #ask-MODEFILE2 "?\nLe nombre de kHz ne devrait pas dépasser la limite maximale de votre moniteur!")
  215.  (set #none "Aucun")
  216.  (set #15KHZ "15kHz maximum") (set #31KHZ "31kHz maximum")
  217.  (set #35KHZ "35kHz maximum") (set #38KHZ "38kHz maximum")
  218.  (set #48KHZ "48kHz maximum") (set #57KHZ "57kHz maximum")
  219.  (set #64KHZ "64kHz maximum") (set #80KHZ "80kHz maximum")
  220.  
  221.  (set #yes "Oui")
  222.  (set #no "Non")
  223.  (set #followingenv "\n\n\n\nLa partie suivante de l'installation va configurer les variables d'environnement pour CyberGraphX V3.")
  224.  (set #whatboard-tt "\n\n\n\nLa partie suivante de l'installation va configurer les ToolTypes du fichier moniteur de la\n")
  225.  
  226.  
  227.  
  228.  ;*********** New Strings for Wednesday 03-Sep-97 *************************
  229.  (set #nobackup "\n\nCe script d'installation va installer CyberGraphX V3 pour la première fois.\n\nAvant de poursuivre, si vous utilisez un autre système RTG, faites un archivage puis une déinstallation à l'aide des utilitaires fournis avec cet autre système. Si ce système ne contient pas d'utilitaires, enlevez les fichiers manuellement.\n\n")
  230.  (set #whatboot "\nQuel logo désirez-vous afficher durant l'initialisation?\n")
  231.  (set #bootdefault "CyberGraphX - Par défaut")
  232.  (set #bootppc "Light My Fire - Pour les PowerPC")
  233.  (set #bootnone "Ne rien copier - Le logo est déjà installé")
  234.  
  235.  ;*********** New Strings for Wednesday 22-Oct-97 *************************
  236.  
  237. )
  238. )
  239.  
  240. ;********************************************************************************
  241. ; Start Update
  242. ;********************************************************************************
  243. ;(message #by)
  244. (message #nobackup)
  245.  
  246.  
  247. ;*******************************************************************
  248. ;  What board to update
  249. ;*******************************************************************
  250. (set BGuess 0)
  251.  
  252. (if (> (exists ("devs:monitors/MediatorViRGE")) 0) (set BGuess (+ BGuess 1)) )
  253.  
  254.  
  255.   (set board (askoptions (choices  " MediatorViRGE" 
  256.                           (prompt #whatboard)
  257.                       (help #whatboard)
  258.                           (default BGuess)
  259.                          )
  260.              )     
  261.   )
  262.  
  263. (if (AND (= (exists (tackon "S3Drivers" "MediatorViRGE")) 0) (IN board 0) ) (abort (cat #noboard "MediatorViRGE")) )
  264.  
  265.  
  266. ;********************************************************************
  267. ; Double Check on the CPU
  268. ;********************************************************************
  269. (procedure askaboutcpu
  270.  
  271. (set cpu (database "cpu"))
  272. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 0))
  273. (if (= cpu 68020) (set #cpu 0)) (if (= cpu 68030) (set #cpu 0))
  274. (if (= cpu 68040) (set #cpu 1)) (if (= cpu 68060) (set #cpu 1)) 
  275. (if (= @installer-version 0)
  276.   (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 1) )
  277.   (if (= cpu 68060) (set #cpu 1))
  278. )
  279. (if (> (exists ("libs:PPC.library")) 0) (set #cpu 2) )
  280.  
  281. (set cpuPick (askchoice (choices "68020 or 68030" "68040 or 68060")
  282.             (prompt #askcpu)
  283.                     (help   #askcpu)
  284.                   (default #cpu)
  285.       )
  286. )
  287.  
  288. (if (= cpuPick 0) ((set cpuadd ".020") (set cpuadd-1 ".020")) )
  289. (if (= cpuPick 1) ((set cpuadd ".040") (set cpuadd-1 ".040")) )
  290.  
  291. ); END askaboutcpu
  292.  
  293. ;(askaboutcpu)
  294. (set cpuadd ".020") (set cpuadd-1 ".020")
  295.  
  296. ;*******************************************************************
  297. ;  ASK where cybergfx libs are
  298. ;*******************************************************************
  299. (set wherelibs   (askdir (prompt #wherelibs)
  300.              (help   #wherelibs)
  301.                   (default "SYS:Libs")
  302.          )
  303. )
  304.  
  305. ;*******************************************************************
  306. ;  Copy libs if there
  307. ;*******************************************************************
  308. (if (exists (tackon "cgxsystemlib" (cat "cgxsystem.library" cpuadd-1)) )
  309.   (copyfiles (source (tackon "cgxsystemlib" (cat "cgxsystem.library" cpuadd-1))) (dest wherelibs) (newname "cgxsystem.library") (optional "nofail") ) 
  310. )
  311.  
  312.  
  313. ;(if (exists (tackon "cgxbootpiclib" (cat "cgxbootpic.library" cpuadd)) )
  314. ;  (copyfiles (source (tackon "cgxbootpiclib" (cat "cgxbootpic.library" cpuadd))) (dest wherelibs) (newname "cgxbootpic.library") (optional "nofail") ) 
  315. ;)
  316.  
  317. ;*******************************************************************
  318. ;  Ask What bootlogo....
  319. ;*******************************************************************
  320. (if (> (exists ("c:multiview")) 0)  ((set #mpath "c:") (set mfound 1)) )
  321. (if (> (exists ("sys:Utilities/multiview")) 0) ((set #mpath "sys:Utilities") (set mfound 1)) )
  322. (if (= mfound 1) (run (cat "run " (tackon #mpath "multiview ") "cgxbootpiclib/bootlogos.iff")) )
  323.  
  324. (if (exists "libs:cgxbootpic.library") (set whatboot 1))
  325. (set whatboot  (askchoice
  326.                (choices #bootdefault #bootnone)
  327.                (prompt #whatboot)
  328.                (help   #whatboot)
  329.                (default whatboot)
  330.               )
  331. )
  332.  
  333. (if (AND (exists "cgxbootpiclib/cgxbootpic.library") (= whatboot 0))
  334.   (copyfiles (source "cgxbootpiclib/cgxbootpic.library") (dest wherelibs) (optional "nofail") ) 
  335. )
  336.  
  337.  
  338. ;*******************************************************************
  339. ;  Install monitor file and handle extra libs 
  340. ;*******************************************************************
  341.   (if (IN board 0)
  342.    (
  343.      (set zadd "")  
  344.  
  345.      (if (exists (tackon "S3Drivers" (cat "MediatorViRGE" zadd)))
  346.       (if (= (exists (tackon "devs:monitors" "MediatorViRGE.info")) 0)      
  347.        (copyfiles (source (tackon "S3Drivers" (cat "MediatorViRGE" zadd))) (dest "devs:monitors") (infos) (optional "nofail") ) 
  348.        (copyfiles (source (tackon "S3Drivers" (cat "MediatorViRGE" zadd))) (dest "devs:monitors") (optional "nofail") ) 
  349.       )      
  350.      )
  351.  
  352.      (if (exists (tackon "cgxvideolib" (cat "cgxvideo.library" cpuadd)) )
  353.        (copyfiles (source (tackon "cgxvideolib" (cat "cgxvideo.library" cpuadd))) (dest wherelibs) (newname "cgxvideo.library") (optional "nofail") ) 
  354.      )
  355.  
  356.      (if (exists (tackon "cgx3dvirgelib" (cat "cgx3dvirgin.library" "")) )
  357.        (copyfiles (source (tackon "cgx3dvirgelib" (cat "cgx3dvirgin.library" ""))) (dest wherelibs) (newname "cgx3dvirgin.library") (optional "nofail") ) 
  358.      )
  359.  
  360.    )
  361.   )
  362.  
  363.  
  364. ;*********************************************************************************
  365. ; Setup Monitor Config File Setup
  366. ;*********************************************************************************
  367. (set modefile 0)
  368. (procedure askconfigfile
  369.   (set modefile (askchoice
  370.                  (choices "None/Skip" #31KHZ #35KHZ #38KHZ #48KHZ #57KHZ #64KHZ #80KHZ)
  371.                  (prompt (cat #ask-MODEFILE1 boardname #ask-MODEFILE2))
  372.                  (help   (cat #ask-MODEFILE1 boardname #ask-MODEFILE2))
  373.                  (default modefile)
  374.                 )
  375.   )
  376.  
  377.   (if (> modefile 0)
  378.    (
  379.     (if (< (exists "env:CyberGraphX") 2) (makedir "env:CyberGraphX") )    
  380.     (if (< (exists "envarc:CyberGraphX") 2) (makedir "envarc:CyberGraphX") )    
  381.  
  382.     (if (= modefile 1) (set mode "Monitor-31khz")) (if (= modefile 2) (set mode "Monitor-35khz")) 
  383.     (if (= modefile 3) (set mode "Monitor-38khz")) (if (= modefile 4) (set mode "Monitor-48khz")) 
  384.     (if (= modefile 5) (set mode "Monitor-57khz")) (if (= modefile 6) (set mode "Monitor-64khz")) 
  385.     (if (= modefile 7) (set mode "Monitor-80khz")) 
  386.  
  387.     (if (< (exists "sys:prefs") 2) (makedir "sys:prefs") )  
  388.     (if (< (exists "sys:prefs/presets") 2) (makedir "sys:prefs/presets") )  
  389.     (if (< (exists "sys:prefs/presets/monitors") 2) (makedir "sys:prefs/presets/monitors") )    
  390.     (copyfiles (source (cat "prefs/presets/monitors/" mode))  (dest "sys:prefs/presets/monitors")) 
  391.  
  392.     ;(message (cat "setenv CyberGraphX/" boardname "Monitor " mode))
  393.     ;(run (cat "setenv CyberGraphX/" boardname "Monitor " mode))
  394.  
  395.     (delete (cat "env:CyberGraphX/" boardname "Monitor"))
  396.     (textfile (dest (cat "env:CyberGraphX/" boardname "Monitor")) (append mode))
  397.     (copyfiles (source (cat "env:CyberGraphX/" boardname "Monitor"))  (dest "envarc:CyberGraphX") )
  398.    )
  399.   )
  400. )
  401.  
  402. (if (IN board 0) ( (set boardname "MediatorViRGE") (askconfigfile))) 
  403.  
  404.  
  405.  
  406. ;*********************************************************************************
  407. ;* TTs & ENVs 
  408. ;*********************************************************************************
  409. (message #envtt)
  410.  
  411. ;*********************************************************************************
  412. ;* Ask user to install CGXMode 
  413. ;*********************************************************************************
  414. (set toolpick 3)
  415.  
  416.   (set ToDo (askoptions (choices #cgxmode-todo #showcgxconfig)
  417.                         (prompt #todo-prompt)
  418.                         (help #todo-prompt)
  419.                         (default toolpick)
  420.             )
  421.   ) 
  422.  
  423.   (if (IN ToDo 0) 
  424.     ( 
  425.       (set wheremode   (askdir (prompt #wheremode)
  426.                                (help   #wheremode)
  427.                            (default "SYS:Prefs")
  428.                )
  429.       )
  430.  
  431.       (if (exists "CGXMode/CGXMode")
  432.        (if (= (exists (tackon wheremode "CGXMode.info")) 0)
  433.         (copyfiles (source "CGXMode/CGXMode")  (dest wheremode) (infos) (optional "nofail")) 
  434.         (copyfiles (source "CGXMode/CGXMode")  (dest wheremode) (optional "nofail"))          
  435.        )
  436.       )
  437.  
  438.       ;(if (IN board 0) (set TTBOARD "MediatorViRGE") ) 
  439.  
  440.       ;(if (> board 0)
  441.       ;  (tooltype (dest (tackon wheremode "CGXMode")) (settooltype "BOARD" TTBOARD) ) 
  442.       ;)
  443.  
  444.       (if (= @language "deutsch")
  445.        (
  446.          (if (= (exists "Locale:Catalogs") 0) (makedir "sys:Locale/Catalogs") )
  447.          (if (= (exists (tackon "Locale:Catalogs" "deutsch")) 0) (makedir (tackon "sys:Locale/Catalogs" "deutsch")) )
  448.          (if (exists "CGXMode/catalogs/deutsch/cgxmode.catalog")
  449.            (copyfiles (source "CGXMode/catalogs/deutsch/cgxmode.catalog") (dest "sys:Locale/Catalogs/deutsch") )
  450.          )
  451.        )
  452.       )
  453.  
  454.     )
  455.   )
  456.  
  457.  
  458. (if (IN ToDo 1) 
  459.   ( 
  460.     (set whereshowcgxconfig   (askdir (prompt #whereshowcgxconfig)
  461.                              (help   #whereshowcgxconfig)
  462.                          (default "SYS:Tools")
  463.              )
  464.     )
  465.  
  466.     (if (exists "tools/showcgxconfig")
  467.      (if (= (exists (tackon whereshowcgxconfig "CGXMode.info")) 0)
  468.       (copyfiles (source "tools/showcgxconfig")  (dest whereshowcgxconfig) (infos) (optional "nofail")) 
  469.       (copyfiles (source "tools/showcgxconfig")  (dest whereshowcgxconfig) (optional "nofail"))          
  470.      )
  471.     )
  472.  
  473.   )
  474. )
  475.  
  476.  
  477.  
  478.  
  479.  
  480. ;*******************************************************************
  481. ;  END
  482. ;*******************************************************************
  483. (message #cgxv4)
  484.  
  485.  
  486. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  487. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  488.  
  489. (run (cat "run " #mpath "/multiview ReadMe.txt") )
  490.  
  491. (set @default-dest "ram:")
  492.  
  493. (exit)
  494.