home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / fractal / progs / booker / Library / CreateDraw < prev    next >
Encoding:
Text File  |  1991-11-03  |  28.8 KB  |  10 lines
  1.  
  2. Æ;ô  ><BasicV$Lib>.CreateDraw   Create Draw files.  v0.07
  3. Ðô
  4. ÚHô  Routines to help create a Draw file that resides totally inside a
  5. äIô  heap block.  Can print text as path objects, handles text objects,
  6. îDô  handles sprite objects, handles group objects, handles tagged
  7. øGô  objects, font table objects.  Does NOT handle text area objects.
  8. ô
  9.  ô  MACHINE:  Archimedes
  10. #ô  LANGUAGE: BBC BASIC V, v1.04
  11.  ô  AUTHOR:   Cy Booker,
  12. *Gô            86 Church View, Main Road, Crockenhill, Swanley, Kent.
  13. 4ô            BR8 8JW
  14. >ô  FUNCTIONS:
  15. Hô   Char_Width( C% )
  16. R%ô   Char_Draw_Width( C%, width% )
  17. \ ô   Draw_Font_Name( Style% )
  18. f ô   Draw_Font_Style( name$ )
  19. pô  :
  20. z!ô   Inches_To_Draw_Units( i )
  21. ☓ô  :
  22. ‰&ô   Claim_Draw_Sub_Buffer( need% )
  23. —ô  :
  24. ¢ô  PROCEDURES:
  25. ¬(ô   Open_DrawFile( min_mem%, name$ )
  26. ¶+ô   Close_DrawFile( file_name$, keep% )
  27. À?ô   Open_Draw_Path_Object( fill%, colour%, width%, flags% )
  28. Ê/ô    Bezier( x0%, y0%, x1%, y1%, x2%, y2% )
  29. Ôô    Draw( x%, y% )
  30. Þô    Move( x%, y% )
  31. è#ô    Line( x0%, y0%, x1%, y1% )
  32. òô    Close_Path()
  33. üô    Close_SubPath()
  34. ô   Close_Draw_Path_Object
  35. #ô   Open_Draw_Font_Table_Object
  36. *ô    Draw_Font_Table( number%, font$ )
  37. $%ô    Draw_Font_Table_Add( font$ )
  38. .$ô   Close_Draw_Font_Table_Object
  39. 87ô   Open_Draw_Text_Object( X%, Y%, W%, H%, Style% )
  40. B"ô    Draw_Text_Object( text$ )
  41. L ô   Close_Draw_Text_Object()
  42. VFô   Draw_Sprite_Object( name$, base%, xmin%, ymin%, xmax%, ymax% )
  43. `(ô   Open_Draw_Group_Object( group$ )
  44. j!ô   Close_Draw_Group_Object()
  45. t.ô   Open_Draw_Tagged_Object( identifier% )
  46. ~.ô    Draw_Tagged_Object( start%, length% )
  47. ⇦)ô    Draw_Tagged_Object_Byte( byte% )
  48. ‹)ô    Draw_Tagged_Object_Word( word% )
  49. †)ô    Draw_Tagged_Object_Text( text$ )
  50. ¦"ô   Close_Draw_Tagged_Object()
  51. °'ô   Open_Draw_Font( font$, cache% )
  52. º-ô    Draw_Character( C%, X%, Y%, W%, H% )
  53. Ä ô   Close_Draw_Font( font$ )
  54. Îô  :
  55. ØFô   Draw_Check( n_bytes% )            Ensure bytes free in buffer.
  56. â1ô   Draw_Path_Bounding_Box( h%, fill_style% )
  57. ìô  :
  58. öGô   Draw_Rotate_Path( in%, out%, xo%, yo%, radians )  ---> Untested
  59. =ô   Draw_Translate_Path( in%, out%, dx%, dy% )          /
  60. 
  61. <ô   Init_Draw_Out_Path( size% )                        /
  62. ;ô   Draw_Scale_Path( in%, out%, dx, dy )              /
  63. ô  :
  64. (!ô   Release_Draw_Sub_Buffer()
  65. 2:
  66. <ô  EXTERNALS:
  67. Fô   Wimp heap.
  68. Pô  :
  69. Zô  UPDATES:
  70. d.ô   14.04.1991 CJB Wrote (from crossword).
  71. nGô   30.04.1991 CJB Sub-buffers written, transformations documented.
  72. x1ô   02.05.1991 CJB Characters now functional.
  73. ŵ,ô   03.05.1991 CJB Close font now works!
  74. …Jô   18.05.1991 CJB When open file, sets ..Cache$, so error handled OK.
  75. „@ô   23.05.1991 CJB Close_Path_Object() badly set Draw_xmax%.
  76.  Kô   25.10.1991 CJB Draw_Font_Style() added, error message in .._Name().
  77. ªIô   03.11.1991 CJB So proper error if attempt text before font table.
  78. ´:
  79. ¾$Ý ¤_CreateDraw_version  :  = 007
  80. È:
  81. Ò"Ý ¤_hard_initialise_CreateDraw
  82. Üê Ŷ
  83. æCî Ŷ ê ÷ Ŷ  :  ò_e( "%.CreateDraw: hard_initialise_CreateDraw" )
  84. ð0  ò_load_library( "<BasicV$Lib>.Heap", 011 )
  85. ú3  ò_load_library( "<BasicV$Lib>.IntMath", 004 )
  86. 0  ò_load_library( "<BasicV$Lib>.Wimp", 015 )
  87. ,  ò_Claim_Heap_Block( TransMatrix%, 24 )
  88. = 0
  89. ":
  90. ,Kô *********************************************************************
  91. 6Lô * Start creating a draw file inside a Heap block.  This gets extend as
  92. @<ô * and when.  If an error is generated, you should call
  93. JKô * PROC_Handle_DrawFile_Error, before processing the errors as normal.
  94. TJô * The following "globals" will be used - to save passing six million
  95. ^!ô * parameters to everything:
  96. h:
  97. rGê Draw_Buffer%, D%, E%, Draw_Group%, Draw_Group_Buffer%, Draw_xmin%
  98. |Jê Draw_Group_Max%, Draw_Group%, Draw_Object%, O%, M%, Draw_Font_Cache%
  99. ŷHê Draw_Font_Cache_X%, Draw_Font_Cache_Y%, Draw_Font_Cache_W%, O%, M%
  100. ‘Jê Draw_Font_Cache_H%, Draw_Design_Size%, Draw_ymax%, Draw_Font_Colour%
  101. Œ?ê Draw_ymin%, Draw_xmax%, Draw_Font_Fill%, Draw_Font_Width%
  102. ¤=ê Draw_Chars_Defined%, Draw_Font_Table%, Draw_Font_Cache$
  103. ®;ê Draw_Text_Colour%, Draw_Text_Hint%, Draw_Text_Object%
  104. ¸ê Draw_Font_Table_Style%
  105. Â:
  106. Ì9: ô  Draw_Buffer%         == Draw file memory buffer.
  107. ÖE: ô  D%                   == Rove inside draw file memory buffer.
  108. à@: ô  E%                   == End of draw file memory buffer.
  109. êI: ô  Draw_xmin%           == Local to groups, but extend to "globals"
  110. ôL: ô  Draw_ymin%           ==  for calculation of groups and, indeed, the
  111. þG: ô  Draw_xmax%           ==  the whole file.  min's are inclusive,
  112. J: ô  Draw_ymax%           ==  max's are exclusive draw internal units.
  113. F: ô  Draw_Group_Buffer%[] == Start of group header in draw buffer.
  114. 8: ô  Draw_Group%          == Index into it [0, max).
  115. &7: ô  Draw_Group_Max%      == Maximum group nesting.
  116. G: ô  Draw_Object%         == Start of object header in draw buffer.
  117. :I: ô  Draw_Font_Cache%[]   == Used when caching fonts (6Kbytes total).
  118. DK: ô  Draw_Font_Cache_D%[] == Offset in draw file of previously rendered
  119. NL: ô  Draw_Font_Cache_X%[] == character.  This points to the header.  The
  120. XK: ô  Draw_Font_Cache_Y%[] == other arrays detail the original rendering
  121. bK: ô  Draw_Font_Cache_W%[] == parameters.  Thus could lose resolution if
  122. lF: ô  Draw_Font_Cache_H%[] == first one is very small.  Not likely.
  123. v?: ô  Draw_Font_Cache$     == Name of font currently "open".
  124. €B: ô  O%                   == File handle of outline font file.
  125. ⇩B: ô  M%                   == File handle of metrics font file.
  126. “4: ô  Draw_Design_Size%    == Set when open font.
  127. fi4: ô  Draw_Chars_Defined%  == Set when open font.
  128. ¨F: ô  Draw_Font_Colour%    == Must be explicitly set before calling
  129. ²C: ô  Draw_Font_Fill%      ==  PROC_Draw_Character.  Colours are
  130. ¼G: ô  Draw_Font_Width%     ==  standard, as is the width definition.
  131. ÆC: ô  Draw_Font_Table%     == Used internally to ensure created.
  132. ÐE: ô  Draw_Font_Table_Style%= Used internally while making object.
  133. Ú9: ô  Draw_Text_Colour%    == Text object font colour.
  134. äD: ô  Draw_Text_Hint%      == Text object background hint colour.
  135. îA: ô  Draw_Text_Object%    == Offset into draw file of header.
  136. øE: ô  Draw_Sub_Buffer%     == Offset into draw file of sub-buffer.
  137.  : ô  /.
  138.  :
  139. (Ý ò_Open_DrawFile( min_mem%, name$ )
  140.  ê Ŷ
  141. *6î Ŷ ê ÷ Ŷ  :  ò_e( "%.CreateDraw: Open_DrawFile" )
  142. 4  Draw_Buffer%       = 0
  143. >  Draw_Group_Buffer% = 0
  144. H  Draw_Group%        = 0
  145. R  Draw_Group_Max%    = 12
  146. \  Draw_Font_Cache%   = 0
  147. f  Draw_Font_Cache$   = ""
  148. p  Draw_Font_Table%   = 0
  149. z  O%                 = 0
  150. ☓  M%                 = 0
  151. ‰6  min_mem%           = ¤_max_int( min_mem%, 1024 )
  152. —I  ò_Claim_Heap_Block( Draw_Group_Buffer%, (Draw_Group_Max% * 5 * 4) )
  153. ¢2  ò_Claim_Heap_Block( Draw_Buffer%, min_mem% )
  154. ¬  D% = Draw_Buffer%
  155. ¶"  E% = Draw_Buffer% + min_mem%
  156. À  :
  157. Ê  $D%      = "Draw"
  158. Ô  D%!4     = 201
  159. Þ  D%!8     = 0
  160. è(  $(D%+12) = Àname$+ Ä12, " "), 12 )
  161. ò  D%       += 40
  162. ü  :
  163.   Draw_xmin% = &7FFFFFFF
  164.   Draw_ymin% = &7FFFFFFF
  165.   Draw_xmax% = &80000000
  166. $  Draw_ymax% = &80000000
  167. .á
  168. 8:
  169. BKô *********************************************************************
  170. LKô * IN   file_name$ == Full name to save as (time-stamped/typed), or ""
  171. VFô *      keep% == Boolean, TRUE if keep drawfile in heap block, at
  172. `*ô *               Draw_Buffer% ... D%.
  173. j2ô * OUT  File may be created (error-generated)
  174. tKô *      All ancillary heap blocks released, and draw file if not keep.
  175. ~:
  176. ⇦+Ý ò_Close_DrawFile( file_name$, keep% )
  177. ‹  ç Draw_Group%<>0 …
  178. †+    Ŷ 1, "Group's not closed properly."
  179. ¦  Í
  180. °D  Draw_Buffer%!24 = Draw_xmin%                  :  ô  Bound low.
  181. º"  Draw_Buffer%!28 = Draw_ymin%
  182. ÄE  Draw_Buffer%!32 = Draw_xmax%                  :  ô  Bound high.
  183. Î"  Draw_Buffer%!36 = Draw_ymax%
  184. Ø  ç file_name$<>"" …
  185. â=    È− "OS_File", 10, file_name$, &AFF,, Draw_Buffer%, D%
  186. ì  Í
  187. ö0  ò_Release_Heap_Block( Draw_Group_Buffer% )
  188.   ò_Close_Draw_Font( "" )
  189. 
  190.   ç keep% …
  191.     D% -= Draw_Buffer%
  192.     E% -= Draw_Buffer%
  193. (6    ò_Extend_Heap_Block( Draw_Buffer%, (D% - E%) )
  194. 2    D% += Draw_Buffer%
  195. <    E% = D%
  196. F  Ì
  197. P,    ò_Release_Heap_Block( Draw_Buffer% )
  198. Z  Í
  199. dá
  200. n:
  201. xÝ ò_Handle_DrawFile_Error
  202. ŵ  ò_Close_DrawFile( "", £ )
  203. …á
  204. „:
  205.  Kô *********************************************************************
  206. ª8ô * fill%/colour% == &BBGGRR00 or -1.  Usually -1/0.
  207. ´Kô * width% == 0 for thinnest, else output dependent pixels.  Usually 0.
  208. ¾Jô * flags% == Bit significant, defininig join style/caps/winding rule/
  209. ÈIô *           dash included/triangle caps.  Usually just 1 << 6 = 64.
  210. Ò:
  211. Ü?Ý ò_Open_Draw_Path_Object( fill%, colour%, width%, flags% )
  212. æ  ò_Draw_Check( 40 )
  213. ð&  Draw_Object% = D% - Draw_Buffer%
  214. ú  D%!0 = 2
  215.   D%!24 = fill%
  216.   D%!28 = colour%
  217.   D%!32 = width%
  218. "  D%!36 = flags%
  219. ,  ç (flags% € &80)<>0 …
  220. 6E    Ŷ 1, "Bad Open Draw Path Object - dashes not supported, yet."
  221. @  Í
  222. J  D% += 40
  223. Tá
  224. ^:
  225. hÝ ò_Close_Draw_Path_Object
  226. rê o%
  227. |T  o%=D%!-4:ç (o%<>0) € (o%<>5) … Ŷ 1, "Close Draw Path object: path not closed."
  228. ŷ&  o% = Draw_Buffer% + Draw_Object%
  229. ‘  o%!4 = D% - o%
  230. ŒJ  È− "Draw_ProcessPath", o%+40, &7000003A, 0, 0, 0, 0, 0, o%+&80000008
  231. ¤0  Draw_xmin% = ¤_min_int( Draw_xmin%, o%!8 )
  232. ®1  Draw_ymin% = ¤_min_int( Draw_ymin%, o%!12 )
  233. ¸1  Draw_xmax% = ¤_max_int( Draw_xmax%, o%!16 )
  234. Â1  Draw_ymax% = ¤_max_int( Draw_ymax%, o%!20 )
  235. Ìá
  236. Ö:
  237. à"Ý ò_Line( x0%, y0%, x1%, y1% )
  238. ê  ò_Move( x0%, y0% )
  239. ô  ò_Draw( x1%, y1% )
  240. þá
  241.  :
  242.  Ý ò_Move( x%, y% )
  243.    ò_Draw_Check( 12 )
  244.  &
  245.   !D% = 2
  246.  0  D%!4 = x%
  247.  :  D%!8 = y%
  248.  D  D% += 12
  249.  Ná
  250.  X:
  251.  bÝ ò_Draw( x%, y% )
  252.  l  ò_Draw_Check( 12 )
  253.  v
  254.   !D% = 8
  255.  €  D%!4 = x%
  256.  ⇩  D%!8 = y%
  257.  “  D% += 12
  258.  fiá
  259.  ¨:
  260.  ².Ý ò_Bezier( x0%, y0%, x1%, y1%, x2%, y2% )
  261.  ¼  ò_Draw_Check( 28 )
  262.  Æ
  263.   !D% = 6
  264.  Ð  D%!4 = x0%
  265.  Ú  D%!8 = y0%
  266.  ä  D%!12 = x1%
  267.  î  D%!16 = y1%
  268.  ø  D%!20 = x2%
  269. !  D%!24 = y2%
  270. !   D% += 28
  271. !á
  272. ! :
  273. !*Ý ò_Close_Path
  274. !4  ò_Draw_Check( 4 )
  275. !>
  276.   !D% = 0
  277. !H
  278.   D% += 4
  279. !Rá
  280. !\:
  281. !fÝ ò_Close_SubPath
  282. !p  ò_Draw_Check( 4 )
  283. !z
  284.   !D% = 5
  285. !☓
  286.   D% += 4
  287. !‰á
  288. !—:
  289. !¢Kô *********************************************************************
  290. !¬Jô * Font table object.  Only used to map font numbers to actual fonts.
  291. !¶:
  292. !À#Ý ò_Open_Draw_Font_Table_Object
  293. !Ê  ò_Draw_Check( 8 )
  294. !Ô*  Draw_Font_Table% = D% - Draw_Buffer%
  295. !Þ   Draw_Font_Table_Style% = 1
  296. !è
  297.   !D% = 0
  298. !ò
  299.   D% += 8
  300. !üá
  301. ":
  302. ")Ý ò_Draw_Font_Table( number%, font$ )
  303. "ê l%
  304. "$!  ç number%<1 ☓ number%>255 …
  305. ".?    Ŷ 1, "Bad font table index, while adding to font table"
  306. "8  Í
  307. "B  l% = ©(font$) + 2
  308. "L  ò_Draw_Check( l%+1 )
  309. "V  ?D% = number%
  310. "`  $(D%+1) = font$+ ½(0)
  311. "j  D% += l%
  312. "tá
  313. "~:
  314. "⇦-: ô  Only adds it if not already in there
  315. "‹:
  316. "†$Ý ò_Draw_Font_Table_Add( font$ )
  317. "¦ê l%, F%, found%
  318. "°.  F% = Draw_Buffer% + Draw_Font_Table% + 8
  319. "º  found% = £
  320. "Ä  È” F%<D% € ¬(found%)
  321. "Î%    found% = ¤getname(F%+1)=font$
  322. "Ø    ç ¬(found%) …
  323. "â      F%+=1
  324. "ì      È” ?F%:F%+=1:Î
  325. "ö        Í
  326. #  Î
  327. #
  328.   ç ¬(found%) …
  329. #'    ç Draw_Font_Table_Style%>=256 …
  330. #.      Ŷ 1, "Too many fonts for font table"
  331. #(        Í
  332. #2    l% = ©(font$) + 2
  333. #<    ò_Draw_Check( l%+1 )
  334. #F$    ?D% = Draw_Font_Table_Style%
  335. #P#    Draw_Font_Table_Style% += 1
  336. #Z    $(D%+1) = font$+ ½(0)
  337. #d    D% += l%
  338. #n  Í
  339. #xá
  340. #ŵ:
  341. #…$Ý ò_Close_Draw_Font_Table_Object
  342. #„ê F%
  343. #  ò_Draw_Check( 4 )
  344. #ª  È” (D% € 3)<>0
  345. #´    ?D% = 0
  346. #¾    D% += 1
  347. #È  Î
  348. #Ò*  F% = Draw_Buffer% + Draw_Font_Table%
  349. #Ü  F%!4 = D% - F%
  350. #æá
  351. #ð:
  352. #ú Ý ¤_Draw_Font_Name( Style% )
  353. $ê F%, n$, G%, found%
  354. $      ê Ŷ
  355. $5  î Ŷ ê ÷ Ŷ : ò_e("%.CreateDraw: Draw_Font_Name")
  356. $"      ê Ŷ
  357. $,M  î Ŷ ê ÷ Ŷ : Ŷ 1, "Can't create text object before a font table object."
  358. $6$  ç Draw_Font_Table%=0 … Ŷ 1, ""
  359. $@      ÷ Ŷ
  360. $J*  F% = Draw_Buffer% + Draw_Font_Table%
  361. $T  G% = F% + (F%!4)
  362. $^
  363.   F% += 8
  364. $h  found% = £
  365. $r  È” F%<G% € ¬(found%)
  366. $|    ç (?F%)=Style% …
  367. $ŷ      n$ = ¤getname( F%+1 )
  368. $‘      found% = ¹
  369. $Œ        Ì
  370. $¤      F%+=1
  371. $®      È” ?F%<>0:F%+=1:Î
  372. $¸      F%+=1
  373. $        Í
  374. $Ì  Î
  375. $ÖY  ç ¬(found%) … Ŷ 1, "Can't find a font style of #"+ Ã(Style%)+ " in the font table."
  376. $à= n$
  377. $ê:
  378. $ô Ý ¤_Draw_Font_Style( name$ )
  379. $þê F%, G%, found%
  380. %      ê Ŷ
  381. %6  î Ŷ ê ÷ Ŷ : ò_e("%.CreateDraw: Draw_Font_Style")
  382. %      ê Ŷ
  383. %&M  î Ŷ ê ÷ Ŷ : Ŷ 1, "Can't create text object before a font table object."
  384. %0$  ç Draw_Font_Table%=0 … Ŷ 1, ""
  385. %:      ÷ Ŷ
  386. %D*  F% = Draw_Buffer% + Draw_Font_Table%
  387. %N  G% = F% + (F%!4)
  388. %X
  389.   F% += 8
  390. %b  found% = £
  391. %l  È” F%<G% € ¬(found%)
  392. %v%    found% = ¤getname(F%+1)=name$
  393. %€    ç ¬ found% …
  394. %⇩      F%+=1
  395. %“      È” ?F%:F%+=1:Î
  396. %fi      F%+=1
  397. %¨        Í
  398. %²  Î
  399. %¼K  ç ¬(found%) … Ŷ 1, "Can't find font `"+ name$+ "' in the font table."
  400. %Æ    = ?F%
  401. %Ð:
  402. %ÚKô *********************************************************************
  403. %ä/ô * Uses Draw_Text_Colour%, Draw_Text_Hint%
  404. %îLô * Place text$ in font Style% at base line X%, Y%.  Font starts of with
  405. %ø+ô * a size of W% by H% 1/640'ths point.
  406. &:
  407. & 7Ý ò_Open_Draw_Text_Object( X%, Y%, W%, H%, Style% )
  408. &  ò_Draw_Check( 53 )
  409. & +  Draw_Text_Object% = D% - Draw_Buffer%
  410. &*
  411.   !D% = 1
  412. &4  D%!24 = Draw_Text_Colour%
  413. &>  D%!28 = Draw_Text_Hint%
  414. &H  D%!32 = Style%
  415. &R  D%!36 = W%
  416. &\  D%!40 = H%
  417. &f  D%!44 = X%
  418. &p  D%!48 = Y%
  419. &z  D% += 52
  420. &☓á
  421. &‰:
  422. &—G: ô  Gets concatonated onto end of current text.  Thus getting over
  423. &¢$: ô  BASIC 256 charactert limit.
  424. &¬:
  425. &¶!Ý ò_Draw_Text_Object( text$ )
  426. &À"  ò_Draw_Check( ©(text$) + 1 )
  427. &Ê  $D% = text$
  428. &Ô  D% += ©(text$)
  429. &Þá
  430. &è:
  431. &òÝ ò_Close_Draw_Text_Object
  432. &ü ê T%, h%
  433. '  õ
  434. '    ?D% = 0
  435. '    D% += 1
  436. '$  ý (D% € 3)=0
  437. '.+  T% = Draw_Buffer% + Draw_Text_Object%
  438. '8  T%!4 = D% - T%
  439. 'BQ  È− "Font_FindFont",, ¤_Draw_Font_Name( T%!32 ), (T%!36)*40, (T%!40)*40 ¸ h%
  440. 'LI  È− "Font_StringBBox", h%, text$+ ½(0) ¸ , T%!8, T%!12, T%!16, T%!20
  441. 'V0  Draw_xmin% = ¤_min_int( Draw_xmin%, T%!8 )
  442. '`1  Draw_ymin% = ¤_min_int( Draw_ymin%, T%!12 )
  443. 'j1  Draw_xmax% = ¤_max_int( Draw_xmax%, T%!16 )
  444. 't1  Draw_ymax% = ¤_max_int( Draw_ymax%, T%!20 )
  445. '~á
  446. '⇦:
  447. '‹Kô *********************************************************************
  448. '†1ô * Define a sprite, inside the bounding box.
  449. '¦Hô * base% = +1 for Wimp, 0 for system, else pointer to sprites base.
  450. '°1ô * A side affect, this sprite is "selected".
  451. 'º:
  452. 'ÄFÝ ò_Draw_Sprite_Object( name$, base%, xmin%, ymin%, xmax%, ymax% )
  453. 'Î
  454. ê sp%, i%
  455. 'Ø  È‰ base% Ê
  456. 'â2  É 0 : È− "OS_SpriteOp", &18,, name$ ¸ ,, sp%
  457. 'ì5  É +1 : È− "Wimp_SpriteOp", &18,, name$ ¸ ,, sp%
  458. 'ö7   : È− "OS_SpriteOp", &118, base%, name$ ¸ ,, sp%
  459. (  Ë
  460. (
  461. !  ò_Draw_Check( (!sp%) + 24 )
  462. (
  463.   !D% = 5
  464. (  D%!4 = (!sp%) + 24
  465. ((  D%!8 = xmin%
  466. (2  D%!12 = ymin%
  467. (<  D%!16 = xmax%
  468. (F  D%!20 = ymax%
  469. (P  D% += 24
  470. (Z  ã i%= 0 ¸ (!sp%) - 1 ⇦ 4
  471. (d    D%!i% = sp%!i%
  472. (n
  473.   í i%
  474. (x  D% += !sp%
  475. (ŵá
  476. (…:
  477. („Kô *********************************************************************
  478. ( @ô * Grouped objects can be nested as deep as memory permits.
  479. (ª:
  480. (´(Ý ò_Open_Draw_Group_Object( group$ )
  481. (¾ê G%
  482. (È  ò_Draw_Check( 37 )
  483. (Ò)  ç Draw_Group%=(Draw_Group_Max%-1) …
  484. (Ü?    ò_Extend_Heap_Block( Draw_Group_Buffer%, (16 * 5 * 4) )
  485. (æ    Draw_Group_Max% += 16
  486. (ð  Í
  487. (ú5  G% = Draw_Group_Buffer% + (Draw_Group% * 5 * 4)
  488. )  G%!0 = D% - Draw_Buffer%
  489. )  G%!4 = Draw_xmin%
  490. )  G%!8 = Draw_ymin%
  491. )"  G%!12 = Draw_xmax%
  492. ),  G%!16 = Draw_ymax%
  493. )6
  494.   !D% = 6
  495. )@(  $(D%+24) = Àgroup$+ Ä12, " "), 12)
  496. )J  D% += 36
  497. )T  Draw_Group% += 1
  498. )^  Draw_xmin% = &7FFFFFFF
  499. )h  Draw_ymin% = &7FFFFFFF
  500. )r  Draw_xmax% = &80000000
  501. )|  Draw_ymax% = &80000000
  502. )ŷá
  503. )‘:
  504. )ŒÝ ò_Close_Draw_Group_Object
  505. )¤ ê G%, H%
  506. )®  ç Draw_Group%=0 …
  507. )¸'    Ŷ 1, "Bad Draw Group Close!!!!"
  508. )  Í
  509. )Ì  Draw_Group% -= 1
  510. )Ö8  G%    = Draw_Group_Buffer% + (Draw_Group% * 5 * 4)
  511. )à#  H%    = ¤_Draw_Address( !G% )
  512. )ê  H%!4  = D% - H%
  513. )ô  H%!8  = Draw_xmin%
  514. )þ  H%!12 = Draw_ymin%
  515. *  H%!16 = Draw_xmax%
  516. *  H%!20 = Draw_ymax%
  517. *0  Draw_xmin% = ¤_min_int( Draw_xmin%, G%!4 )
  518. *&0  Draw_ymin% = ¤_min_int( Draw_ymin%, G%!8 )
  519. *01  Draw_xmax% = ¤_max_int( Draw_xmax%, G%!12 )
  520. *:1  Draw_ymax% = ¤_max_int( Draw_ymax%, G%!16 )
  521. *Dá
  522. *N:
  523. *XKô *********************************************************************
  524. *b@ô * A tagged object can be nested as deep as memory permits.
  525. *l>ô * This uses the Group "stack" to store the bounding box.
  526. *vLô * Just open it, define an object, then write to D%, and finally close.
  527. *€:
  528. *⇩.Ý ò_Open_Draw_Tagged_Object( identifier% )
  529. *“ê G%
  530. *fi  ò_Draw_Check( 28 )
  531. *¨)  ç Draw_Group%=(Draw_Group_Max%-1) …
  532. *²?    ò_Extend_Heap_Block( Draw_Group_Buffer%, (16 * 5 * 4) )
  533. *¼    Draw_Group_Max% += 16
  534. *Æ  Í
  535. *Ð5  G% = Draw_Group_Buffer% + (Draw_Group% * 5 * 4)
  536. *Ú  G%!0 = D% - Draw_Buffer%
  537. *ä  G%!4 = Draw_xmin%
  538. *î  G%!8 = Draw_ymin%
  539. *ø  G%!12 = Draw_xmax%
  540. +  G%!16 = Draw_ymax%
  541. +
  542.   !D% = 7
  543. +  D%!24 = identifier%
  544. +   D% += 28
  545. +*  Draw_Group% += 1
  546. +4  Draw_xmin% = &7FFFFFFF
  547. +>  Draw_ymin% = &7FFFFFFF
  548. +H  Draw_xmax% = &80000000
  549. +R  Draw_ymax% = &80000000
  550. +\á
  551. +f:
  552. +pK: ô  If prepared tag information externally, can use this to copy it to
  553. +z: ô  the output buffer.
  554. +☓:
  555. +‰-Ý ò_Draw_Tagged_Object( start%, length% )
  556. +—ê i%
  557. +¢  ò_Draw_Check( length% )
  558. +¬  ã i%= 0 ¸ length% - 1
  559. +¶    D%?i% = start%?i%
  560. +À
  561.   í i%
  562. +Ê  D% += length%
  563. +Ôá
  564. +Þ:
  565. +èB: ô  These can be used if creating tag information on the fly.
  566. +ò:
  567. +ü(Ý ò_Draw_Tagged_Object_Byte( byte% )
  568. ,  ò_Draw_Check( 1 )
  569. ,  ?D% = byte%
  570. ,
  571.   D% += 1
  572. ,$á
  573. ,.:
  574. ,8(Ý ò_Draw_Tagged_Object_Word( word% )
  575. ,B  ò_Draw_Check( 4 )
  576. ,L  !D% = word%
  577. ,V
  578.   D% += 4
  579. ,`á
  580. ,j:
  581. ,t(Ý ò_Draw_Tagged_Object_Text( text$ )
  582. ,~"  ò_Draw_Check( ©(text$) + 2 )
  583. ,⇦  $D% = text$+ ½(0)
  584. ,‹  D% += ©(text$) + 1
  585. ,†á
  586. ,¦:
  587. ,°<: ô  Stop writing tag information, word align, then end.
  588. ,º:
  589. ,Ä Ý ò_Close_Draw_Tagged_Object
  590. ,Π ò_Draw_Check( 4 )
  591. ,Ø  È” (D% € 3)<>0
  592. ,â    ?D% = 0
  593. ,ì    D% += 1
  594. ,ö  Î
  595. -  ò_Close_Draw_Group_Object
  596. -
  597. á
  598. -:
  599. -Kô *********************************************************************
  600. -(=ô * IN   X%,Y% == Draw units of bottom left of character.
  601. -23ô *      W%,H% == Draw units size of character.
  602. -<.ô *      C%    == ASCII code of character.
  603. -F-ô * OUT  [D%++] <-- Draw file path object
  604. -P:
  605. -Z,Ý ò_Draw_Character( C%, X%, Y%, W%, H% )
  606. -d ê o%, i%
  607. -n  C% = C% << 2
  608. -x   o% = 0
  609. -ŵ  ç Draw_Font_Cache%<>0 …
  610. -…"    o% = Draw_Font_Cache_D%!C%
  611. -„  Í
  612. -   ç o%=0 …
  613. -ª    ç Draw_Font_Cache%<>0 …
  614. -´I      Draw_Font_Cache_D%!C% = D% - Draw_Buffer%         :  ô  Offset!
  615. -¾$      Draw_Font_Cache_X%!C% = X%
  616. -È$      Draw_Font_Cache_Y%!C% = Y%
  617. -Ò$      Draw_Font_Cache_W%!C% = W%
  618. -Ü$      Draw_Font_Cache_H%!C% = H%
  619. -æ        Í
  620. -ð_    ò_Open_Draw_Path_Object( Draw_Font_Fill%, Draw_Font_Colour%, Draw_Font_Width%, 1 << 6 )
  621. -ú;    ò_Draw_Define_Character( C% >>> 2, X%, Y%, W%, H% )
  622. .     ò_Close_Draw_Path_Object
  623. .  Ì
  624. .,    ò_Draw_Check( !(o%+Draw_Buffer%+4) )
  625. ."    o% += Draw_Buffer%
  626. .,    D%!0 = 2
  627. .6    D%!4 = o%!4
  628. .@    D%!24 = Draw_Font_Fill%
  629. .J!    D%!28 = Draw_Font_Colour%
  630. .T     D%!32 = Draw_Font_Width%
  631. .^!    ã i%= 36 ¸ (o%!4) - 1 ⇦ 4
  632. .h      D%!i% = o%!i%
  633. .r     í i%
  634. .|D    TransMatrix%!0  = (W% / (Draw_Font_Cache_W%!C%)) * (1 << 16)
  635. .ŷ    TransMatrix%!4  = 0
  636. .‘    TransMatrix%!8  = 0
  637. .ŒD    TransMatrix%!12 = (H% / (Draw_Font_Cache_H%!C%)) * (1 << 16)
  638. .¤6    TransMatrix%!16 = X% - (Draw_Font_Cache_X%!C%)
  639. .®6    TransMatrix%!20 = Y% - (Draw_Font_Cache_Y%!C%)
  640. .¸:    È− "Draw_TransformPath", D%+40, 0, TransMatrix%, 0
  641. .Â1    ò_Draw_Path_Bounding_Box( D%, &7000003A )
  642. .Ì    D% += (D%!4)
  643. .Ö  Í
  644. .àá
  645. .ê:
  646. .ôH: ô  Recursive routine to define character, ie insert sub-paths into
  647. .þE: ô  buffer until character drawn.  Recursive because of accents.
  648. /:
  649. /3Ý ò_Draw_Define_Character( C%, X%, Y%, W%, H% )
  650. /#ê Char%, x%, y%, Include%, Ptr%
  651. /&!ê Chunk%, Chunk_Alpha%, Char%
  652. /0"ê W, H, J%, K%, Flag%, Ignore%
  653. /:*  Chunk%       = 16 + ((C% Ŵ 32) << 2)
  654. /D&  Chunk_Alpha% = ¤getofw( Chunk% )
  655. /NK  Char%        = ¤getofw( Chunk_Alpha%+((C% ◰ 32) << 2) )+ Chunk_Alpha%
  656. /X  ç Char%=0 …
  657. /b1    Ŷ 1, "Character "+ Ã(C%)+ " not defined."
  658. /l  Í
  659. /v  :
  660. /€  Ï#O% = Char%
  661. /⇩C  Flag% = Œ#O%               :  ô  Bit 0 set if 12-bit co-ords.
  662. /“  ç (Flag% € 8)=0 …
  663. /fi5    Ŷ 1, "Character "+Ã(C%)+" is not an outline."
  664. /¨  Í
  665. /²  ç (Flag% € 1)<>0 …
  666. /¼    x% = Œ#O%
  667. /Æ    y% = Œ#O%
  668. /Р   x% += (y% € &F) << 8
  669. /Ú'    y% = (y% >>> 4) + ((Œ#O%) << 4)
  670. /ä(    ç x%>=&800 … x% = x% ☓ &FFFFF000
  671. /î(    ç y%>=&800 … y% = y% ☓ &FFFFF000
  672. /ø    J% = Œ#O% + Œ#O% + Œ#O%
  673. 0  Ì
  674. 0     x% = Œ #O%
  675. 0    y% = Œ #O%
  676. 0 '    ç x%>=&80 … x% = x% ☓ &FFFFFF00
  677. 0*'    ç y%>=&80 … y% = y% ☓ &FFFFFF00
  678. 04    J% = Œ#O% + Œ#O%
  679. 0>  Í
  680. 0H   W = W% / Draw_Design_Size%
  681. 0R   H = H% / Draw_Design_Size%
  682. 0\  J% = X% + (x% * W)
  683. 0f  K% = Y% + (y% * H)
  684. 0p  :
  685. 0z  Ignore% = £
  686. 0☓  õ
  687. 0‰    Seg% = Œ#O%
  688. 0—    È‰ (Seg% € 3) Ê
  689. 0¢     É 0
  690. 0¬"      ç (Seg% € (1 << 3))<>0 …
  691. 0¶?        Include% = Œ#O%      :  ô  Sub-character(s) follow.
  692. 0À
  693.         õ
  694. 0Ê          Ptr% = •#O%
  695. 0ÔA          ò_Draw_Define_Character( Include%, X%, Y%, W%, H% )
  696. 0Þ          Ï#O% = Ptr%
  697. 0è          Include% = Œ#O%
  698. 0ò        ý (Include%=0)
  699. 0ü        Seg% = 0
  700. 1       Í
  701. 1"      ç (Seg% € (1 << 2))<>0 …
  702. 1;        Ignore% = ¹          :  ô  Stroke path follows.
  703. 1$       Í
  704. 1.      ç Seg%=0 …
  705. 18        ò_Draw_Check( 4 )
  706. 1B5        !D% = 0                 :  ô  Close path.
  707. 1L        D% += 4
  708. 1V       Í
  709. 1`3    É 1                      :  ô  Move to X, Y
  710. 1j      ç ¬(Ignore%) …
  711. 1t        ò_Draw_Check( 12 )
  712. 1~        !D% = 2
  713. 1⇦        D% += 4
  714. 1‹       Í
  715. 1†%      ò_Get_Draw_Font_Coordinates
  716. 1¦3    É 2                      :  ô  Line to X, Y
  717. 1°      ç ¬(Ignore%) …
  718. 1º        ò_Draw_Check( 12 )
  719. 1Ä        !D% = 8
  720. 1Π       D% += 4
  721. 1Ø       Í
  722. 1â%      ò_Get_Draw_Font_Coordinates
  723. 1ìD    É 3                      :  ô  Curve to x1,y1, x2,y2, x3,y3.
  724. 1ö      ç ¬(Ignore%) …
  725. 2        ò_Draw_Check( 28 )
  726. 2
  727.         !D% = 6
  728. 2        D% += 4
  729. 2       Í
  730. 2(%      ò_Get_Draw_Font_Coordinates
  731. 22%      ò_Get_Draw_Font_Coordinates
  732. 2<%      ò_Get_Draw_Font_Coordinates
  733. 2F        Ë
  734. 2P  ý Seg%=0
  735. 2Zá
  736. 2d:
  737. 2nKô *********************************************************************
  738. 2xEô * If cache%>0 then cache every new letter drawn with this font.
  739. 2ŵ7ô * [If cache%>1 then read in definitions into RAM]
  740. 2…8ô * Sets up O%, M% for outline/metrics file handles.
  741. 2„4ô * Also Draw_Design_Size%, Draw_Chars_Defined%.
  742. 2 =ô * Also Draw_Font_Cache%[], index is ASCII code [0..255]
  743. 2ªJô * Draw_Font_Cache%   Draw buffer offset to path object for character
  744. 2´.ô * Draw_Font_Cache_X% Left, in draw units
  745. 2¾0ô * Draw_Font_Cache_Y% Bottom, in draw units
  746. 2È/ô * Draw_Font_Cache_W% Width, in draw units
  747. 2Ò0ô * Draw_Font_Cache_H% Height, in draw units
  748. 2Ü:
  749. 2æ'Ý ò_Open_Draw_Font( font$, cache% )
  750. 2ðê i%
  751. 2ú!  ç Draw_Font_Cache$<>font$ …
  752. 35    O% = ¤_OpenIn_Font_File( font$+ ".Outlines" )
  753. 3    ç O%=0 …
  754. 3;      Ŷ 1, "Outlines not found for font '"+ font$+ "'."
  755. 3"        Í
  756. 3,7    M% = ¤_OpenIn_Font_File( font$+ ".IntMetrics" )
  757. 36    ç M%=0 …
  758. 3@      Ù#O%
  759. 3J:      Ŷ 1, "Metrics not found for font '"+ font$+ "'."
  760. 3T        Í
  761. 3^    Ï#M% = 48
  762. 3h"    Draw_Chars_Defined% = Œ#M%
  763. 3r    Ï#O% = 6
  764. 3|/    Draw_Design_Size% = Œ#O% + (256 * Œ#O%)
  765. 3ŷ    ç cache%>0 …
  766. 3‘2      ò_Release_Heap_Block( Draw_Font_Cache% )
  767. 3Œ@      ò_Claim_Heap_Block( Draw_Font_Cache%, (256 << 2) * 6 )
  768. 3¤/      Draw_Font_Cache_D% = Draw_Font_Cache%
  769. 3®8      Draw_Font_Cache_X% = Draw_Font_Cache_D% + 1024
  770. 3¸8      Draw_Font_Cache_Y% = Draw_Font_Cache_X% + 1024
  771. 3Â8      Draw_Font_Cache_W% = Draw_Font_Cache_Y% + 1024
  772. 3Ì8      Draw_Font_Cache_H% = Draw_Font_Cache_W% + 1024
  773. 3Ö'      ã i%= 0 ¸ ((256 - 1) * 4) ⇦ 4
  774. 3à%        Draw_Font_Cache_D%!i% = 0
  775. 3ê      í i%
  776. 3ô        Í
  777. 3þ     Draw_Font_Cache$ = font$
  778. 4  Í
  779. 4á
  780. 4:
  781. 4&J: ô  Automatically called when close DrawFile, so only needed if using
  782. 40+: ô  more than one font in a draw file.
  783. 4::
  784. 4D Ý ò_Close_Draw_Font( font$ )
  785. 4N   ç Draw_Font_Cache$=font$ …
  786. 4X    ç O%>0 …
  787. 4b      Ù#O%
  788. 4l      O% = 0
  789. 4v        Í
  790. 4€    ç M%>0 …
  791. 4⇩      Ù#M%
  792. 4“      M% = 0
  793. 4fi        Í
  794. 4¨0    ò_Release_Heap_Block( Draw_Font_Cache% )
  795. 4²    Draw_Font_Cache_D% = 0
  796. 4¼    Draw_Font_Cache_X% = 0
  797. 4Æ    Draw_Font_Cache_Y% = 0
  798. 4Р   Draw_Font_Cache_W% = 0
  799. 4Ú    Draw_Font_Cache_H% = 0
  800. 4ä    Draw_Font_Cache$   = ""
  801. 4î  Í
  802. 4øá
  803. 5:
  804. 5 !Ý ¤_OpenIn_Font_File( file$ )
  805. 5ê h%
  806. 5 0  È− "OS_Find", &42, file$, "Font$Path" ¸ h%
  807. 5*= h%
  808. 54:
  809. 5>: ô
  810. 5H7: ô  Returns width in terms of Design co-ordinates.
  811. 5R:
  812. 5\Ý ¤_Char_Width( C% )
  813. 5fê Map_Byte%, Width%
  814. 5p>  ç M%=0 … Ŷ 1, "Bad call to FN_Char_Width, no font open."
  815. 5z  Ï#M% = 52 + C%
  816. 5☓  Map_Byte% = Œ#M%
  817. 5‰C  Ï#M% = 52 + 256 + (8 * Draw_Chars_Defined%) + (2 * Map_Byte%)
  818. 5—"  Width% = Œ#M% + (256 * Œ#M%)
  819. 5¢9  ç (Width% € &8000)<>0 … Width% = Width% ☓ &FFFF0000
  820. 5¬ = Width%
  821. 5¶:
  822. 5ÀJ: ô  Given a character, and a nominal width of font, return Draw Units
  823. 5Ê: ô  width of character.
  824. 5Ô:
  825. 5Þ%Ý ¤_Char_Draw_Width( C%, width% )
  826. 5è7= (¤_Char_Width( C% ) * width%) / Draw_Design_Size%
  827. 5ò:
  828. 5ü: ô
  829. 6;: ô  Read a 32-bit word from outline font at offset O%.
  830. 6:
  831. 6Ý ¤getofw( A% )
  832. 6$  Ï#O% = A%
  833. 6./= Œ#O% + 256*(Œ#O% + 256*(Œ#O% + 256*Œ#O%))
  834. 68:
  835. 6BB: ô  Read two 8/12-bit co-ordinates from roving outlines file.
  836. 6L: ô  Stores in D%++.
  837. 6V!: ô  USES Flag%, J%, K%, W, H
  838. 6`:
  839. 6j!Ý ò_Get_Draw_Font_Coordinates
  840. 6t ê x%, y%
  841. 6~  ç (Flag% € 1)<>0 …
  842. 6⇦    x% = Œ#O%
  843. 6‹    y% = Œ#O%
  844. 6†    x% += (y% € &F) << 8
  845. 6¦'    y% = (y% >>> 4) + ((Œ#O%) << 4)
  846. 6°(    ç x%>=&800 … x% = x% ☓ &FFFFF000
  847. 6º(    ç y%>=&800 … y% = y% ☓ &FFFFF000
  848. 6Ä  Ì
  849. 6Π   x% = Œ#O%
  850. 6Ø    y% = Œ#O%
  851. 6â'    ç x%>=&80 … x% = x% ☓ &FFFFFF00
  852. 6ì'    ç y%>=&80 … y% = y% ☓ &FFFFFF00
  853. 6ö  Í
  854. 7  ç ¬(Ignore%) …
  855. 7
  856.     !D% = J% + (x% * W)
  857. 7    D%!4 = K% + (y% * H)
  858. 7    D% += 8
  859. 7(  Í
  860. 72á
  861. 7<:
  862. 7FKô *********************************************************************
  863. 7PKô * These calls can be used to claim temporary workspace while creating
  864. 7ZHô * the draw file.  They should really only be called when "outside"
  865. 7dJô * any structure - in case future implementations can't handle memory
  866. 7nô * moving about.
  867. 7xKô * Because force callee to remember offset, can be called recursively.
  868. 7ŵGô * Returns an OFFSET, that can be dereferenced by FN_Draw_Address.
  869. 7…0ô * This has to be done over any Draw calls.
  870. 7„:
  871. 7 Jô * Store length of sub-buffr (privately) so know how far to download.
  872. 7ª:
  873. 7´&Ý ¤_Claim_Draw_Sub_Buffer( need% )
  874. 7¾)  need% = (((need% + 3) Ŵ 4) * 4) + 4
  875. 7È  ò_Draw_Check( need% )
  876. 7ÒH  !D% = need%                           :  ô  Store so can download.
  877. 7Ü  D% += need%
  878. 7æ'= (D% - (need% - 4)) - Draw_Buffer%
  879. 7ð:
  880. 7úÝ ¤_Draw_Address( offset% )
  881. 8= offset% + Draw_Buffer%
  882. 8:
  883. 8*Ý ò_Release_Draw_Sub_Buffer( Offset% )
  884. 8"ê i%, e%, d%, s%
  885. 8,(  d% = ¤_Draw_Address( Offset% ) - 4
  886. 86  e% = d% + (!d%)
  887. 8@  s% = D% - e%
  888. 8J  ç s%>0 …
  889. 8T    ã i%= 0 ¸ (s% - 1) ⇦ 4
  890. 8^      d%!i%= e%!i%
  891. 8h     í i%
  892. 8r  Í
  893. 8|  D% = d% + s%
  894. 8ŷá
  895. 8‘:
  896. 8ŒKô *********************************************************************
  897. 8¤:
  898. 8®!Ý ¤_Inches_To_Draw_Units( i )
  899. 8¸= i * 256 * 180
  900. 8Â:
  901. 8ÌÝ ò_Draw_Check( n_bytes% )
  902. 8Ö  ç (D%+n_bytes%)>E% …
  903. 8à    D% -= Draw_Buffer%
  904. 8ê    E% -= Draw_Buffer%
  905. 8ôC    n_bytes% = ¤_max_int( ((n_bytes% + 111) € -4), (4 * 1024) )
  906. 8þ5    ò_Extend_Heap_Block( Draw_Buffer%, n_bytes% )
  907. 9    D% += Draw_Buffer%
  908. 9%    E% += Draw_Buffer% + n_bytes%
  909. 9  Í
  910. 9&á
  911. 90:
  912. 9:Kô *********************************************************************
  913. 9DDô * The following routines transform PATHS - these are the paths
  914. 9NJô * themselves, less the header.  in% *MUST* be valid.  out%=0 if want
  915. 9XFô * to overwrite input, otherwise points to a buffer that contains
  916. 9b$ô * zero, then length of buffer.
  917. 9l:
  918. 9vC: ô  This is used to rotate an input path about a given origin.
  919. 9€:
  920. 9⇩8Ý ò_Draw_Rotate_Path( in%, out%, xo%, yo%, radians )
  921. 9“  ç (xo%<>0) ☓ (yo%<>0) …
  922. 9fi!    !TransMatrix% = &00010000
  923. 9¨    TransMatrix%!4 = 0
  924. 9²    TransMatrix%!8 = 0
  925. 9¼#    TransMatrix%!12 = &00010000
  926. 9Æ    TransMatrix%!16 = -xo%
  927. 9Р   TransMatrix%!20 = -yo%
  928. 9Ú9    È− "Draw_ProcessPath", in%, out%, TransMatrix%, 0
  929. 9ä    ç out%<>0 …
  930. 9î      in% = out%
  931. 9ø      out% = 0
  932. :        Í
  933. :   Í
  934. :,  !TransMatrix% = œ(radians) * (1 << 16)
  935. : -  TransMatrix%!4 = µ(radians) * (1 << 16)
  936. :*(  TransMatrix%!8 = -(TransMatrix%!4)
  937. :4(  TransMatrix%!12 = -(!TransMatrix%)
  938. :>  TransMatrix%!16 = xo%
  939. :H  TransMatrix%!20 = yo%
  940. :R7  È− "Draw_ProcessPath", in%, out%, TransMatrix%, 0
  941. :\á
  942. :f:
  943. :p1: ô  Shift the whole object around the plane.
  944. :z:
  945. :☓2Ý ò_Draw_Translate_Path( in%, out%, dx%, dy% )
  946. :‰  !TransMatrix% = &00010000
  947. :—  TransMatrix%!4 = 0
  948. :¢  TransMatrix%!8 = 0
  949. :¬!  TransMatrix%!12 = &00010000
  950. :¶  TransMatrix%!16 = dx%
  951. :À  TransMatrix%!20 = dy%
  952. :Ê7  È− "Draw_ProcessPath", in%, out%, TransMatrix%, 0
  953. :Ôá
  954. :Þ:
  955. :è : ô  Scale the whole object.
  956. :ò:
  957. :ü,Ý ò_Draw_Scale_Path( in%, out%, dx, dy )
  958. ;$  !TransMatrix% = dx * &00010000
  959. ;  TransMatrix%!4 = 0
  960. ;  TransMatrix%!8 = 0
  961. ;$&  TransMatrix%!12 = dy * &00010000
  962. ;.  TransMatrix%!16 = 0
  963. ;8  TransMatrix%!20 = 0
  964. ;B7  È− "Draw_ProcessPath", in%, out%, TransMatrix%, 0
  965. ;Lá
  966. ;V:
  967. ;`,: ô  [D%] <-- output path of size% (>8).
  968. ;j:
  969. ;t#Ý ò_Init_Draw_Out_Path( size% )
  970. ;~  ò_Check( size% )
  971. ;⇦
  972.   !D% = 0
  973. ;‹  D%!4 = size%
  974. ;†á
  975. ;¦:
  976. ;°Kô *********************************************************************
  977. ;º=ô * Given a path Object header, fill in the bounding box.
  978. ;Ä:
  979. ;Î1Ý ò_Draw_Path_Bounding_Box( h%, fill_style% )
  980. ;Ø.  ç fill_style%=-1 … fill_style%=&7000003A
  981. ;âL  È− "Draw_ProcessPath", h%+40, fill_style%, 0, 0, 0, 0, 0, h%+&80000008
  982. ;ìá
  983. ;ö:
  984. <+ô  Last line of <BasicV$Lib>.CreateDraw
  985. ÿ