home *** CD-ROM | disk | FTP | other *** search
/ Micro R&D 1 / MicroRD-CD-ROM-Vol1-1994.iso / more3d / 3dtools / vertex2_0_demo.lha / Install_Vertex_Demo < prev    next >
Text File  |  1993-07-07  |  5KB  |  229 lines
  1.  
  2. (if (exists "Vertex:" (noreq))
  3.     (
  4.         (set toto (expandpath "Vertex:") )
  5.     )
  6.     (     (set tot 
  7.             (askdir
  8.                 (prompt     "Where should the Vertex directory be created?\n")
  9.                 (help @askdir-help)
  10.                 (default "WORK:")
  11.             )
  12.         )
  13.         (makedir 
  14.             (tackon tot "Vertex") 
  15.             (infos)
  16.         )
  17.         (set toto (tackon tot "Vertex") )
  18.         (makeassign "Vertex" toto (safe) )
  19.     )
  20. )
  21.  
  22. (copyfiles
  23.     (prompt ("Copying program \"Vertex\" to %s" toto) )
  24.     (help @copyfiles-help)
  25.     (source "Vertex")
  26.     (dest "vertex:")
  27.     (pattern "Vertex#?")
  28.     (infos)
  29.     (files)
  30. )
  31.  
  32. (copyfiles
  33.     (prompt ("Copying file \"Quick_Manual.doc\" to %s" toto) )
  34.     (help @copyfiles-help)
  35.     (source "")
  36.     (dest "vertex:")
  37.     (pattern "Quick#?")
  38.     (infos)
  39.     (files)
  40. )
  41.  
  42. (set processor    (database "cpu") )
  43.  
  44. (if (or (= processor "68040") (= processor "68020") (= processor "68030"))
  45.     (if 
  46.     (askbool
  47.         (prompt "\n"
  48.             "Do you have a math co-processor installed?\n"
  49.             "Answering \'Yes\' will copy the file\n"
  50.             "V3D.Library to your LIBS: directory\n"
  51.             "\n"
  52.             "(NOTE: Not all machines have math-coprocessors)\n")
  53.         (help "\n"
  54.             "Vertex needs to know if you have a math co-processor\n"
  55.             "installed in your system.  Answering \'Yes\' will\n"
  56.             "install a V3d.library, which will boost performace\n"
  57.             "since it uses the math co-processor.  If you do not\n"
  58.             "have a math co-processor, then answer \'No\'\n" )
  59.         (choices "Yes" "No")
  60.         (default 0)
  61.     )
  62.     (copyfiles
  63.         (prompt ("Copying program \"Vertex\" to %s" toto) )
  64.         (help @copyfiles-help)
  65.         (source "Libs")
  66.         (dest "Libs:")
  67.         (all)
  68.         (files)
  69.     )
  70.     )
  71. )
  72.  
  73.  
  74.  
  75. (set choice
  76.     (askoptions
  77.         (prompt "What elements would you like installed?")
  78.         (help @askoptions-help)
  79.         (choices 
  80.            " Arexx macros" " Math equations" " Fractal tree parameters"
  81.            " Sample import files" " Sample objects" )
  82.         (default 31)
  83.     )
  84. )
  85.  
  86. (if     (bitand choice 1)
  87.         (    (makedir "Vertex:Rexxy"
  88.                 (prompt "Creating \"Vertex:Rexxy\" directory.")
  89.                 (help @makedir-help)
  90.                 (infos))
  91.             (copyfiles
  92.                 (prompt ("Copying Arexx scripts to Verrex:Rexxy") )
  93.                 (help @copyfiles-help)
  94.                 (source "Vertex/Rexxy")
  95.                 (dest "Vertex:Rexxy")
  96.                 (all)
  97.                 (files))
  98.             (copyfiles
  99.                 (Prompt "copying icon .info files")
  100.                 (help @copyfiles-help)
  101.                 (source "Vertex/Rexxy.info")
  102.                 (dest "Vertex:")
  103.             )
  104.         )
  105. )
  106.  
  107. (if     (bitand choice 2)
  108.         (    (makedir "Vertex:Equations"
  109.                 (prompt "Creating \"Vertex:Equations\" directory.")
  110.                 (help @makedir-help)
  111.                 (infos))
  112.             (copyfiles
  113.                 (prompt ("Copying  files to Vertex:Equations") )
  114.                 (help @copyfiles-help)
  115.                 (source "Vertex/Equations")
  116.                 (dest "Vertex:Equations")
  117.                 (all)
  118.                 (files))
  119.             (copyfiles
  120.                 (Prompt "copying icon .info files")
  121.                 (help @copyfiles-help)
  122.                 (source "Vertex/Equations.info")
  123.                 (dest "Vertex:")
  124.             )
  125.         )
  126. )
  127.  
  128. (if (bitand choice 4)
  129.         (    (makedir "Vertex:Trees"
  130.                 (prompt "Creating \"Vertex:Trees\" directory.")
  131.                 (help @makedir-help)
  132.                 (infos))
  133.             (copyfiles
  134.                 (prompt ("Copying Tree files to Verrex:Trees") )
  135.                 (help @copyfiles-help)
  136.                 (source "Vertex/Trees")
  137.                 (dest "Vertex:Trees")
  138.                 (all)
  139.                 (files))
  140.             (copyfiles
  141.                 (Prompt "copying icon .info files")
  142.                 (help @copyfiles-help)
  143.                 (source "Vertex/Trees.info")
  144.                 (dest "Vertex:")
  145.             )
  146.         )
  147. )
  148.  
  149. (if (bitand choice 8)
  150.         (    (makedir "Vertex:Import"
  151.                 (prompt "Creating \"Vertex:Import\" directory.")
  152.                 (help @makedir-help)
  153.                 (infos))
  154.             (copyfiles
  155.                 (prompt ("Copying Tree files to Verrex:Import") )
  156.                 (help @copyfiles-help)
  157.                 (source "Vertex/Import")
  158.                 (dest "Vertex:Import")
  159.                 (all)
  160.                 (files))
  161.             (copyfiles
  162.                 (Prompt "copying icon .info files")
  163.                 (help @copyfiles-help)
  164.                 (source "Vertex/Import.info")
  165.                 (dest "Vertex:")
  166.             )
  167.         )
  168. )
  169.  
  170. (if (bitand choice 16)
  171.         (    (makedir "Vertex:Objects"
  172.                 (prompt "Creating \"Vertex:Objects\" directory.")
  173.                 (help @makedir-help)
  174.                 (infos))
  175.             (copyfiles
  176.                 (prompt ("Copying Tree files to Vertex:Objects") )
  177.                 (help @copyfiles-help)
  178.                 (source "Vertex/Objects")
  179.                 (dest "Vertex:Objects")
  180.                 (all)
  181.                 (files))
  182.             (copyfiles
  183.                 (Prompt "copying icon .info files")
  184.                 (help @copyfiles-help)
  185.                 (source "Vertex/Objects.info")
  186.                 (dest "Vertex:")
  187.             )
  188.         )
  189. )
  190.  
  191. (makedir "FONTS:menu")
  192. (copyfiles
  193.     (prompt "Copying Menu font to your FONTS: directory" )
  194.     (source "Fonts")
  195.     (dest "FONTS:")
  196.     (all)
  197.     (files)
  198. )
  199. (copyfiles
  200.     (prompt "Copying Menu13 font to the FONTS:menu directory" )
  201.     (source "Fonts/Menu")
  202.     (dest "FONTS:")
  203.     (all)
  204.     (files)
  205. )
  206.  
  207. (copyfiles
  208.     (prompt "Installing the default configuration files")
  209.         (source "S")
  210.         (dest "S:")
  211.         (all)
  212.         (files)
  213. )
  214.  
  215. (startup
  216.     "Vertex2.0"
  217.     (command ("Assign Vertex: %s" toto) )
  218.     (prompt    "\n"
  219.                 "To properly install Vertex2.0, a few lines will\n"
  220.                 "need to be added to your S:user-startup file\n"
  221.                 "Do you wish to proceed?")
  222.     (help        "This will add an assignment to your s:user-startup\n"
  223.                 "file so Vertex can always locate the Vertex: device.\n")
  224.  
  225. )
  226.  
  227.  
  228. (set @default-dest toto)
  229.