home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / DGRAF / FRAIN196.ZIP / FRACT19.BAT < prev    next >
DOS Batch File  |  1997-04-25  |  11KB  |  345 lines
  1. @echo off
  2.  
  3. set mode_1280=1280
  4. set mode_1600=1600
  5. set gifdir=?
  6.  
  7. rem
  8. rem                           +---------------+
  9. rem                           ! Select images !
  10. rem                           +---------------+
  11.  
  12. :select_images
  13. cls
  14. echo                      FRACT19.PAR generating batch file
  15. echo                      -+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
  16. echo.
  17. if not %gifdir%==? goto si1
  18.  
  19. echo    I don't know the path for your .gif files.  Please, add it to the 5th line
  20. echo  of this file (e.g.  set gifdir=gifs  or:  set gifdir=c:\fract\gifs)
  21. echo.
  22. goto end
  23.  
  24. :si1
  25. if not %gifdir%=="" set gifdir=%gifdir%\
  26. echo                          Select a set of images
  27. echo                          ----------------------
  28. echo     1 - Images for Fractint 19.3
  29. echo         5 images:  Achute, Aguay, Lumber, Maculated_1, Zorro.
  30. echo     2 - Images for Fractint 19.3
  31. echo         5 images:  30,000-Feet, Ant, Barnsleyj2-manh, Barnsleyj2-manr, Chip.
  32. echo     3 - Images for Fractint 19.3
  33. echo         5 images:  Fractint, Newton-real, Threeply, TileJulia, TileMandel.
  34. echo     4 - Images for Fractint 19.3
  35. echo         4 images:  Caverns_Of_Mongue, Mandel-virus, NutcrackerMonsters,
  36. echo                    Sliced-Tomato.
  37. echo     5 - Images for Fractint 19.4
  38. echo         4 images:  Graphs, G-3-03-M, Spirals, Jdsg410.
  39. echo     6 - Images for Fractint 19.5
  40. echo         2 images:  Ptcmjn01, Ptc4m01.
  41. echo     7 - New Images for Fractint 19.6
  42. echo         3 images:  EJ_01 Oortcld SG8-21-12
  43. echo     8 - Exit
  44. choice /n /c:12345678 "                   Your selection: "
  45. if errorlevel 8 goto END
  46. if errorlevel 7 goto 19_6_1
  47. if errorlevel 6 goto 19_5_1
  48. if errorlevel 5 goto 19_4_1
  49. if errorlevel 4 goto 19_3_4
  50. if errorlevel 3 goto 19_3_3
  51. if errorlevel 2 goto 19_3_2
  52. if errorlevel 1 goto 19_3_1
  53.  
  54. :19_3_1
  55. set pars=1
  56. goto select_video
  57. :19_3_2
  58. set pars=2
  59. goto select_video
  60. :19_3_3
  61. set pars=3
  62. goto select_video
  63. :19_3_4
  64. set pars=4
  65. goto select_video
  66. :19_4_1
  67. set pars=5
  68. goto select_video
  69. :19_5_1
  70. set pars=6
  71. goto select_video
  72. :19_6_1
  73. set pars=7
  74.  
  75. rem                           +--------------+
  76. rem                           ! Select video !
  77. rem                           +--------------+
  78.  
  79. :select_video
  80. cls
  81. if %pars%==1 echo                Total time: 10 minutes at 1024x768 on a P166
  82. if %pars%==2 echo                Total time: 4 mins 30 s at 1024x768 on a P166
  83. if %pars%==3 echo                Total time: 10 minutes at 1024x768 on a P166
  84. if %pars%==4 echo                Total time: 24 minutes at 1024x768 on a P166
  85. if %pars%==5 echo                Total time: 12 minutes at 1024x768 on a P166
  86. if %pars%==6 echo                Total time: 11 minutes at 1024x768 on a P166
  87. if %pars%==7 echo                Total time: 14 minutes at 1024x768 on a P166
  88. echo.
  89. echo     Use this table to get an idea of the calculation time on your computer:
  90. echo +---------+----------+----------+----------+----------+-----------+-----------+
  91. echo !         ! 320x200  ! 640x480  ! 800x600  ! 1024x768 ! 1280x1024 ! 1600x1200 !
  92. echo +---------+----------+----------+----------+----------+-----------+-----------+
  93. echo ! DX2-66  ! t / 2.9  ! t x 1.7  ! t x 2.7  ! t x 4.3  ! t x 7.2   ! t x 10.5  !
  94. echo +---------+----------+----------+----------+----------+-----------+-----------+
  95. echo ! DX4-100 ! t / 3.8  ! t x 1.2  !  t x 2   ! t x 3.2  ! t x 5.3   ! t x 7.8   !
  96. echo +---------+----------+----------+----------+----------+-----------+-----------+
  97. echo !  P-100  ! t / 8.2  ! t / 1.7  ! t / 1.1  ! t x 1.5  ! t x 2.5   ! t x 3.7   !
  98. echo +---------+----------+----------+----------+----------+-----------+-----------+
  99. echo !  P-166  ! t / 12.3 ! t / 2.6  ! t / 1.6  !  t = 1   ! t x 1.7   ! t x 2.5   !
  100. echo +---------+----------+----------+----------+----------+-----------+-----------+
  101. echo                            Select a video mode
  102. echo                            -------------------
  103. echo                            1 - 320 x 200 (F3)
  104. echo                            2 - 640 x 480 (SF5)
  105. echo                            3 - 800 x 600 (SF6)
  106. echo                            4 - 1024 x 768 (SF7)
  107. echo                            5 - 1280 x 1024
  108. echo                            6 - 1600 x 1200
  109. echo                            7 - Exit
  110. choice /n /c:1234567 "                           Your selection: "
  111. if errorlevel 7 goto end
  112. if errorlevel 6 goto 1600x1200
  113. if errorlevel 5 goto 1280x1024
  114. if errorlevel 4 goto 1024x768
  115. if errorlevel 3 goto 800x600
  116. if errorlevel 2 goto 640x480
  117. if errorlevel 1 goto 320x200
  118.  
  119. :320x200
  120. set video=F3
  121. goto credits
  122. :640x480
  123. set video=SF5
  124. goto credits
  125. :800x600
  126. set video=SF6
  127. goto credits
  128. :1024x768
  129. set video=SF7
  130. goto credits
  131. :1280x1024
  132. set video=%mode_1280%
  133. if %mode_1280%==1280 goto viderrmsg
  134. goto credits
  135. :1600x1200
  136. set video=%mode_1600%
  137. if %mode_1600%==1600 goto viderrmsg
  138.  
  139. :credits
  140. echo.
  141. echo        Fractint batch file for FRACT19.PAR created with PARtoBAT 3.3
  142. echo               from Michael Peters (100041.247@compuserve.com)
  143. echo.
  144. echo     Command file written by Sylvie Gallet (101324.3444@compuserve.com)
  145. pause
  146.  
  147. rem                      +------------------------+
  148. rem                      ! Images for 19.3 part 1 !
  149. rem                      +------------------------+
  150.  
  151. :19_3_1_g
  152. if not %pars%==1 goto 19_3_2_g
  153. IF EXIST %gifdir%ACHUTE.GIF GOTO 2
  154. FRACTINT video=%video% @FRACT19.PAR/ACHUTE BATCH=YES SAVENAME=ACHUTE
  155. IF ERRORLEVEL 2 GOTO ABORT
  156. :2
  157. IF EXIST %gifdir%AGUAY.GIF GOTO 3
  158. FRACTINT video=%video% @FRACT19.PAR/AGUAY BATCH=YES SAVENAME=AGUAY
  159. IF ERRORLEVEL 2 GOTO ABORT
  160. :3
  161. IF EXIST %gifdir%LUMBER.GIF GOTO 4
  162. FRACTINT video=%video% @FRACT19.PAR/LUMBER BATCH=YES SAVENAME=LUMBER
  163. IF ERRORLEVEL 2 GOTO ABORT
  164. :4
  165. IF EXIST %gifdir%MACULATE.GIF GOTO 5
  166. FRACTINT video=%video% @FRACT19.PAR/MACULATED_1 BATCH=YES SAVENAME=MACULATE
  167. IF ERRORLEVEL 2 GOTO ABORT
  168. :5
  169. IF EXIST %gifdir%ZORRO.GIF GOTO 6
  170. FRACTINT video=%video% @FRACT19.PAR/ZORRO BATCH=YES SAVENAME=ZORRO
  171. IF ERRORLEVEL 2 GOTO ABORT
  172. :6
  173. goto SUCCESS
  174.  
  175. rem                      +------------------------+
  176. rem                      ! Images for 19.3 part 2 !
  177. rem                      +------------------------+
  178.  
  179. :19_3_2_g
  180. if not %pars%==2 goto 19_3_3_g
  181. IF EXIST %gifdir%30_000_F.GIF GOTO 7
  182. FRACTINT video=%video% @FRACT19.PAR/30,000-FEET BATCH=YES SAVENAME=30_000_F
  183. IF ERRORLEVEL 2 GOTO ABORT
  184. :7
  185. IF EXIST %gifdir%ANT.GIF GOTO 8
  186. FRACTINT video=%video% @FRACT19.PAR/ANT BATCH=YES SAVENAME=ANT
  187. IF ERRORLEVEL 2 GOTO ABORT
  188. :8
  189. IF EXIST %gifdir%BARNSL-H.GIF GOTO 9
  190. FRACTINT video=%video% @FRACT19.PAR/BARNSLEYJ2-MANH BATCH=YES SAVENAME=BARNSL-H
  191. IF ERRORLEVEL 2 GOTO ABORT
  192. :9
  193. IF EXIST %gifdir%BARNSL-R.GIF GOTO 10
  194. FRACTINT video=%video% @FRACT19.PAR/BARNSLEYJ2-MANR BATCH=YES SAVENAME=BARNSL-R
  195. IF ERRORLEVEL 2 GOTO ABORT
  196. :10
  197. IF EXIST %gifdir%CHIP.GIF GOTO 11
  198. FRACTINT video=%video% @FRACT19.PAR/CHIP BATCH=YES SAVENAME=CHIP
  199. IF ERRORLEVEL 2 GOTO ABORT
  200. :11
  201. goto SUCCESS
  202.  
  203. rem                      +------------------------+
  204. rem                      ! Images for 19.3 part 3 !
  205. rem                      +------------------------+
  206.  
  207. :19_3_3_g
  208. if not %pars%==3 goto 19_3_4_g
  209. IF EXIST %gifdir%FRACTINT.GIF GOTO 12
  210. FRACTINT video=%video% @FRACT19.PAR/FRACTINT BATCH=YES SAVENAME=FRACTINT
  211. IF ERRORLEVEL 2 GOTO ABORT
  212. :12
  213. IF EXIST %gifdir%NEWTON_R.GIF GOTO 13
  214. FRACTINT video=%video% @FRACT19.PAR/NEWTON-REAL BATCH=YES SAVENAME=NEWTON_R
  215. IF ERRORLEVEL 2 GOTO ABORT
  216. :13
  217. IF EXIST %gifdir%THREEPLY.GIF GOTO 14
  218. FRACTINT video=%video% @FRACT19.PAR/THREEPLY BATCH=YES SAVENAME=THREEPLY
  219. IF ERRORLEVEL 2 GOTO ABORT
  220. :14
  221. IF EXIST %gifdir%TILEJULI.GIF GOTO 15
  222. FRACTINT video=%video% @FRACT19.PAR/TILEJULIA BATCH=YES SAVENAME=TILEJULI
  223. IF ERRORLEVEL 2 GOTO ABORT
  224. :15
  225. IF EXIST %gifdir%TILEMAND.GIF GOTO 16
  226. FRACTINT video=%video% @FRACT19.PAR/TILEMANDEL BATCH=YES SAVENAME=TILEMAND
  227. IF ERRORLEVEL 2 GOTO ABORT
  228. :16
  229. goto SUCCESS
  230.  
  231. rem                      +------------------------+
  232. rem                      ! Images for 19.3 part 4 !
  233. rem                      +------------------------+
  234.  
  235. :19_3_4_g
  236. if not %pars%==4 goto 19_4_1_g
  237. IF EXIST %gifdir%CAVERNS.GIF GOTO 17
  238. FRACTINT video=%video% @FRACT19.PAR/CAVERNS_OF_MONGUE BATCH=YES SAVENAME=CAVERNS
  239. IF ERRORLEVEL 2 GOTO ABORT
  240. :17
  241. IF EXIST %gifdir%MANDEL_V.GIF GOTO 18
  242. FRACTINT video=%video% @FRACT19.PAR/MANDEL-VIRUS BATCH=YES SAVENAME=MANDEL_V
  243. IF ERRORLEVEL 2 GOTO ABORT
  244. :18
  245. IF EXIST %gifdir%NUTCRACK.GIF GOTO 19
  246. FRACTINT video=%video% @FRACT19.PAR/NUTCRACKERMONSTERS BATCH=YES SAVENAME=NUTCRACK
  247. IF ERRORLEVEL 2 GOTO ABORT
  248. :19
  249. IF EXIST %gifdir%SLICED_T.GIF GOTO 20
  250. FRACTINT video=%video% @FRACT19.PAR/SLICED-TOMATO BATCH=YES SAVENAME=SLICED_T
  251. IF ERRORLEVEL 2 GOTO ABORT
  252. :20
  253. GOTO SUCCESS
  254.  
  255. rem                         +-----------------+
  256. rem                         ! Images for 19.4 !
  257. rem                         +-----------------+
  258.  
  259. :19_4_1_g
  260. if not %pars%==5 goto 19_5_1_g
  261. IF EXIST %gifdir%GRAPHS.GIF GOTO 22
  262. FRACTINT video=%video% @FRACT19.PAR/GRAPHS BATCH=YES SAVENAME=GRAPHS
  263. IF ERRORLEVEL 2 GOTO ABORT
  264. :22
  265. IF EXIST %gifdir%SPIRALS.GIF GOTO 23
  266. FRACTINT video=%video% @FRACT19.PAR/SPIRALS BATCH=YES SAVENAME=SPIRALS
  267. IF ERRORLEVEL 2 GOTO ABORT
  268. :23
  269. IF EXIST %gifdir%G-3-03-M.GIF GOTO 24
  270. FRACTINT video=%video% @FRACT19.PAR/G-3-03-M BATCH=YES SAVENAME=G-3-03-M
  271. IF ERRORLEVEL 2 GOTO ABORT
  272. :24
  273. IF EXIST %gifdir%jdsg410.GIF GOTO 25
  274. FRACTINT video=%video% @FRACT19.PAR/jdsg4101 BATCH=YES SAVENAME=jdsg410
  275. IF ERRORLEVEL 2 GOTO ABORT
  276. :25
  277. goto SUCCESS
  278.  
  279. rem                         +-----------------+
  280. rem                         ! Images for 19.5 !
  281. rem                         +-----------------+
  282.  
  283. :19_5_1_g
  284. if not %pars%==6 goto 19_6_1_g
  285. IF EXIST %gifdir%PTCMJN01.GIF GOTO 26
  286. FRACTINT video=%video% @FRACT19.PAR/PTCMJN01 BATCH=YES SAVENAME=PTCMJN01
  287. IF ERRORLEVEL 2 GOTO ABORT
  288. :26
  289. IF EXIST %gifdir%PTC4M01.GIF GOTO 27
  290. FRACTINT video=%video% @FRACT19.PAR/PTC4M01 BATCH=YES SAVENAME=PTC4M01
  291. IF ERRORLEVEL 2 GOTO ABORT
  292. :27
  293. goto SUCCESS
  294.  
  295. rem                         +-----------------+
  296. rem                         ! Images for 19.6 !
  297. rem                         +-----------------+
  298.  
  299. :19_6_1_g
  300. if not %pars%==7 goto end
  301. IF EXIST %gifdir%EJ_01.GIF GOTO 28
  302. FRACTINT video=%video% @FRACT19.PAR/EJ_01 BATCH=YES SAVENAME=EJ_01
  303. IF ERRORLEVEL 2 GOTO ABORT
  304. :28
  305. IF EXIST %gifdir%oortcld.GIF GOTO 29
  306. FRACTINT video=%video% @FRACT19.PAR/oortcld BATCH=YES SAVENAME=oortcld
  307. IF ERRORLEVEL 2 GOTO ABORT
  308. :29
  309. IF EXIST %gifdir%sg82112.GIF GOTO 30
  310. FRACTINT video=%video% @FRACT19.PAR/sg8-21-12 BATCH=YES SAVENAME=sg82112
  311. IF ERRORLEVEL 2 GOTO ABORT
  312. :30
  313. goto SUCCESS
  314.  
  315. rem                              +------+
  316. rem                              ! Exit !
  317. rem                              +------+
  318.  
  319. :viderrmsg
  320. echo.
  321. echo  Oops! I don't know the key assigned to your %video% video mode!
  322. echo.
  323. if %video%==1280 echo  Please, add it to the 3rd line of this file (e.g. set mode_%video%=cf9)
  324. if %video%==1600 echo  Please, add it to the 4th line of this file (e.g. set mode_%video%=cf9)
  325. echo.
  326. pause
  327. goto end
  328.  
  329. :SUCCESS
  330. cls
  331. echo.
  332. ECHO  FRACT19.BAT successfully completed.
  333. GOTO END
  334.  
  335. :ABORT
  336. rem cls
  337. echo.
  338. ECHO  FRACT19.BAT aborted!
  339.  
  340. :END
  341. echo.
  342. echo  Have a nice day!
  343. echo.
  344. pause
  345.