--The business actually the screen image file --done Ha small peice code. Mfunction given a zwhich identifies X"catchdib.dll" WORD SaveWindowAsDIB( , STRING ) -- A message defined "" parameter swtches off saving. resetdibseries "" --This DLL xneeded anymore so unlink -- defines 'base' files create -- If example "temp" a '"temp0. ", "temp1. " etc. created also resets counter U( n ) < 6 DIBSeriesName DIBSeriesCount --Sending causes toolbook be saved a RLE compressed device independant bitmap. Be warned that a very simple algorithm only works fblocks solid colour i.e. Shand column colours ,tray. You can other %but they will well. may be 10kbytes :switch pale might 100s --If no nothing --always called be switched off Hclearing savenextdib Zfilename 8& ".DIB" SaveWindowAsDib( sysClientHandle, takes {(named puts --point on angled startPath o, p Zi, v, s endPath o, p Zi, v, s, n (n-1) a LIST }are moved each coresponding path. After used followPath o, p Zi, j, v, s, xoffsets, yoffsets, maxpoints ( o ) ( p ) "Error: invalid parameters passed out vector between Scorner centre. ( o ) p ) > --Now < movement ( o ) i <= reversePath o, p Zi, j, v, s, ( o ) ( p ) ( o ) p ) > ( o )-1) i <= showpaths ' hides lines on current P' shows handy cdeveloping. Zo, i ( o ) series savenextdib leavebook startPath endPath enterbook followPath resetdibseries reversePath showpaths enterbook catchdib.dll SaveWindowAsDIB -wresetdibseries leavebook catchdib.dll resetdibseries DIBSeriesName DIBSeriesName DIBSeriesCount savenextdib DIBSeriesName DIBSeriesName DIBSeriesCount SaveWindowAsDib DIBSeriesCount filename startPath endPath followPath Error: invalid parameters passed to followPath message. savenextdib j:to1 xoffsets yoffsets maxpoints reversePath Error: invalid parameters passed to followPath message. savenextdib j:by1 j:to1 xoffsets yoffsets maxpoints showpaths the buttons B"animate" B"filename" 0various "bound_receptor" "beta_gamma" "alpha" startpath ( "ligand"),( "path_a") "a"),( "path_b") "thingy"),( "path_e") image savenextdib -- bring two }across screen followpath " -- dock path_a2" za little jiggle conformational change "path_c") "path_d") --Move three about on inside membrane. --That's %far %I've inlcuded here. resetdibseries "" buttonup buttonup animate filename bound_receptor beta_gamma alpha startpath ligand path_a ligand startpath path_b startpath thingy path_e savenextdib followpath group a,irregularpolygon ligand angledline path_b,angledline path_a followpath irregularpolygon ligand angledline path_a2 ligand savenextdib ligand savenextdib ligand savenextdib bound_receptor startpath beta_gamma path_c beta_gamma startpath alpha path_d alpha savenextdib followpath group beta_gamma,group alpha,group thingy angledline path_c,angledline path_d,angledline path_e animate filename -wresetdibseries Animate ligand bound_receptor beta_gamma alpha path_b path_c path_d thingy path_a path_a2 path_e animate Set File Name ("Enter the base file p(E.g. temp)" resetdibseries buttonup buttonup Enter the base file name (E.g. temp) filename ("Enter the base file p(E.g. temp - actual filename will be tempxyz.dib)." resetdibseries buttonup buttonup Enter the base file name (E.g. temp - the actual filename will be tempxyz.dib). -wresetdibseries Notes The next page of this file has the animation on it. There are two places where you should look at scripts. The book script has utility routines for moving objects along paths and for save the page image to file automatically. 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. 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. Good Luck! P.S. BioNet members Animation by Jon Maber for BioNet. ligand bound_receptor beta_gamma alpha path_b path_c path_d thingy path_a path_a2 path_e animate Set File Name "Enter the base file p(E.g. temp)" resetdibseries buttonup buttonup Enter the base file name (E.g. temp) -wresetdibseries filename the buttons B"animate" B"filename" 0various "bound_receptor" "beta_gamma" "alpha" startpath ( "ligand"),( "path_a") "a"),( "path_b") "thingy"),( "path_e") image savenextdib -- bring two }across screen followpath " -- dock path_a2" za little jiggle conformational change "path_c") "path_d") --Move three about on inside membrane. --That's %far %I've inlcuded here. buttonup buttonup animate filename bound_receptor beta_gamma alpha startpath ligand path_a ligand startpath path_b startpath thingy path_e savenextdib followpath group a,irregularpolygon ligand angledline path_b,angledline path_a followpath irregularpolygon ligand angledline path_a2 ligand savenextdib ligand savenextdib ligand savenextdib bound_receptor startpath beta_gamma path_c beta_gamma startpath alpha path_d alpha savenextdib followpath group beta_gamma,group alpha,group thingy angledline path_c,angledline path_d,angledline path_e animate filename savenextdib System mes New Roman DIBSeriesCount Times New Roman iesName Times New Roman BlackChancery Times New Roman molecule resetdibseries "memb" "molecule" savenextdib startpath "path_a" followpath "path_b" buttonup buttonup -wresetdibseries molecule savenextdib startpath molecule path_a followpath molecule path_a molecule startpath molecule path_b savenextdib savenextdib savenextdib molecule savenextdib followpath molecule path_b savenextdib Button path_a path_b Animation by Jon Maber for BioNet J Maber 19933333 path_a path_b Button molecule_a molecule_b molecule_a followpath "molecule_a", "path_a" "molecule_b", "path_b" "molecule_c", "path_c" buttonup buttonup followpath molecule_a path_a followpath molecule_b path_b followpath molecule_c path_c Button path_a molecule_b path_b molecule_c path_c set sysLockScr X"catchdib.dll" WORD SaveWindowAsDIB( , STRING ) resetdibseries "" U( n ) < 6 DIBSeriesName DIBSeriesCount savenextdib Zfilename 8& ". SaveWindowAsDib( sysClientHandle, startPath o, p Zi, v, s endPath o, p Zi, v, s, n (n-1) followPath o, p Zi, j, v, s, xoffsets, yoffsets, maxpoints ( o ) ( p ) "Error: invalid parameters passed vmessage." ( o ) p ) > ( o ) i <= reversePath o, p Zi, v, s p )-1) showpaths x Zo, i ( o ) series savenextdib leavebook startPath endPath enterbook followPath resetdibseries reversePath showpaths enterbook catchdib.dll SaveWindowAsDIB -wresetdibseries leavebook catchdib.dll resetdibseries DIBSeriesName DIBSeriesName DIBSeriesCount savenextdib DIBSeriesName DIBSeriesName DIBSeriesCount SaveWindowAsDib DIBSeriesCount filename startPath endPath followPath Error: invalid parameters passed to followPath message. savenextdib j:to1 xoffsets yoffsets maxpoints reversePath savenextdib showpaths path_a path_g Button molecule ` B ` B >'# 3 path_b path_c path_e path_f path_d path_g path_a Button molecule ` B ` B path_b path_c path_e path_f path_d "bound_receptor" "beta_gamma" "alpha" startpath ( "ligand"),( "path_a") "a"),( "path_b") "thingy"),( "path_e") savenextdib followpath " path_a2" "path_c") "path_d") buttonup buttonup bound_receptor beta_gamma alpha startpath ligand path_a ligand startpath path_b startpath thingy path_e savenextdib followpath group a,irregularpolygon ligand angledline path_b,angledline path_a followpath irregularpolygon ligand angledline path_a2 ligand savenextdib ligand savenextdib ligand savenextdib bound_receptor startpath beta_gamma path_c beta_gamma startpath alpha path_d alpha savenextdib followpath group beta_gamma,group alpha,group thingy angledline path_c,angledline path_d,angledline path_e startpath "molecule", "path_a" followpath "c", "path_b" "c", "d", "path_c" "d", "e", "path_d" "e", "f", "path_e" "f", "g", "path_f" "g", "path_g" buttonup buttonup startpath molecule path_a molecule followpath molecule path_a molecule startpath path_b followpath path_b startpath path_c followpath path_c startpath path_d followpath path_d startpath path_e followpath path_e startpath path_f followpath path_f startpath molecule path_g molecule followpath molecule path_g