home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / windows / multimed.zip / DVA-4000.TBK (.txt) < prev    next >
Asymetrix ToolBook File  |  1990-05-17  |  79KB  |  1,875 lines
  1. video(set key color
  2. Sets the color to be used for chroma key (the color that will be transparent to video).  <key color> is either a number from 0 to 15, corresponding to palette entries, or one of the following (matching solid colors of the ToolBook color palette):
  3. black                dark red        red
  4. white                dark green        green
  5. dark grey   (default)        dark yellow        yellow
  6. none                dark blue        blue
  7. all                dark magenta        magenta
  8.                 dark cyan        cyan
  9. Example:  get video("set key color", "dark grey")
  10. Note that currently only black, white and dark grey work reliably with the DVA-4000 board and software before MIC 3.3. and Windows 3.0 rC7.t recognize the default Windows 3.0 palette settings.  This will be corrected.
  11. video("set key color, <key color>)
  12. disable 
  13. "Previous" 
  14. enable 
  15. adjust x --**
  16. -- reset proportions 
  17. moved
  18. objs 
  19. -15, 
  20. -15, 
  21. -15,\
  22. -15, 
  23. -15, 
  24. -15, 
  25. - 15,\
  26. defBounds 
  27. setCaption what
  28. 0,50.1875,0
  29. nterpage
  30. adjust
  31. setCaption
  32. previous
  33. disable
  34. enterpage
  35. enable
  36. enterpage
  37. ox%disable
  38. Previous
  39. enable
  40. Previous
  41. previous
  42. adjust
  43. defBounds
  44. setCaption
  45. disable
  46. enable
  47. 0,0,0
  48. title
  49. odefBounds
  50. adjust 
  51. buttonUp
  52. buttonDown
  53. buttonUp
  54. buttonDown
  55. defBounds
  56. adjust
  57. 6    defBounds
  58. 5670,4680,6885,5085
  59. Go Back 
  60. odefBounds
  61. adjust 
  62. buttonUp
  63. buttonDown
  64. buttonUp
  65. buttonDown
  66. defBounds
  67. adjust
  68. defBounds
  69. 30,4650,1395,5085
  70. Demo 
  71. Previous
  72. odefBounds
  73. adjust 
  74. buttonUp
  75. buttonDown
  76. buttonUp
  77. previous
  78. buttonDown
  79. defBounds
  80. adjust
  81. defBounds
  82. 3090,4680,4305,5085
  83. Previous 
  84. odefBounds
  85. adjust 
  86. buttonUp
  87. buttonDown
  88. buttonUp
  89. buttonDown
  90. defBounds
  91. adjust
  92. defBounds
  93. 4410,4680,5580,5085
  94. Next 
  95. Reference
  96. /"reference"
  97. odefBounds
  98. adjust 
  99. buttonUp
  100. buttonDown
  101. buttonUp
  102. reference
  103. buttonDown
  104. defBounds
  105. adjust
  106. defBounds
  107. 1485,4665,2715,5085
  108. Reference 
  109. The script of this book contains general purpose functions to control a full motion digital video adapter.  This specific book is dedicated to the Videologic DVA-4000, but another book with the same functions could control another board.  The script, controls and features of the first page are included as examples of the kinds of things you can do by calling the functions in the script of this book.
  110. Typically, the way to use this book is by including it in the system variable sysBooks to make its functions available to your application. For instance, the enterBook handler in the script of your application book could contain the statement "push DVA-4000.TBK onto sysBooks".  You can use more than one system book at the same time; for instance, another system book could contain the functions to control a videodisc player, and yet another one could contain handlers and functions for a test scoring system.
  111. and functions for a test scoring system.
  112. ions for a test scoring system.
  113. How to use this book with your application
  114. All video control is through one function, video, which you call with different arguments.
  115. A typical call to video is in the form
  116.     get video(<command>[, <parameter>])
  117. Some of the calls require the parameter; a few don't.  See the reference section of this book for details.
  118. Function calls to video() return 1 if successfull, -1 if they failed.  Typical causes of errors would be that video("open") was not called successfully earlier in the session, or that one of the arguments to the function was illegal or out of range.
  119. Video Control
  120. audioControl(set level
  121. Sets the audio level for both stereo channels.  <level> is any integer number from 0 to 255.  0 is no sound, 255 is maximum volume.
  122. The system variable s_audio_level   is set to the current audio level. 
  123. video("fade in")   sets it to 255 , and video("fade out")   sets it to 0 .
  124. audioControl("set level",<level>)
  125. audioControl(set level
  126. video(close)
  127. video(Fade in[
  128. video(Freeze)
  129. video(set level
  130. video(Initialize)
  131. video(Open)
  132. video(Zoom
  133. video(set inset
  134. video(set key color
  135. video("set frame mode")
  136. video("set field mode")
  137. Sets the frame buffer to full frame mode or to field mode.  In some cases, there is a noticeable flicker when a videodisc player is in still frame or playing in slow motion.  When in field mode, the resolution is lower but there will be no flicker in the picture because only one of the two fields that make up a complete frame is sampled.   
  138. System
  139. xproperly initialized 
  140. dvaCmd x
  141. 4s_DVA_Init
  142. s_DVA_Iinit 
  143. "Error: 
  144. jx & CRLF 
  145. -- Initialize 
  146. default settings, but 
  147. fno video
  148. -- shown (chromakey off).
  149.  does 
  150. xrespond,
  151. indicate error.
  152. initDVA
  153. , s_DVA_Key_Color
  154. xMICLoaded() 
  155. "Cannot find 
  156. drivers." &&\
  157. --"Assuming you are 
  158. ]separate monitor 
  159. suspend 
  160. X"tbkwin.dll"
  161. STRING screenFromPage(WORD, 
  162. , INT, 
  163. ,sysMagnification,"0,0")\
  164. TBKWIN.DLL 
  165. xfound 
  166. wrong 
  167. ("!EOFF")
  168. ("FSTORE MODE 0 
  169. COORDS 0,640,480")
  170. 1IREGION 0,3,FULL")
  171. LDPOS 0,3,0,0, RELATIVE")
  172. mWPOS 0,3,0,0")
  173. ("TRANSCOLOUR NONE")
  174. ("FADE 255,1 /V")
  175. BACKGROUND 0,75,75,75")
  176. FullScreen
  177. 4IsFullScreen
  178.  ABSOLUTE")
  179. DSIZE 0,3,
  180. ALL")
  181. setVideoOutRect BoundsRect
  182. -- Turns on 
  183. sets 
  184. which 
  185. being displayed 
  186. %specified 
  187. ToolBook units 
  188. (relative 
  189. can specify "pixels" 
  190. -- Examples:
  191. "Foo")
  192. ("45,67,3460,4567")
  193. ("0,0,640,150 
  194. -- If 
  195. full 
  196. -- If 
  197. invalid, turns off 
  198. 4s_InsetRect, 
  199. "0,0,639,479 
  200. rect 
  201. ) - 1) 
  202. pageToScreen(
  203. G) < 4 
  204. " && 
  205. "," & 
  206. ) && "
  207. " & \
  208. & "," & \
  209. setKeyColor x
  210. -- Sets 
  211. Ocolor 
  212. 16 colors 
  213. palette
  214. -- Unfortunately, only 3 
  215. )seem 
  216. work correctly: 
  217. 5(0),
  218. d(15) 
  219. dark grey (7).
  220. Maybe we'll 
  221. a better trick 
  222. these days.
  223. -- Note: 
  224. change 
  225. xtake effect 
  226. SetVideoOutRect
  227. x >= 0 
  228. x <= 15
  229. Freeze
  230. 4s_DVA_Frozen
  231. DVACmd("
  232. INPUT 0,2,DISABLE")
  233. unFreeze
  234. 2ENABLE")
  235. -- Test that 
  236. Config.sys 
  237. loaded
  238. "mic"
  239. testString 
  240. ) = 1 
  241. -- Now 
  242. "x yx z"
  243. & CR 
  244. "!STATUS" & CR 
  245. P--- 
  246.  checking part 
  247. initDVA
  248. setVideoOutRect
  249. dvaCmd
  250. setKeyColor
  251. FullScreen
  252. Freeze
  253. unFreeze
  254. MICLoaded
  255. dvaCmd
  256. Error: DVA not initialized
  257. s_DVA_Iinit
  258. s_DVA_Init
  259. initDVA
  260. MICLoaded
  261. Error: No DVA drivers
  262. tbkwin.dll
  263. screenFromPage
  264. screenFromPage
  265. Error: TBKWIN.DLL not found or wrong TBKWIN.DLL
  266. dvaCmd
  267. !EOFF
  268. dvaCmd
  269. FSTORE MODE 0 normal
  270. dvaCmd
  271. FSTORE COORDS 0,640,480
  272. dvaCmd
  273. FSTORE IREGION 0,3,FULL
  274. dvaCmd
  275. FSTORE DPOS 0,3,0,0, RELATIVE
  276. dvaCmd
  277. FSTORE WPOS 0,3,0,0
  278. dvaCmd
  279. TRANSCOLOUR NONE
  280. dvaCmd
  281. FADE 255,1 /V
  282. dvaCmd
  283. FSTORE BACKGROUND 0,75,75,75
  284. suspend
  285. s_DVA_Init
  286. s_DVA_Key_Color
  287. FullScreen
  288. FSTORE DPOS 0,3,0,0 ABSOLUTE
  289. dvaCmd
  290. FSTORE DSIZE 0,3,FULL
  291. dvaCmd
  292. TRANSCOLOUR ALL
  293. dvaCmd
  294. IsFullScreen
  295. setVideoOutRect
  296. Full Screen
  297. 0,0,639,479 pixels
  298. pixels
  299. pageToScreen
  300. dvaCmd
  301. TRANSCOLOUR NONE
  302. dvaCmd
  303. TRANSCOLOUR
  304. dvaCmd
  305. FSTORE DPOS 0,3,
  306. ABSOLUTE
  307. dvaCmd
  308. FSTORE DSIZE 0,3,
  309. s_InsetRect
  310. s_DVA_Key_Color
  311. BoundsRect
  312. setKeyColor
  313. s_DVA_Key_Color
  314. Freeze
  315. DVACmd
  316. FSTORE INPUT 0,2,DISABLE
  317. s_DVA_Frozen
  318. unFreeze
  319. DVACmd
  320. FSTORE INPUT 0,2,ENABLE
  321. s_DVA_Frozen
  322. MICLoaded
  323. !EOFF
  324. x yx z
  325. !STATUS
  326. testString
  327. qaB|B|
  328. waB|B|
  329. defsize
  330. 6930,5130
  331. bufferOpen
  332. a video overlay/keying board
  333. -- which can also have audio capabilities
  334. -- The implementation 
  335. specific
  336. DVA4000 
  337. `use 
  338. .same 
  339.  names 
  340. -- arguments, 
  341. fdifferent 
  342.  bodies, 
  343. control other
  344. -- boards
  345. cmd, params
  346. 4s_DVA_Init, s_video_level, s_audio_level, s_frozen
  347. @ <> "Open" 
  348. O <> "Initialize") 
  349. cmd1 
  350. cmd2 
  351. "Close"
  352. InitDVA
  353. "Set"
  354.  < 0 
  355.  > 255
  356. dvaCmd ("FADE" && 
  357.  &",1 /V")
  358. "key"
  359. c"dark" 
  360. c"grey"
  361. "TRANS NONE"
  362. x(isNumber(
  363. s_DVA_Key_Color 
  364. `" && 
  365. "inset"
  366. setVideoOutRect 
  367. "Fade"
  368. "Up" 
  369.  255," & 
  370.  & " /V")
  371. "Down" 
  372.  0," & 
  373.  & " /V")
  374. "Freeze"
  375. freeze
  376. "Unfreeze"
  377. unfreeze
  378. "Zoom"
  379. "In" 
  380. DVAZoom "In", 
  381. "Out"
  382. audioControl 
  383.  < 0 
  384.  > 255
  385.  & ",1 /A1/A2")
  386. -- assume that 
  387. tsysbook 
  388. a videodisc controller
  389. a dangerous assumption, but I can't think 
  390. -- another way 
  391. --== General purpose utilities
  392. suspend 
  393. n + 0
  394. -- Drivers 
  395. Videologic MIC software
  396. -- Sends a 
  397.  driver
  398. -- Will fail 
  399. xproperly initialized 
  400. s_DVA_Iinit 
  401. "Error: 
  402. jx & CRLF 
  403. default settings, 
  404. -- shown (chromakey off).
  405.  does 
  406. xrespond,
  407. indicate error.
  408. initDVA
  409. xMICLoaded() 
  410. "Cannot find 
  411.  drivers." &&\
  412. --"Assuming you are 
  413. ]separate monitor 
  414. X"tbkwin.dll"
  415. STRING screenFromPage(WORD, 
  416. , INT, 
  417. ,sysMagnification,"0,0")\
  418. TBKWIN.DLL 
  419. xfound 
  420. wrong 
  421. !EOFF")
  422. STORE MODE 0 
  423. COORDS 0,640,480")
  424. ,IREGION 0,3,FULL")
  425. EDPOS 0,3,0,0, RELATIVE")
  426. dWPOS 0,3,0,0")
  427. TRANSCOLOUR 
  428.  255,1 /V")
  429. BACKGROUND 0,75,75,75")
  430. FullScreen
  431. 4IsFullScreen
  432. ("FSTORE 
  433.  ABSOLUTE")
  434. DSIZE 0,3,
  435. BoundsRect
  436. -- Turns on 
  437. sets 
  438. being displayed 
  439. %specified 
  440. ToolBook units 
  441. (relative 
  442. specify "pixels" 
  443. -- Examples:
  444. "Foo")
  445. ("45,67,3460,4567")
  446. ("0,0,640,150 
  447. -- If 
  448. full 
  449. -- If 
  450. invalid, turns off 
  451. 4s_InsetRect, s_DVA_Out_rect, 
  452. "0,0,639,479 
  453. ) - 1) 
  454. ) < 4 
  455. s_DVA_Out_Rect 
  456. " && 
  457. "," & 
  458.  && "
  459. " & \
  460.  & "," & \
  461. setKeyColor x
  462. -- Sets 
  463. Ocolor 
  464. 16 colors 
  465. palette
  466. -- Unfortunately, only 3 
  467. )seem 
  468. work correctly: 
  469. 5(0),
  470. d(15) 
  471.  (7).
  472. Maybe we'll 
  473. a better trick 
  474. these days.
  475. -- Note: 
  476. change 
  477. xtake effect 
  478. SetVideoOutRect
  479. x >= 0 
  480. x <= 15
  481. 4s_Frozen
  482. DVACmd("
  483. INPUT 0,2,DISABLE")
  484. unFreeze
  485. 2ENABLE")
  486. x, ZoomRect
  487. 4s_video_zoomed, s_inRect
  488. "In" 
  489. 2," & 
  490. T <> 
  491. -- Test 
  492. Config.sys 
  493. loaded
  494. "mic"
  495. testString 
  496. ) = 1 
  497. -- Now 
  498. "x yx z"
  499. & CR 
  500. "!STATUS" & CR 
  501. P--- 
  502.  checking part 
  503. itDVA
  504. setVideoOutRect
  505. dvaCmd
  506. setKeyColor
  507. FullScreen
  508. Freeze
  509. unFreeze
  510. initDVA
  511. DVAZoom
  512. ontrol
  513. video
  514. isNumber
  515. audioControl
  516. MICLoaded
  517. t    video
  518. Initialize
  519. Initialize
  520. Close
  521. +<InitDVA
  522. level
  523. dvaCmd
  524. ,1 /V
  525. black
  526. white
  527. dvaCmd
  528. TRANS NONE
  529. dvaCmd
  530. TRANS ALL
  531. isNumber
  532. dvaCmd
  533. TRANS
  534. inset
  535. setVideoOutRect
  536. isNumber
  537. dvaCmd
  538. FADE 255,
  539. dvaCmd
  540. FADE 0,
  541. Freeze
  542. freeze
  543. Unfreeze
  544. qunfreeze
  545. KDVAZoom
  546. KDVAZoom
  547. s_DVA_Key_Color
  548. s_DVA_Init
  549. s_video_level
  550. s_audio_level
  551. s_frozen
  552. params
  553. audioControl
  554. level
  555. dvaCmd
  556. ,1 /A1/A2
  557. audio
  558. s_DVA_Init
  559. s_audio_level
  560. params
  561. isNumber
  562. suspend
  563. dvaCmd
  564. Error: DVA not initialized
  565. s_DVA_Iinit
  566. s_DVA_Init
  567. initDVA
  568. MICLoaded
  569. Error: No DVA drivers
  570. tbkwin.dll
  571. screenFromPage
  572. screenFromPage
  573. Error: TBKWIN.DLL not found or wrong TBKWIN.DLL
  574. dvaCmd
  575. !EOFF
  576. dvaCmd
  577. FSTORE MODE 0 normal
  578. dvaCmd
  579. FSTORE COORDS 0,640,480
  580. dvaCmd
  581. FSTORE IREGION 0,3,FULL
  582. dvaCmd
  583. FSTORE DPOS 0,3,0,0, RELATIVE
  584. dvaCmd
  585. FSTORE WPOS 0,3,0,0
  586. dvaCmd
  587. TRANSCOLOUR NONE
  588. dvaCmd
  589. FADE 255,1 /V
  590. dvaCmd
  591. FSTORE BACKGROUND 0,75,75,75
  592. DVA4000
  593. suspend
  594. s_DVA_Init
  595. s_DVA_Key_Color
  596. FullScreen
  597. FSTORE DPOS 0,3,0,0 ABSOLUTE
  598. dvaCmd
  599. FSTORE DSIZE 0,3,FULL
  600. dvaCmd
  601. TRANSCOLOUR ALL
  602. dvaCmd
  603. IsFullScreen
  604. setVideoOutRect
  605. Full Screen
  606. 0,0,639,479 pixels
  607. pixels
  608. screenFromPage
  609. dvaCmd
  610. TRANSCOLOUR NONE
  611. s_DVA_Out_Rect
  612. dvaCmd
  613. TRANSCOLOUR
  614. ;FSTORE DPOS 0,3,
  615. ABSOLUTE
  616. ;FSTORE DSIZE 0,3,
  617. s_InsetRect
  618. s_DVA_Out_rect
  619. s_DVA_Key_Color
  620. BoundsRect
  621. setKeyColor
  622. s_DVA_Key_Color
  623. Freeze
  624. DVACmd
  625. FSTORE INPUT 0,2,DISABLE
  626. s_Frozen
  627. unFreeze
  628. DVACmd
  629. FSTORE INPUT 0,2,ENABLE
  630. s_Frozen
  631. DVAZoom
  632. dvaCmd
  633. FSTORE IREGION 0,2,
  634. dvaCmd
  635. FSTORE IREGION 0,3,FULL
  636. s_video_zoomed
  637. s_inRect
  638. ZoomRect
  639. MICLoaded
  640. !EOFF
  641. x yx z
  642. !STATUS
  643. testString
  644. -- C.O. 5/4/90
  645. -- experiments
  646. loadFrame x
  647. dvaCMD ("fst 
  648.  0 1 :" & x)
  649. saveFrame x
  650. 0 1 :" & x)
  651. --== Housekeeping 
  652. 8only ==--
  653. sysPagesDB 
  654. trim s -- lop off whitespace 
  655. U(s) > 0 
  656. s) <= 32
  657. U(s) > 0 
  658. s) <= 32
  659. filterCtrl s -- 
  660. T< " "
  661. ) >= 32
  662. legalName s, maxL -- 
  663. , s) > 0
  664. ,s)) 
  665. ~(",",s)
  666. p > 0
  667. suspend 
  668. X"TBKWIN.DLL"
  669. INT popMenu(WORD, STRING, 
  670. "titles" 
  671. /"reference"
  672. C(mL)
  673. mL) & CRLF 
  674. lc > 20 
  675. (lc / 2) 
  676. Bi-1 
  677. Y) <> "|"
  678. "|" & 
  679. , sysMagnification,\
  680. --== 
  681. housekeeping ==--
  682. -- Generic functions 
  683. a video overlay/keying board
  684. -- which can also have audio capabilities
  685. -- The implementation 
  686. specific
  687. DVA4000 
  688. -same 
  689.  names 
  690. -- arguments, 
  691. fdifferent 
  692.  bodies, 
  693. control other
  694. -- boards
  695. cmd, params
  696. 4s_DVA_Init, s_video_level, s_audio_level, s_frozen, s_DVA_Key_Color
  697. Q <> "Open" 
  698. ` <> "Initialize") 
  699. cmd1 
  700. cmd2 
  701. "Close"
  702. InitDVA
  703. BufferOpen 
  704. "Set"
  705.  < 0 
  706.  > 255
  707. dvaCmd ("FADE" && 
  708.  &",1 /V")
  709. "frame"
  710. "mode"
  711. <ST DISP 0,3 FRAME")
  712. 7IELD")
  713. "key"
  714. isDark 
  715. c"dark")
  716. c"grey"
  717. "TRANS NONE"
  718. isNumber(
  719.  < 0 
  720.  > 15
  721. " && 
  722. "inset"
  723. setVideoOutRect 
  724. "Fade"
  725. "Up" 
  726.  255," & 
  727.  & " /V")
  728. "Down" 
  729.  0," & 
  730.  & " /V")
  731. "Freeze"
  732. freeze
  733. "Unfreeze"
  734. unfreeze
  735. "Save"
  736. (bufferOpen 
  737. dvacmd("FST BUF RES 64 16")
  738. $SAVE 0 1 :" & 
  739. "Load"
  740. `V 64 16")
  741. wLOAD 0 1 :" & 
  742. "Zoom"
  743. "In" 
  744. DVAZoom "In", 
  745. "Out"
  746. audioControl 
  747.  < 0 
  748.  > 255
  749.  & ",1 /A1/A2")
  750. -- assume that 
  751. tsysbook 
  752. a videodisc controller
  753. a dangerous assumption, but I can't think 
  754. -- another way 
  755. --== General purpose utilities
  756. n + 0
  757. -- Drivers 
  758. Videologic MIC software
  759. -- Sends a 
  760.  driver
  761. -- Will fail 
  762. xproperly initialized 
  763. s_DVA_Iinit 
  764. "Error: 
  765. writeMIC(x & 
  766. jx & 
  767. default settings, 
  768. -- shown (chromakey off).
  769.  does 
  770. xrespond,
  771. indicate error.
  772. initDVA
  773. xMICLoaded() 
  774. "Cannot find 
  775.      drivers." &&\
  776. --"Assuming you are 
  777. ]separate monitor 
  778. X"tbkwin.dll"
  779.  screenFromPage(
  780. INT, 
  781. "0,0")\
  782. xfound 
  783. wrong 
  784. !EOFF")
  785. STORE MODE 0 
  786. COORDS 0,640,480")
  787.     ST HOLD 0:" & \
  788. ;" & \
  789. IREGION 0,3,FULL;" & \
  790. "FSTORE DSIZE 0,3,
  791. DPOS 0,3,0,0, RELATIVE;" &\
  792. WSIZE 0,3,
  793. EWPOS 0,3,0,0;" &\
  794. INPUT 0,3,ENABLE;" & \
  795. OUTPUT 0,3,
  796. RELEASE 0")
  797.     ST BACK 0,0,0,0")
  798.  255,1 /V")
  799. ST enable 0, 1")
  800. sDVA_Key_Color 
  801. xFullScreen
  802. 4IsFullScreen
  803.  ABSOLUTE")
  804. ("TRANSCOLOUR 
  805. BoundsRect
  806. -- Turns on 
  807. sets 
  808. being displayed 
  809. %specified 
  810. ToolBook units 
  811. (relative 
  812. specify "pixels" 
  813. -- Examples:
  814. "Foo")
  815. x    ("45,67,3460,4567")
  816.     ("0,0,640,150 
  817. -- If 
  818. full 
  819. -- If 
  820. invalid, turns 
  821. 4s_InsetRect, s_DVA_Out_rect, 
  822. "0,0,639,479 
  823. " && 
  824.  & ";" & \
  825. ) - 1) 
  826. ) < 4 
  827. s_DVA_Out_Rect 
  828. " && 
  829. "," & 
  830.  && "
  831. " & \
  832.  & "," & \
  833. setKeyColor x
  834. -- Sets 
  835. Ocolor 
  836. 16 colors 
  837. palette
  838. -- Unfortunately, 
  839. 'seem 
  840. work correctly: 
  841. 5(0),
  842. d(15) 
  843.  (7).
  844. Maybe we'll 
  845. a better trick 
  846. these days.
  847. -- Note: 
  848. change 
  849. xtake effect 
  850. SetVideoOutRect
  851. x >= 0 
  852. x <= 15
  853. 4s_Frozen
  854. DVACmd("
  855. DISABLE")
  856. unFreeze b
  857. x, ZoomRect
  858. 4s_video_zoomed, s_inRect
  859. "In" 
  860. 2," & 
  861. T <> 
  862. -- Test 
  863. Config.sys 
  864. loaded
  865. X"mictalk.
  866. WriteMIC(
  867. ReadMIC()
  868.  255,100 /v" & 
  869. readMIC()
  870. D    MicTalk.dll.
  871.  should still 
  872. , but"\
  873. will be a little slower."
  874. testString 
  875. A) = 1 
  876. -- Now 
  877. "x yx z"
  878. "FxADE 0,1,3,5 /V;!STATUS" & 
  879. result:" &&
  880. & ";" && 
  881. P--- 
  882.  checking part 
  883. loadFrame
  884. rightButtonDoubleClick
  885. reader
  886. dvaCmd
  887. author
  888. initDVA
  889. xFullScreen
  890. saveFrame
  891. setVideoOutRect
  892. enterBook
  893. setKeyColor
  894. Freeze
  895. leaveBook
  896. unFreeze
  897. DVAZoom
  898. legalName
  899. video
  900. filterCtrl
  901. audioControl
  902. isNumber
  903. MICLoaded
  904. loadFrame
  905. dvaCMD
  906. fst load 0 1 :
  907. saveFrame
  908. dvaCMD
  909. fst save 0 1 :
  910. reader
  911. sizeToPage
  912. author
  913. sizeToPage
  914. sysPagesDB
  915. enterBook
  916. sysPagesDB
  917. leaveBook
  918. filterCtrl
  919. legalName
  920. filterCtrl
  921. rightButtonDoubleClick
  922. TBKWIN.DLL
  923. popMenu
  924. titles
  925. reference
  926. popMenu
  927. legalName
  928. title
  929. suspend
  930. video
  931. Initialize
  932. Initialize
  933. Close
  934. +<InitDVA
  935. BufferOpen
  936. level
  937. dvaCmd
  938. ,1 /V
  939. frame
  940. dvaCmd
  941. FST DISP 0,3 FRAME
  942. field
  943. dvaCmd
  944. FST DISP 0,3 FIELD
  945. black
  946. white
  947. dvaCmd
  948. TRANS NONE
  949. dvaCmd
  950. TRANS ALL
  951. green
  952. yellow
  953. magenta
  954. isNumber
  955. isNumber
  956. dvaCmd
  957. TRANS
  958. inset
  959. setVideoOutRect
  960. isNumber
  961. dvaCmd
  962. FADE 255,
  963. dvaCmd
  964. FADE 0,
  965. Freeze
  966. freeze
  967. Unfreeze
  968. qunfreeze
  969. bufferOpen
  970. dvacmd
  971. FST BUF RES 64 16
  972. bufferOpen
  973. dvaCmd
  974. FST SAVE 0 1 :
  975. bufferOpen
  976. dvacmd
  977. FST BUF REV 64 16
  978. bufferOpen
  979. dvaCmd
  980. FST LOAD 0 1 :
  981. KDVAZoom
  982. KDVAZoom
  983. isDark
  984. s_DVA_Init
  985. s_video_level
  986. s_audio_level
  987. s_frozen
  988. s_DVA_Key_Color
  989. params
  990. audioControl
  991. level
  992. dvaCmd
  993. ,1 /A1/A2
  994. audio
  995. s_DVA_Init
  996. s_audio_level
  997. params
  998. isNumber
  999. suspend
  1000. dvaCmd
  1001. Error: DVA not initialized
  1002. writeMIC
  1003. s_DVA_Iinit
  1004. s_DVA_Init
  1005. initDVA
  1006. MICLoaded
  1007. Error: No DVA drivers
  1008. tbkwin.dll
  1009. screenFromPage
  1010. screenFromPage
  1011. Error: TBKWIN.DLL not found or wrong TBKWIN.DLL
  1012. dvaCmd
  1013. !EOFF
  1014. dvaCmd
  1015. FSTORE MODE 0 normal
  1016. dvaCmd
  1017. FSTORE COORDS 0,640,480
  1018. dvaCmd
  1019. FST HOLD 0:
  1020. TRANS NONE;
  1021. FST IREGION 0,3,FULL;
  1022. FSTORE DSIZE 0,3,FULL;
  1023. FST DPOS 0,3,0,0, RELATIVE;
  1024. FST WSIZE 0,3,FULL;
  1025. FSTORE WPOS 0,3,0,0;
  1026. FST INPUT 0,3,ENABLE;
  1027. FST OUTPUT 0,3,ENABLE;
  1028. FSTORE RELEASE 0
  1029. dvaCmd
  1030. FST BACK 0,0,0,0
  1031. dvaCmd
  1032. FST DISP 0,3 FRAME
  1033. dvaCmd
  1034. FADE 255,1 /V
  1035. DVA4000
  1036. sDVA_Key_Color
  1037. suspend
  1038. s_DVA_Init
  1039. s_DVA_Key_Color
  1040. xFullScreen
  1041. FSTORE DPOS 0,3,0,0 ABSOLUTE
  1042. dvaCmd
  1043. FSTORE DSIZE 0,3,FULL
  1044. dvaCmd
  1045. TRANSCOLOUR ALL
  1046. dvaCmd
  1047. IsFullScreen
  1048. setVideoOutRect
  1049. Screen
  1050. 0,0,639,479 pixels
  1051. dvaCmd
  1052. FST HOLD 0:
  1053. TRANS
  1054. FST IREGION 0,3,FULL;
  1055. FSTORE DSIZE 0,3,FULL;
  1056. FST DPOS 0,3,0,0, RELATIVE;
  1057. FST WSIZE 0,3,FULL;
  1058. FSTORE WPOS 0,3,0,0;
  1059. FST INPUT 0,3,ENABLE;
  1060. FST OUTPUT 0,3,ENABLE;
  1061. FSTORE RELEASE 0
  1062. pixels
  1063. screenFromPage
  1064. dvaCmd
  1065. TRANS NONE
  1066. s_DVA_Out_Rect
  1067. dvaCmd
  1068. TRANS
  1069. ;FSTORE DPOS 0,3,
  1070. ABSOLUTE
  1071. ;FSTORE DSIZE 0,3,
  1072. s_InsetRect
  1073. s_DVA_Out_rect
  1074. s_DVA_Key_Color
  1075. BoundsRect
  1076. setKeyColor
  1077. s_DVA_Key_Color
  1078. Freeze
  1079. DVACmd
  1080. FSTORE INPUT 0,3,DISABLE
  1081. s_Frozen
  1082. unFreeze
  1083. DVACmd
  1084. FSTORE INPUT 0,3,ENABLE
  1085. s_Frozen
  1086. DVAZoom
  1087. dvaCmd
  1088. FSTORE IREGION 0,2,
  1089. dvaCmd
  1090. FSTORE IREGION 0,3,FULL
  1091. s_video_zoomed
  1092. s_inRect
  1093. ZoomRect
  1094. MICLoaded
  1095. mictalk.dll
  1096. WriteMIC
  1097. ReadMIC
  1098. !EOFF
  1099. writeMIC
  1100. FADE 255,100 /v
  1101. writeMIC
  1102. Cannot find MicTalk.dll.  The video driver should still work, but
  1103. it will be a little slower.
  1104. !EOFF
  1105. x yx z
  1106. FxADE 0,1,3,5 /V;!STATUS
  1107. testString
  1108. suspend
  1109. 4s_video_level, s_audio_level, s_OK
  1110. -- initialize the 
  1111. > board
  1112. I("Open")
  1113. e", 255)
  1114. audioControl("
  1115. ", 200)
  1116. key color", 
  1117. "Cannot 
  1118. . Video controls will have"\
  1119. && "no effect."
  1120. , s_full_flag
  1121. exitFullScreen
  1122. "zoom 
  1123. prompt"
  1124. ", 0)
  1125. ("Close")
  1126. } <> 
  1127. showFullScreen
  1128. , s_norm_b, s_norm_sz, s_video_zoomed, s_old_z
  1129.  Rect"
  1130. 640* 15, 480 * 15
  1131. -3,-22,643,483
  1132. defsize 
  1133. -- While 
  1134. , keep 
  1135.  inset 
  1136. synch 
  1137. -- reference 
  1138. -- Also, adjust 
  1139. slider 
  1140.  thumbs 
  1141. reflect
  1142. %necessary 
  1143. 4s_old_is, s_old_vl, s_old_al, 
  1144. , s_old_f
  1145.  screen")
  1146.  <> s_old_vs
  1147. showSetting (
  1148. /255) 
  1149. /255) 
  1150. setcaption "Zoom Out" 
  1151. -- Special stuff 
  1152. maintain correct proportions, 
  1153. buttons
  1154. -- on 
  1155. cauthoring
  1156. x --**
  1157. -- reset 
  1158. moved
  1159. objs 
  1160. -15, 
  1161. -15, 
  1162. -15,\
  1163. -15, 
  1164. -15, 
  1165. -15, 
  1166. - 15,\
  1167. defBounds 
  1168. setCaption what
  1169. disable
  1170. 0,50.1875,0
  1171. enable
  1172. FullScreen
  1173. leavePage
  1174. exitFullScreen
  1175. enterpage
  1176. adjust
  1177. leaveBook
  1178. setCaption
  1179. disable
  1180. showFullScreen
  1181. enable
  1182. enterpage
  1183. video
  1184. set level
  1185. video
  1186. set level
  1187. audioControl
  1188. set key color
  1189. key color name
  1190. video
  1191. Cannot initialize the DVA board. Video controls will have
  1192. no effect.
  1193. reader
  1194. sizeToPage
  1195. s_video_level
  1196. s_audio_level
  1197. leavePage
  1198. exitFullScreen
  1199. zoom target
  1200. zoom prompt
  1201. set level
  1202. audioControl
  1203. Close
  1204. video
  1205. s_full_flag
  1206. leaveBook
  1207. exitFullScreen
  1208. s_full_flag
  1209. showFullScreen
  1210. full Rect
  1211. zoom target
  1212. zoom prompt
  1213. s_full_flag
  1214. s_norm_b
  1215. s_norm_sz
  1216. s_video_zoomed
  1217. s_old_z
  1218. exitFullScreen
  1219. defsize
  1220. sizeToPage
  1221. full Rect
  1222. s_full_flag
  1223. s_norm_b
  1224. s_norm_sz
  1225. inset rectangle
  1226. set inset
  1227. full screen
  1228. video
  1229. set inset
  1230. video
  1231. showSetting
  1232. thumb 2
  1233. showSetting
  1234. thumb 1
  1235. setcaption
  1236. Zoom Out
  1237. zoom button
  1238. setcaption
  1239. zoom button
  1240. s_old_vs
  1241. s_video_zoomed
  1242. s_old_z
  1243. s_full_flag
  1244. s_old_f
  1245. s_old_is
  1246. s_old_vl
  1247. s_old_al
  1248. s_video_level
  1249. s_audio_level
  1250. adjust
  1251. defBounds
  1252. setCaption
  1253. disable
  1254. enable
  1255. 0,0,0
  1256. 4p8zB
  1257. Full Screen
  1258. ShowFullScreen
  1259. odefBounds
  1260. adjust 
  1261. buttonUp
  1262. buttonDown
  1263. buttonUp
  1264. ShowFullScreen
  1265. buttonDown
  1266. defBounds
  1267. adjust
  1268. defBounds
  1269. 4095,3300,6795,3720
  1270. Full Screen 
  1271. Copyright 
  1272.  1990 Asymetrix Corporation
  1273. field-1
  1274. reset --**
  1275. proportions 
  1276. moved
  1277. - 15, 
  1278. - 15,\
  1279. - 15, 
  1280. -15, 
  1281. reset
  1282. reset
  1283. key color name
  1284. dial (
  1285. keydown
  1286. keydown
  1287. alignment
  1288. centered
  1289. cyan magenta
  1290. Chroma key color
  1291. video("
  1292. key color", 
  1293.  hilite"\
  1294. >- 30,\
  1295. >- 30
  1296. "inset 
  1297. "full rect" 
  1298. "zoom 
  1299. default
  1300. buttonDown
  1301. buttonDown
  1302. name of target?
  1303. set key color
  1304. video
  1305. key color hilite
  1306. key color name
  1307. inset rectangle
  1308. full rect
  1309. zoom target
  1310. 240,50,100
  1311. zoom target
  1312. 0,50,100
  1313. default
  1314. dark grey
  1315. dark green
  1316. dark cyan
  1317. dark blue
  1318. dark magenta
  1319. black
  1320. white
  1321. yellow
  1322. magenta
  1323. green
  1324. dark red
  1325. light grey
  1326. dark yellow
  1327. key color hilite
  1328. Inset Rectangle
  1329. field-1
  1330. reset --**
  1331. proportions 
  1332. moved
  1333. - 15, 
  1334. - 15,\
  1335. - 15, 
  1336. -15, 
  1337. reset
  1338. reset
  1339. phone number
  1340. dial (
  1341. keydown
  1342. keydown
  1343. &alignment
  1344. centered
  1345. C.0. 5/17/90
  1346. video("Freeze")
  1347. odefBounds
  1348. adjust 
  1349. buttonUp
  1350. buttonDown
  1351. buttonUp
  1352. Freeze
  1353. video
  1354. buttonDown
  1355. defBounds
  1356. adjust
  1357. 'defBounds
  1358. 4155,705,6810,1125
  1359. Freeze 
  1360. :)B*;
  1361. video("Unfreeze")
  1362. odefBounds
  1363. adjust 
  1364. buttonUp
  1365. buttonDown
  1366. buttonUp
  1367. Unfreeze
  1368. video
  1369. buttonDown
  1370. defBounds
  1371. adjust
  1372. T*defBounds
  1373. 4155,1140,6810,1560
  1374. Unfreeze 
  1375. video("Fade 
  1376. odefBounds
  1377. adjust 
  1378. buttonUp
  1379. buttonDown
  1380. buttonUp
  1381. Fade in
  1382. video
  1383. buttonDown
  1384. defBounds
  1385. adjust
  1386. ,defBounds
  1387. 4125,2250,6810,2700
  1388. Fade In Video 
  1389. video("Fade out")
  1390. odefBounds
  1391. adjust 
  1392. buttonUp
  1393. buttonDown
  1394. buttonUp
  1395. Fade out
  1396. video
  1397. buttonDown
  1398. defBounds
  1399. adjust
  1400. Z/defBounds
  1401. 4125,2700,6810,3150
  1402. Fade Out Video 
  1403. Zoom button
  1404. 4s_video_zoomed
  1405.  ("Zoom out")
  1406. Target" \
  1407. 3prompt" \
  1408. odefBounds
  1409. adjust 
  1410. buttonUp
  1411. buttonDown
  1412. buttonUp
  1413. Zoom out
  1414. video
  1415. Zoom Target
  1416. Zoom Target
  1417. Zoom prompt
  1418. Zoom target
  1419. s_video_zoomed
  1420. buttonDown
  1421. defBounds
  1422. adjust
  1423. 2defBounds
  1424. 4140,1680,6810,2130
  1425. "ah3d3
  1426. Zoom 
  1427. Inset Rectangle: This rectangle is used as reference for the location and size of the video image keyed into the VGA output.
  1428. slide 1
  1429. reset --**
  1430. proportions 
  1431. moved
  1432. - 15, 
  1433. - 15,\
  1434. - 15, 
  1435. -15, 
  1436. reset
  1437. reset
  1438. 6defpos
  1439. 135,3585
  1440. phone number
  1441. dial (
  1442. keydown
  1443. keydown
  1444. X8alignment
  1445. centered
  1446. thumb 1
  1447. 4s_y_offset, s_def_NumF
  1448. omaxY 
  1449. odefX
  1450. -- recalibrate
  1451. sBnds 
  1452. ("slide" && 
  1453. ominY 
  1454. oheight 
  1455. "0.000"
  1456. old_loc
  1457.  <> s_old_loc
  1458. optional here, depending on how 
  1459. the setting can be done
  1460. setStuff
  1461. -- clean up
  1462. showSetting ratio
  1463. -- Adjust 
  1464. reflect a changed 
  1465. ( I'm tied 
  1466. -- Assumes I am already calibrated 
  1467. c must be a floating point 
  1468. zbetween 0 
  1469. 1 (inclusive)
  1470. ) * (1 - 
  1471. whatever we're supposed 
  1472. according 
  1473. thumb
  1474. 1 - (
  1475. ) / (
  1476. AudioControl("Set Level", 
  1477. (255 * 
  1478. ubleClick
  1479. buttonDown
  1480. buttonStillDown
  1481. buttonUp
  1482. buttonDoubleClick
  1483. showSetting
  1484. setStuff
  1485. buttonDown
  1486. slide
  1487. height
  1488. height
  1489. 0.000
  1490. sBnds
  1491. s_y_offset
  1492. s_def_NumF
  1493. buttonDoubleClick
  1494. buttonDown
  1495. buttonStillDown
  1496. setStuff
  1497. s_y_offset
  1498. s_old_loc
  1499. buttonUp
  1500. setStuff
  1501. s_y_offset
  1502. s_old_loc
  1503. s_def_NumF
  1504. showSetting
  1505. ratio
  1506. setStuff
  1507. Set Level
  1508. AudioControl
  1509. @maxY
  1510. @maxX
  1511. Aheight
  1512. ,A AminY
  1513. FA:AdefX
  1514. fAVAlowest
  1515. 150,4800
  1516. vAhighest
  1517. 150,3600
  1518. slide 2
  1519. reset --**
  1520. proportions 
  1521. moved
  1522. - 15, 
  1523. - 15,\
  1524. - 15, 
  1525. -15, 
  1526. reset
  1527. reset
  1528. Ddefpos
  1529. 135,3585
  1530. phone number
  1531. dial (
  1532. keydown
  1533. keydown
  1534. Ealignment
  1535. centered
  1536. thumb 2
  1537. 4s_y_offset, s_def_NumF
  1538. omaxY 
  1539. odefX
  1540. -- recalibrate
  1541. sBnds 
  1542. ("slide" && 
  1543. ominY 
  1544. oheight 
  1545. "0.000"
  1546. old_loc
  1547.  <> s_old_loc
  1548. optional here, depending on how 
  1549. the setting can be done
  1550. setStuff
  1551. -- clean up
  1552. showSetting ratio
  1553. -- Adjust 
  1554. reflect a changed 
  1555. ( I'm tied 
  1556. -- Assumes I am already calibrated 
  1557. c must be a floating point 
  1558. zbetween 0 
  1559. 1 (inclusive)
  1560. ) * (1 - 
  1561. whatever we're supposed 
  1562. according 
  1563. thumb
  1564. multiplier 
  1565. 1 - (
  1566. ) / (
  1567. Video("Set level", 
  1568. (255 * 
  1569. ubleClick
  1570. buttonDown
  1571. buttonStillDown
  1572. buttonUp
  1573. buttonDoubleClick
  1574. showSetting
  1575. setStuff
  1576. buttonDown
  1577. slide
  1578. height
  1579. height
  1580. 0.000
  1581. sBnds
  1582. s_y_offset
  1583. s_def_NumF
  1584. buttonDoubleClick
  1585. buttonDown
  1586. buttonStillDown
  1587. setStuff
  1588. s_y_offset
  1589. s_old_loc
  1590. buttonUp
  1591. setStuff
  1592. s_y_offset
  1593. s_old_loc
  1594. s_def_NumF
  1595. showSetting
  1596. ratio
  1597. setStuff
  1598. Set level
  1599. Video
  1600. multiplier
  1601. Nhighest
  1602. 150,3600
  1603. Nlowest
  1604. 150,4800
  1605. NdefX
  1606. NminY
  1607. Nheight
  1608. OmaxX
  1609. &OmaxY
  1610. Audio volume
  1611. Video level
  1612. PQ<R,
  1613. odefBounds
  1614. adjust 
  1615. buttonUp
  1616. buttonDown
  1617. buttonUp
  1618. buttonDown
  1619. defBounds
  1620. adjust
  1621. NRdefBounds
  1622. 4140,4140,6810,4590
  1623. Edit Page Script 
  1624. zoom Target
  1625. 4s_y_offset, s_x_offset
  1626. "inset 
  1627. oxmin 
  1628. oymin 
  1629. oxmax 
  1630. oymax 
  1631. loc - 
  1632. -- calculate how large I am 
  1633. where I am relative 
  1634. -- reference 
  1635. Then translate that 
  1636. pixels
  1637. X"tbkwin.dll"
  1638. INT xPixelsFromUnits(
  1639. yPixelsFromUnits(
  1640. ((639 * (
  1641. )) / wu)
  1642. ((479 * (
  1643. )) / hu)
  1644. ((639 * (
  1645. )) / wu)
  1646. ((479 * (
  1647. )) / hu)
  1648. zoomRect 
  1649. video("Zoom", 
  1650. G prompt"
  1651. uttonDown
  1652. buttonStillDown
  1653. buttonDown
  1654. buttonDoubleClick
  1655. buttonDown
  1656. inset rectangle
  1657. s_y_offset
  1658. s_x_offset
  1659. buttonStillDown
  1660. s_y_offset
  1661. s_x_offset
  1662. buttonDoubleClick
  1663. tbkwin.dll
  1664. xPixelsFromUnits
  1665. yPixelsFromUnits
  1666. inset rectangle
  1667. video
  1668. set inset
  1669. inset rectangle
  1670. video
  1671. zoom prompt
  1672. zoomRect
  1673. Zymax
  1674. Zxmax
  1675. Zymin
  1676. Zxmin
  1677. 4[ \,
  1678. odefBounds
  1679. adjust 
  1680. buttonUp
  1681. buttonDown
  1682. buttonUp
  1683. buttonDown
  1684. defBounds
  1685. adjust
  1686. 2\defBounds
  1687. 4140,4620,6810,5085
  1688. How To Use This Book 
  1689. zoom prompt
  1690. Move the rectangle over the portion of the picture to magnify, then double-click it.
  1691. Full Rect
  1692. exitFullScreen
  1693. buttondown
  1694. buttondown
  1695. exitFullScreen
  1696. odefBounds
  1697. adjust 
  1698. buttonUp
  1699. buttonDown
  1700. buttonUp
  1701. exitFullScreen
  1702. buttonDown
  1703. defBounds
  1704. adjust
  1705. `defBounds
  1706. 8565,6660,9345,7005
  1707. reference
  1708. Audio control
  1709. The Videologic board is capable of controlling the audio level.  This book's script contains one function that can set the audio level with the DVA board.  This is the audioControl function, which is described more fully in the reference section. 
  1710.         The reference section begins on the next page.......
  1711. reference
  1712. disable 
  1713. "Next" 
  1714. enable 
  1715. adjust x --**
  1716. -- reset proportions 
  1717. moved
  1718. objs 
  1719. -15, 
  1720. -15, 
  1721. -15,\
  1722. -15, 
  1723. -15, 
  1724. -15, 
  1725. - 15,\
  1726. defBounds 
  1727. setCaption what
  1728. 0,50.1875,0
  1729. trim(
  1730. "title")
  1731. legalname(
  1732. , 60)
  1733. "titles" 
  1734. default
  1735. djust
  1736. setCaption
  1737. disable
  1738. enterpage
  1739. enable
  1740. adjust
  1741. saveas
  1742. enterpage
  1743. ox%disable
  1744. enable
  1745. adjust
  1746. defBounds
  1747. setCaption
  1748. disable
  1749. enable
  1750. 0,0,0
  1751. saveas
  1752. title
  1753. title
  1754. legalname
  1755. titles
  1756. default
  1757.     *    j    
  1758. title
  1759. odefBounds
  1760. adjust 
  1761. buttonUp
  1762. buttonDown
  1763. buttonUp
  1764. buttonDown
  1765. defBounds
  1766. adjust
  1767. defBounds
  1768. 5670,4680,6885,5085
  1769. Go Back 
  1770. odefBounds
  1771. adjust 
  1772. buttonUp
  1773. buttonDown
  1774. buttonUp
  1775. buttonDown
  1776. defBounds
  1777. adjust
  1778. defBounds
  1779. 15,4650,1380,5085
  1780. Demo 
  1781. Previous
  1782. odefBounds
  1783. adjust 
  1784. buttonUp
  1785. buttonDown
  1786. buttonUp
  1787. previous
  1788. buttonDown
  1789. defBounds
  1790. adjust
  1791. defBounds
  1792. 3090,4680,4305,5085
  1793. Previous 
  1794. odefBounds
  1795. adjust 
  1796. buttonUp
  1797. buttonDown
  1798. buttonUp
  1799. buttonDown
  1800. defBounds
  1801. adjust
  1802. defBounds
  1803. 4410,4680,5580,5085
  1804. Next 
  1805. Reference 
  1806. titles
  1807. audioControl(set level
  1808. video(close)
  1809. video(Fade in[
  1810. video(Freeze)
  1811. video(Initialize)
  1812. video(Open)
  1813. video(set inset
  1814. video(set key color
  1815. video(set level
  1816. video(Zoom
  1817. video(Open)
  1818. video("Open")
  1819. You must call video with the "Open" command before any other calls to the function.  The function will return -1 if the DVA software was not running.  
  1820. After calling this function, no video is displayed, but the board is initialized to convenient default settings:
  1821. - Full frame video
  1822. - Chroma key off
  1823. - Chroma key color is dark greyyyyyyyyyy
  1824. video(close)
  1825. video("close")
  1826. Call video with this command when you end the session, to be sure that the video effects get turned off and you end up with what appears as a plain VGA.
  1827. Example: 
  1828. to handle leaveBook
  1829.     system s_video_OK
  1830.     if s_video_OK
  1831.         get video("close")
  1832.     end if
  1833. video(Initialize)
  1834. video("Initialize")
  1835. Resets the video board to the same defaults as video("Open")
  1836. video(Fade in[
  1837. Fades the video in (to maximum level) or out (to black).  If the video is not shown (no chroma key color is selected, or there is no screen area matching the chroma key color), the effect of this function call remains invisible until you set the chroma key color or you call video ("set inset", <rectangle>).
  1838. The system variable s_video_level   is set to the current video level. 
  1839. video("fade in")   sets it to 255 , and video("fade out")   sets it to 0 .
  1840. <length> is in hundredths of a second.  If <length> is not specified, the fade will take one second.
  1841. Note:  Control returns to your application as soon as the fade is initiated, not when it is complete.
  1842. video("Fade in"[,<length>])
  1843. video("Fade out"[,<length>])
  1844. video(set level
  1845. Sets the video level.  <level> is any integer number from 0 to 255.  0 is black, 255 is full level.
  1846. The system variable s_video_level   is set to the current video level. 
  1847. video("fade in")   sets it to 255 , and video("fade out")   sets it to 0 .
  1848. video("set level",<level>)
  1849. video(set inset
  1850. Sizes and places the video picture to match <rectangle>.
  1851. <rectangle> is a list of four numbers defining the bounds of a rectangle in ToolBook units
  1852. Example: get video("set inset", bounds of rectangle "inset reference")
  1853. You can also specify a rectangle in pixels relative to the screen.  Simply add the word "pixels" at the end of the rectangle string. 
  1854. Example: get video("set inset","10,0,450,340 pixels")
  1855. <rectangle> can also be one of the following values:
  1856. full screen  -- the video will take over the full screen, regardless of chroma key color setting
  1857. none  -- the video inset is removed and chroma key is turned off
  1858. video("set inset",<rectangle>)
  1859. video(Zoom
  1860. Zooms the portion of the incoming video defined by "rectangle" to fill the inset rectangle.  
  1861. <rectangle> is a list of four numbers defining a rectangle.  It is expressed in pixels, relative to the full video frame.  See the  script of the rectangle "zoom target" that appears when you click the zoom button on page 1 of this book for a complete example.
  1862. If you resize the display rectangle with video("set inset", <rectangle>), the same portion of the video frame will be resized to fit.
  1863. Zooming  works on a frozen picture too.  See video("Freeze").
  1864. Use video("Zoom out") to use the entire video frame again.
  1865. The system variable s_video_zoomed   is set to 1   when the image is zoomed, and to null   when it is not...
  1866. video("Zoom",<rectangle>)
  1867. video("Zoom out")
  1868. video(Freeze)
  1869. video("Freeze")
  1870. video("Unfreeze")
  1871. Freezes or unfreezes the incoming video picture.  When a picture is frozen, you can zoom in and out of it just as if it was moving.
  1872. The system variable s_video_frozen   is set to 1   when the image is frozen, and to null   when it is not.
  1873. (bTK@
  1874. H(bZaR
  1875.