home *** CD-ROM | disk | FTP | other *** search
/ ftptest.leeds.ac.uk / 2015.02.ftptest.leeds.ac.uk.tar / ftptest.leeds.ac.uk / bionet / biochem / g-prot.tbk (.txt) < prev    next >
Asymetrix ToolBook File  |  1993-12-14  |  67KB  |  655 lines
  1. --The business 
  2. actually 
  3. the screen image 
  4. file 
  5. --done 
  6. Ha small peice 
  7. code.
  8. Mfunction 
  9. given a
  10. zwhich identifies 
  11. X"catchdib.dll"
  12.         WORD SaveWindowAsDIB( 
  13. , STRING )
  14.     -- A message defined 
  15. "" parameter swtches off
  16. saving.
  17. resetdibseries ""
  18.     --This DLL 
  19. xneeded anymore so unlink 
  20. -- defines 
  21. 'base' 
  22. files 
  23. create
  24. -- If 
  25. example "temp" a 
  26. '"temp0.
  27. ", "temp1.
  28. " etc. 
  29. created
  30. also resets 
  31. counter 
  32. U( n ) < 6
  33. DIBSeriesName 
  34. DIBSeriesCount 
  35. --Sending 
  36. causes 
  37. toolbook 
  38. be saved
  39. a RLE compressed device independant bitmap.
  40. Be warned that 
  41. a very simple algorithm 
  42. only works 
  43. fblocks 
  44. solid colour i.e.
  45. Shand column 
  46. colours 
  47. ,tray.
  48. You can 
  49.  other
  50. %but they will 
  51.  well.
  52. may be 10kbytes 
  53. :switch 
  54. pale 
  55. might 
  56. 100s 
  57. --If no 
  58. nothing 
  59. --always called 
  60. be switched off 
  61. Hclearing 
  62. savenextdib
  63. Zfilename
  64. 8& ".DIB"
  65. SaveWindowAsDib( sysClientHandle, 
  66. takes 
  67. {(named 
  68. puts 
  69. --point on 
  70. angled 
  71. startPath o, p
  72. Zi, v, s
  73. endPath o, p
  74. Zi, v, s, n
  75. (n-1) 
  76. a LIST 
  77. }are moved 
  78. each 
  79. coresponding path.
  80. After 
  81. used 
  82. followPath o, p
  83. Zi, j, v, s, xoffsets, yoffsets, maxpoints
  84. ( o ) 
  85. ( p )
  86. "Error: invalid parameters passed 
  87. out vector between 
  88. Scorner 
  89. centre.
  90. ( o )
  91. p ) > 
  92.     --Now 
  93. <    movement 
  94. ( o )
  95. i <= 
  96. reversePath o, p
  97. Zi, j, v, s, 
  98. ( o ) 
  99. ( p )
  100. ( o )
  101. p ) > 
  102. ( o )-1) 
  103. i <= 
  104. showpaths 
  105. ' hides 
  106. lines on 
  107. current 
  108. P' shows 
  109. handy 
  110. cdeveloping.
  111. Zo, i
  112. ( o )
  113. series
  114. savenextdib
  115. leavebook
  116. startPath
  117. endPath
  118. enterbook
  119. followPath
  120. resetdibseries
  121. reversePath
  122. showpaths
  123. enterbook
  124. catchdib.dll
  125. SaveWindowAsDIB
  126. -wresetdibseries
  127. leavebook
  128. catchdib.dll
  129. resetdibseries
  130. DIBSeriesName
  131. DIBSeriesName
  132. DIBSeriesCount
  133. savenextdib
  134. DIBSeriesName
  135. DIBSeriesName
  136. DIBSeriesCount
  137. SaveWindowAsDib
  138. DIBSeriesCount
  139. filename
  140. startPath
  141. endPath
  142. followPath
  143. Error: invalid parameters passed to followPath message.
  144. savenextdib
  145. j:to1
  146. xoffsets
  147. yoffsets
  148. maxpoints
  149. reversePath
  150. Error: invalid parameters passed to followPath message.
  151. savenextdib
  152. j:by1
  153. j:to1
  154. xoffsets
  155. yoffsets
  156. maxpoints
  157. showpaths
  158. the buttons
  159. B"animate"
  160. B"filename"
  161. 0various 
  162. "bound_receptor"
  163. "beta_gamma"
  164. "alpha"
  165. startpath (
  166. "ligand"),(
  167. "path_a")
  168. "a"),(
  169. "path_b")
  170. "thingy"),(
  171. "path_e")
  172. image
  173. savenextdib
  174.     -- bring two 
  175. }across 
  176. screen
  177. followpath "
  178.     -- dock 
  179. path_a2"
  180. za little jiggle 
  181. conformational change
  182. "path_c")
  183. "path_d")
  184.     --Move three 
  185. about on 
  186. inside 
  187. membrane.
  188.     --That's 
  189. %far 
  190. %I've inlcuded here.
  191. resetdibseries ""
  192. buttonup
  193. buttonup
  194. animate
  195. filename
  196. bound_receptor
  197. beta_gamma
  198. alpha
  199. startpath
  200. ligand
  201. path_a
  202. ligand
  203. startpath
  204. path_b
  205. startpath
  206. thingy
  207. path_e
  208. savenextdib
  209. followpath
  210. group a,irregularpolygon ligand
  211. angledline path_b,angledline path_a
  212. followpath
  213. irregularpolygon ligand
  214. angledline path_a2
  215. ligand
  216. savenextdib
  217. ligand
  218. savenextdib
  219. ligand
  220. savenextdib
  221. bound_receptor
  222. startpath
  223. beta_gamma
  224. path_c
  225. beta_gamma
  226. startpath
  227. alpha
  228. path_d
  229. alpha
  230. savenextdib
  231. followpath
  232. group beta_gamma,group alpha,group thingy
  233. angledline path_c,angledline path_d,angledline path_e
  234. animate
  235. filename
  236. -wresetdibseries
  237. Animate
  238. ligand
  239. bound_receptor
  240. beta_gamma
  241. alpha
  242. path_b
  243. path_c
  244. path_d
  245. thingy
  246. path_a
  247. path_a2
  248. path_e
  249. animate
  250. Set File Name
  251. ("Enter the base file 
  252. p(E.g. temp)"
  253. resetdibseries 
  254. buttonup
  255. buttonup
  256. Enter the base file name (E.g. temp)
  257. filename
  258. ("Enter the base file 
  259. p(E.g. temp - 
  260. actual filename will be tempxyz.dib)."
  261. resetdibseries 
  262. buttonup
  263. buttonup
  264. Enter the base file name (E.g. temp - the actual filename will be tempxyz.dib).
  265. -wresetdibseries
  266. Notes
  267. The next page of this file has the animation on it.  There are two places where you should look at scripts.
  268. The book script has utility routines for moving objects along paths and for save the page image to file automatically.
  269. The 'animate' button script has the actual commands for moving the objects around.  At any given time some objects are hidden.  The command 'show objects of this page' will show everything.  Some objects may be off page - use 'move group "alpha" to 0,0' to move an object to the top left of the page.
  270. The 'Set File Name' button sets a filename.  Use this before you click on the 'animate' button to save the animation to disk.  The bitmap files can be loaded directly into Video for Windows.
  271. Good Luck!
  272. P.S. BioNet members
  273. Animation by Jon Maber for BioNet.
  274. ligand
  275. bound_receptor
  276. beta_gamma
  277. alpha
  278. path_b
  279. path_c
  280. path_d
  281. thingy
  282. path_a
  283. path_a2
  284. path_e
  285. animate
  286. Set File Name
  287. "Enter the base file 
  288. p(E.g. temp)"
  289. resetdibseries 
  290. buttonup
  291. buttonup
  292. Enter the base file name (E.g. temp)
  293. -wresetdibseries
  294. filename
  295. the buttons
  296. B"animate"
  297. B"filename"
  298. 0various 
  299. "bound_receptor"
  300. "beta_gamma"
  301. "alpha"
  302. startpath (
  303. "ligand"),(
  304. "path_a")
  305. "a"),(
  306. "path_b")
  307. "thingy"),(
  308. "path_e")
  309. image
  310. savenextdib
  311.     -- bring two 
  312. }across 
  313. screen
  314. followpath "
  315.     -- dock 
  316. path_a2"
  317. za little jiggle 
  318. conformational change
  319. "path_c")
  320. "path_d")
  321.     --Move three 
  322. about on 
  323. inside 
  324. membrane.
  325.     --That's 
  326. %far 
  327. %I've inlcuded here.
  328. buttonup
  329. buttonup
  330. animate
  331. filename
  332. bound_receptor
  333. beta_gamma
  334. alpha
  335. startpath
  336. ligand
  337. path_a
  338. ligand
  339. startpath
  340. path_b
  341. startpath
  342. thingy
  343. path_e
  344. savenextdib
  345. followpath
  346. group a,irregularpolygon ligand
  347. angledline path_b,angledline path_a
  348. followpath
  349. irregularpolygon ligand
  350. angledline path_a2
  351. ligand
  352. savenextdib
  353. ligand
  354. savenextdib
  355. ligand
  356. savenextdib
  357. bound_receptor
  358. startpath
  359. beta_gamma
  360. path_c
  361. beta_gamma
  362. startpath
  363. alpha
  364. path_d
  365. alpha
  366. savenextdib
  367. followpath
  368. group beta_gamma,group alpha,group thingy
  369. angledline path_c,angledline path_d,angledline path_e
  370. animate
  371. filename
  372. savenextdib
  373. System
  374. mes New Roman
  375. DIBSeriesCount
  376. Times New Roman
  377. iesName
  378. Times New Roman
  379. BlackChancery
  380. Times New Roman
  381. molecule
  382. resetdibseries "memb"
  383. "molecule"
  384. savenextdib
  385. startpath 
  386. "path_a"
  387. followpath
  388. "path_b"
  389. buttonup
  390. buttonup
  391. -wresetdibseries
  392. molecule
  393. savenextdib
  394. startpath
  395. molecule
  396. path_a
  397. followpath
  398. molecule
  399. path_a
  400. molecule
  401. startpath
  402. molecule
  403. path_b
  404. savenextdib
  405. savenextdib
  406. savenextdib
  407. molecule
  408. savenextdib
  409. followpath
  410. molecule
  411. path_b
  412. savenextdib
  413. Button
  414. path_a
  415. path_b
  416. Animation by Jon Maber for BioNet
  417.  J Maber 19933333
  418. path_a
  419. path_b
  420. Button
  421. molecule_a
  422. molecule_b
  423. molecule_a
  424. followpath 
  425. "molecule_a", 
  426. "path_a"
  427. "molecule_b", 
  428. "path_b"
  429. "molecule_c", 
  430. "path_c"
  431. buttonup
  432. buttonup
  433. followpath
  434. molecule_a
  435. path_a
  436. followpath
  437. molecule_b
  438. path_b
  439. followpath
  440. molecule_c
  441. path_c
  442. Button
  443. path_a
  444. molecule_b
  445. path_b
  446. molecule_c
  447. path_c
  448.     set sysLockScr
  449. X"catchdib.dll"
  450.         WORD SaveWindowAsDIB( 
  451. , STRING )
  452. resetdibseries ""
  453. U( n ) < 6
  454. DIBSeriesName 
  455. DIBSeriesCount 
  456. savenextdib
  457. Zfilename
  458. 8& ".
  459. SaveWindowAsDib( sysClientHandle, 
  460. startPath o, p
  461. Zi, v, s
  462. endPath o, p
  463. Zi, v, s, n
  464. (n-1) 
  465. followPath o, p
  466. Zi, j, v, s, xoffsets, yoffsets, maxpoints
  467. ( o ) 
  468. ( p )
  469. "Error: invalid parameters passed 
  470. vmessage."
  471. ( o )
  472. p ) > 
  473. ( o )
  474. i <= 
  475. reversePath o, p
  476. Zi, v, s
  477. p )-1) 
  478. showpaths x
  479. Zo, i
  480. ( o )
  481. series
  482. savenextdib
  483. leavebook
  484. startPath
  485. endPath
  486. enterbook
  487. followPath
  488. resetdibseries
  489. reversePath
  490. showpaths
  491. enterbook
  492. catchdib.dll
  493. SaveWindowAsDIB
  494. -wresetdibseries
  495. leavebook
  496. catchdib.dll
  497. resetdibseries
  498. DIBSeriesName
  499. DIBSeriesName
  500. DIBSeriesCount
  501. savenextdib
  502. DIBSeriesName
  503. DIBSeriesName
  504. DIBSeriesCount
  505. SaveWindowAsDib
  506. DIBSeriesCount
  507. filename
  508. startPath
  509. endPath
  510. followPath
  511. Error: invalid parameters passed to followPath message.
  512. savenextdib
  513. j:to1
  514. xoffsets
  515. yoffsets
  516. maxpoints
  517. reversePath
  518. savenextdib
  519. showpaths
  520. path_a
  521. path_g
  522. Button
  523. molecule
  524.     `    B    
  525.     `    B    
  526. >'#    3
  527. path_b
  528. path_c
  529. path_e
  530. path_f
  531. path_d
  532. path_g
  533. path_a
  534. Button
  535. molecule
  536.     `    B    
  537.     `    B    
  538. path_b
  539. path_c
  540. path_e
  541. path_f
  542. path_d
  543. "bound_receptor"
  544. "beta_gamma"
  545. "alpha"
  546. startpath (
  547. "ligand"),(
  548. "path_a")
  549. "a"),(
  550. "path_b")
  551. "thingy"),(
  552. "path_e")
  553. savenextdib
  554. followpath "
  555. path_a2"
  556. "path_c")
  557. "path_d")
  558. buttonup
  559. buttonup
  560. bound_receptor
  561. beta_gamma
  562. alpha
  563. startpath
  564. ligand
  565. path_a
  566. ligand
  567. startpath
  568. path_b
  569. startpath
  570. thingy
  571. path_e
  572. savenextdib
  573. followpath
  574. group a,irregularpolygon ligand
  575. angledline path_b,angledline path_a
  576. followpath
  577. irregularpolygon ligand
  578. angledline path_a2
  579. ligand
  580. savenextdib
  581. ligand
  582. savenextdib
  583. ligand
  584. savenextdib
  585. bound_receptor
  586. startpath
  587. beta_gamma
  588. path_c
  589. beta_gamma
  590. startpath
  591. alpha
  592. path_d
  593. alpha
  594. savenextdib
  595. followpath
  596. group beta_gamma,group alpha,group thingy
  597. angledline path_c,angledline path_d,angledline path_e
  598. startpath 
  599. "molecule", 
  600. "path_a"
  601. followpath
  602. "c", 
  603. "path_b"
  604. "c", 
  605. "d", 
  606. "path_c"
  607. "d", 
  608. "e", 
  609. "path_d"
  610. "e", 
  611. "f", 
  612. "path_e"
  613. "f", 
  614. "g", 
  615. "path_f"
  616. "g", 
  617. "path_g"
  618. buttonup
  619. buttonup
  620. startpath
  621. molecule
  622. path_a
  623. molecule
  624. followpath
  625. molecule
  626. path_a
  627. molecule
  628. startpath
  629. path_b
  630. followpath
  631. path_b
  632. startpath
  633. path_c
  634. followpath
  635. path_c
  636. startpath
  637. path_d
  638. followpath
  639. path_d
  640. startpath
  641. path_e
  642. followpath
  643. path_e
  644. startpath
  645. path_f
  646. followpath
  647. path_f
  648. startpath
  649. molecule
  650. path_g
  651. molecule
  652. followpath
  653. molecule
  654. path_g
  655.