home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b005 / 2.ddi / ARTTBK.ZIP / ARTTBK.TBK (.txt) < prev   
Encoding:
Asymetrix ToolBook File  |  1990-06-13  |  37.3 KB  |  416 lines
  1. Tms Rmn
  2. t-PC 1.0 for ToolBook
  3. Art-PC 1.12 for ToolBook
  4. G_D|D|
  5. G_D|D|
  6. Tms Rmn
  7. G_D|D|
  8. System
  9. Tms Rmn
  10. `D|D|
  11. Tms Rmn
  12. `D|D|
  13. `D|D|
  14. `D|D|
  15. `D|D|
  16. 4iterations
  17. 4endtime
  18. 4autoreset
  19. 4fillInsides
  20. -10,-43,650,485
  21. X"tbkwin.dll"
  22. yieldapp()
  23. enterBook
  24. enterBook
  25. tbkwin.dll
  26. yieldapp
  27. fillInsides
  28. autoreset
  29. endtime
  30. iterations
  31. `D|D|
  32. 4iterations
  33. 4endtime
  34. 4autoreset
  35. 4fillInsides
  36. -10,-43,650,485
  37. X"tbkwin.dll"
  38. yieldapp()
  39. X"user"
  40. GetTickCount()
  41. enterBook
  42. enterBook
  43. tbkwin.dll
  44. yieldapp
  45. GetTickCount
  46. fillInsides
  47. autoreset
  48. endtime
  49. iterations
  50. color
  51. 0,100,0
  52.        Art-PC for ToolBook (ArtTBK)
  53.                                       Art-PC Help and User Documentationnnnnnnnnnnn
  54. Art-PC is Public Domain Software. I encourage you to share and distribute it freely. Please let me know how you like it (or if you have any questions or comments) by writing to me at:
  55.                                     Martin Knowles
  56.                                     11020 NE 64th St.
  57.                                     Kirkland, WA 98033
  58. or by sending a message to me through my dad's Compuserve account: Walt Knowles, 71001,3354. I can be contacted also through the Neighborhood BBS (206) 641-3908: MARTIN KNOWLES.
  59. If you are running Art-PC on monochrome VGA (like me) and find that there are some problems, feel free to edit my code and see if you can find a way to fix it. If so, please tell me so I can implement it in the next release (it's all learning, right?).
  60. Using Art-PC
  61.      In the DOS versions of Art-PC, some people have asked "What's a shape group?". Shape groups are groups of the same shape which form a pattern. They can be any size or shape. In this version, some are what are called "dual" shape groups. These involve double plotting.
  62.      Auto-Reset is a handy thing if you are using Art-PC as a screen saver. This means that at the end of the cycles, instead of bringing up the "Design finished: Ok, Restart, Quit" dialog box, the program clears the background and the design generation starts over.
  63.      The Fill Spaces option fills the spaces between individual shapes in a group. Some people (like me) think that filling the spaces is ugly. You may like it (that's why I left it in). If it is off, the shapes look more seperate and whatever you previously had under the new shapes shows through.
  64.      
  65. buttonup
  66. buttonup
  67. Return to main screen
  68. 4svHelpRead
  69. buttonup
  70. buttonup
  71. svHelpRead
  72. filcolor
  73. white
  74. ENTERPAGE
  75. 0,75,0
  76. (GetTickCount()
  77. k32767)
  78. (360),50,50
  79. 4fillInsides
  80. 4endtime
  81. 4iterations
  82. 4autoreset
  83. ="Cancel" 
  84. vhue 
  85. (280)
  86. strokeHue 
  87. (vHue+
  88. +40) 
  89. strokehue,50,100
  90. "Yes" 
  91. (360),50,100
  92. (9750),
  93. (7200)
  94. (10)+3
  95. FillColor 
  96. (360),50,50
  97. fbar 
  98. (4000)
  99. (6000)
  100. incrementer 
  101. (200)
  102. x > 5
  103. y > 5
  104. (20)+11
  105. < -2500 
  106. < -2500 
  107. > 12000 
  108. > 7000
  109. "down" 
  110. "Quit?" 
  111. f"Ok" 
  112. "Restart" 
  113. getParms 
  114. yieldapp()
  115. "Design finished." 
  116. f"Ok" 
  117. GetParms 
  118. "Ok" 
  119. ENTERPAGE
  120. ENTERPAGE
  121. GetTickCount
  122. Cancel
  123. background
  124. strokehue
  125. Quit?
  126. Restart
  127. Cancel
  128. Restart
  129. clear
  130. oqpgetParms
  131. yieldapp
  132. clear
  133. background
  134. clear
  135. foreground
  136. Design finished.
  137. Restart
  138. Restart
  139. oqpGetParms
  140. background
  141. clear
  142. foreground
  143. i:to1
  144. incrementer
  145. strokeHue
  146. autoreset
  147. iterations
  148. endtime
  149. fillInsides
  150. llInsides
  151. ncrementer
  152. strokeHue
  153. autoreset
  154. iterations
  155. endtime
  156. fillInsides
  157. filcolor
  158. white
  159. nactiveTitle=0 64 128
  160. TitleText
  161. clear
  162. author
  163. Quit?
  164. Restart
  165. Cancel
  166. Restart
  167. clear
  168. enterbook
  169. clear
  170. Design finished.
  171. Restart
  172. Restart
  173. enterBook
  174. i:to1
  175. autoreset
  176. iterations
  177. endtime
  178. fillInsides
  179. C0bbaR
  180. rpage
  181. enterpage
  182. Art-PC for ToolBookrt-PC for Toolbookkkkkkkk
  183. Lightning Software Systems presents
  184.                        Version .1
  185.        Martin Knowles
  186.                   Special thanks to Walt Knowles
  187.        Martin Knowles
  188.                   Special thanks to Walt Knowleswles
  189. :PHYSSIZE
  190. llllllllllllllll
  191. nlnlnlnlnlnlnlnl
  192. llllllllllllllll
  193. nlllnlllnlllnlll
  194. llllllllllllllll
  195. nlnlnlnlnlnlnlnl
  196. llllllllllllllll
  197. nlllnlllnlllnlll
  198. llllllllllllllll
  199. nlnlnlnlnlnlnlnl
  200. llllllllllllllll
  201. nlllnlllnlllnlll
  202. llllllllllllllll
  203. nlnlnlnlnlnlnlnl
  204. llllllllllllllll
  205. nlllnlllnlllnlll
  206. llllllllllllllll
  207. nlnlnlnlnlnlnlnl
  208. llllllllllllllll
  209. nlllnlllnlllnlll
  210. llllllllllllllll
  211. LLLLLLLLLLLLLLLL
  212. LLLLLLLLLLLLLLLL
  213. LLLLLLLLLLLLLLLL
  214. LLLLLLLLLLLLLLLLL
  215. DDDDDDDDDDDDDDDDDD
  216. DDDDDDDDDDDDDDDDDD
  217. DDDDDDDDDDDDDDDDDDDDDDDDDIDDDDDDDDDDDDDDDD
  218. DDDDDDDDDDDDDDDDDDDDDDDDD
  219. DDDDDDDDDDDDDDD
  220. DDDDDDDDDDDDDDDDDDDDDDDDD
  221. DDDDDDDDDDDDDDD
  222. DDDDDDDDDDDDDDDDDDDDDDDDIDDDDDDDDDDDDDDDD
  223. DDDDDDDDDDDDDDDDDDDDDDDD
  224. DDDDDDDDDDDDDDDD
  225. DDDDDDDDDDDDDDDDDDDDDDDDIDDDDDDDDDDDDDDDD
  226. DDDDDDDDDDDDDDDDDDDDDDDDD
  227. DDDDDDDDDDDDDDD
  228. DDDDDDDDDDDDDDDDDDDDDDDDDIDDDDDDDDDDDDDDD
  229. DDDDDDDDDDDDDDDDDDDDDDDDDD
  230. DDDDDDDDDDDDDD
  231. DDDDDDDDDDDDDDDDDDDDDDDDDD
  232. DDDDDDDDDDDDDD
  233. DDDDDDDDDDDDDDDDDDDDDDDDDIDDDDDDDDDDDDDDD
  234. DDDDDDDDDDDDDDDDDDDDDDDDD
  235. DDDDDDDDDDDDDDD
  236. DDDDDDDDDDDDDDDDDDDDDDDDDIDDDDDDDDDDDDDDD
  237. DDDDDDDDDDDDDDDDDDDDDDDDD
  238. DDDDDDDDDDDDDDD
  239. 4svHelpRead
  240. "Would you like 
  241. read the help?" 
  242. f"Yes" 
  243. "yes"
  244. getParms
  245. 4autoreset,endtime,fillinsides
  246. want 
  247. ("Clear/Restart 
  248. how many shape 
  249. "Cancel" 
  250. "Fill spaces between shapes?" 
  251. fillInsides 
  252. enterpage
  253. getParms
  254. enterpage
  255. Would you like to read the help?
  256. qpgetParms
  257. svHelpRead
  258. getParms
  259. Do you want auto-reset?
  260. Clear/Restart after how many shape groups?
  261. Cancel
  262. cancel
  263. Fill spaces between shapes?
  264. fillInsides
  265. autoreset
  266. endtime
  267. fillinsides
  268. Tms Rmn
  269. t-PC 1.0 for ToolBook
  270. Art-PC 1.12 for ToolBook
  271. G_D|D|
  272. G_D|D|
  273. Tms Rmn
  274. G_D|D|
  275. System
  276. Tms Rmn
  277. `D|D|
  278. Tms Rmn
  279. `D|D|
  280. `D|D|
  281. `D|D|
  282. `D|D|
  283. 4iterations
  284. 4endtime
  285. 4autoreset
  286. 4fillInsides
  287. -10,-43,650,485
  288. X"tbkwin.dll"
  289. yieldapp()
  290. enterBook
  291. enterBook
  292. tbkwin.dll
  293. yieldapp
  294. fillInsides
  295. autoreset
  296. endtime
  297. iterations
  298. `D|D|
  299. 4iterations
  300. 4endtime
  301. 4autoreset
  302. 4fillInsides
  303. -10,-43,650,485
  304. X"tbkwin.dll"
  305. yieldapp()
  306. X"user"
  307. GetTickCount()
  308. KEYESCAPE
  309. "Do you want 
  310. quit?" 
  311. f"OK" 
  312. "Cancel"
  313. enterBook
  314. keydown
  315. enterBook
  316. tbkwin.dll
  317. yieldapp
  318. GetTickCount
  319. fillInsides
  320. autoreset
  321. endtime
  322. iterations
  323. keydown
  324. Do you want to quit?
  325. Cancel
  326.  B j 
  327. !H!t!
  328. filcolor
  329. white
  330. rpage
  331. enterpage
  332. Art-PC for ToolBookrt-PC for Toolbookkkkkkkk
  333. Lightning Software Systems presents
  334.                        Version .1
  335.        Martin Knowles
  336.                   Special thanks to Walt Knowles
  337.        Martin Knowles
  338.                   Special thanks to Walt Knowleswles
  339. :PHYSSIZE
  340. llllllllllllllll
  341. nlnlnlnlnlnlnlnl
  342. llllllllllllllll
  343. nlllnlllnlllnlll
  344. llllllllllllllll
  345. nlnlnlnlnlnlnlnl
  346. llllllllllllllll
  347. nlllnlllnlllnlll
  348. llllllllllllllll
  349. nlnlnlnlnlnlnlnl
  350. llllllllllllllll
  351. nlllnlllnlllnlll
  352. llllllllllllllll
  353. nlnlnlnlnlnlnlnl
  354. llllllllllllllll
  355. nlllnlllnlllnlll
  356. llllllllllllllll
  357. nlnlnlnlnlnlnlnl
  358. llllllllllllllll
  359. nlllnlllnlllnlll
  360. llllllllllllllll
  361. LLLLLLLLLLLLLLLL
  362. LLLLLLLLLLLLLLLL
  363. LLLLLLLLLLLLLLLL
  364. LLLLLLLLLLLLLLLLL
  365. DDDDDDDDDDDDDDDDDD
  366. DDDDDDDDDDDDDDDDDD
  367. DDDDDDDDDDDDDDDDDDDDDDDDDIDDDDDDDDDDDDDDDD
  368. DDDDDDDDDDDDDDDDDDDDDDDDD
  369. DDDDDDDDDDDDDDD
  370. DDDDDDDDDDDDDDDDDDDDDDDDD
  371. DDDDDDDDDDDDDDD
  372. DDDDDDDDDDDDDDDDDDDDDDDDIDDDDDDDDDDDDDDDD
  373. DDDDDDDDDDDDDDDDDDDDDDDD
  374. DDDDDDDDDDDDDDDD
  375. DDDDDDDDDDDDDDDDDDDDDDDDIDDDDDDDDDDDDDDDD
  376. DDDDDDDDDDDDDDDDDDDDDDDDD
  377. DDDDDDDDDDDDDDD
  378. DDDDDDDDDDDDDDDDDDDDDDDDDIDDDDDDDDDDDDDDD
  379. DDDDDDDDDDDDDDDDDDDDDDDDDD
  380. DDDDDDDDDDDDDD
  381. DDDDDDDDDDDDDDDDDDDDDDDDDD
  382. DDDDDDDDDDDDDD
  383. DDDDDDDDDDDDDDDDDDDDDDDDDIDDDDDDDDDDDDDDD
  384. DDDDDDDDDDDDDDDDDDDDDDDDD
  385. DDDDDDDDDDDDDDD
  386. DDDDDDDDDDDDDDDDDDDDDDDDDIDDDDDDDDDDDDDDD
  387. DDDDDDDDDDDDDDDDDDDDDDDDD
  388. DDDDDDDDDDDDDDD
  389. "Would you like 
  390. read the help?" 
  391. f"Yes" 
  392. "yes"
  393. getParms
  394. 4autoreset,endtime,fillinsides
  395. want 
  396. ("Clear/Restart 
  397. how many shape 
  398. "Cancel" 
  399. "Fill spaces between shapes?" 
  400. fillInsides 
  401. enterpage
  402. getParms
  403. enterpage
  404. Would you like to read the help?
  405. qpgetParms
  406. getParms
  407. Do you want auto-reset?
  408. Clear/Restart after how many shape groups?
  409. Cancel
  410. cancel
  411. Fill spaces between shapes?
  412. fillInsides
  413. autoreset
  414. endtime
  415. fillinsides
  416.