Home » Archimedes archive » Acorn Computing » 1994 02.adf » 9402 » FontManage/Example3

FontManage/Example3

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn Computing » 1994 02.adf » 9402
Filename: FontManage/Example3
Read OK:
File size: 093D bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
   10REM > Example3
   20REM Example of Font Manager use - show rotated text
   30REM by Ben Summers
   40
   50
   60REM first check to see if we have the RISC OS 3.1 font manager
   70SYS "Font_CacheAddr" TO version%
   80IF version% < 300 THEN ERROR 0,"Font Manager too old"
   90
  100REM find a suitible mode (multisync if possible)
  110SYS "OS_CheckModeValid",20 TO ;f%
  120IF (f% AND 2) = 2 THEN MODE 12 ELSE MODE 20
  130
  140REM claim block for transformation matrix
  150DIM matrix% 32
  160
  170REM set up the palette
  180white%  = &FFFFFF00
  190black%  = &00000000
  200REM white on black, using all the palette
  210SYS "Font_SetPalette",,0,1,14,black%,white%,&65757254
  220
  230REM ok, let's find a font or two...
  240size1% = 58 * 16
  250size2% = 24 * 16
  260SYS "Font_FindFont",,"Corpus.Bold",size1%,size1%,0,0 TO font1%
  270SYS "Font_FindFont",,"Trinity.Medium",size2%,size2%,0,0 TO font2%
  280
  290REM right then, paint onto the screen in a circle, first selecting the colour
  300REM using colourtrans
  310
  320SYS "ColourTrans_SetFontColours",font1%,black%,white%,14
  330PROCtext_circle(font1%, "This is some text in a circle ", 640, 512, 384)
  340
  350REM and now, for my final trick, plot some more text at various angles
  360FOR theta = 0 TO 360 STEP 30
  370  col% = 255*theta/360
  380  SYS "ColourTrans_SetFontColours",font2%,black%,(col%<<8) + (col%<<16) + (col%<<24),2
  390  PROCtext_at_angle(font2%, "and at an angle", 640, 512, theta)
  400NEXT
  410
  420REM and finally, lose the fonts...
  430SYS "Font_LoseFont",font1%
  440SYS "Font_LoseFont",font2%
  450
  460END
  470
  480DEFPROCtext_circle(font%, text$, x%, y%, r%)
  490l% = LEN(text$)
  500FOR n% = 0 TO l%-1
  510  REM work out angle of rotation in radians
  520  theta = (2*PI/l%) * (n%-0.5)
  530  REM and a correction factor so the letters are at the right angle
  540  cor = (2*PI/l%) * 0.5
  550  matrix%!0  =  COS(theta + cor) * 65536
  560  matrix%!4  = -SIN(theta + cor) * 65536
  570  matrix%!8  =  SIN(theta + cor) * 65536
  580  matrix%!12 =  COS(theta + cor) * 65536
  590  matrix%!16 =  0
  600  matrix%!20 =  0
  610
  620  SYS "Font_Paint",font%,MID$(text$, n%+1, 1),848,x%+(r%*SIN(theta)),y%+(r%*COS(theta)),,matrix%
  630NEXT
  640ENDPROC
  650
  660DEFPROCtext_at_angle(font%, text$, x%, y%, theta)
  670REM set the matrix to rotate by theta
  680matrix%!0  =  COS(RAD(theta)) * 65536
  690matrix%!4  = -SIN(RAD(theta)) * 65536
  700matrix%!8  =  SIN(RAD(theta)) * 65536
  710matrix%!12 =  COS(RAD(theta)) * 65536
  720matrix%!16 =  0
  730matrix%!20 =  0
  740SYS "Font_Paint",font%,text$,848,x%,y%,,matrix%
  750
  760ENDPROC
  770
  780

� > Example3
5� Example of Font Manager use - show rotated text
� by Ben Summers
(
2
<@� first check to see if we have the RISC OS 3.1 font manager
F"ș "Font_CacheAddr" � version%
P1� version% < 300 � � 0,"Font Manager too old"
Z
d2� find a suitible mode (multisync if possible)
n#ș "OS_CheckModeValid",20 � ;f%
x � (f% � 2) = 2 � � 12 � � 20
�
�+� claim block for transformation matrix
�� matrix% 32
�
�� set up the palette
�white%  = &FFFFFF00
�black%  = &00000000
�+� white on black, using all the palette
�8ș "Font_SetPalette",,0,1,14,black%,white%,&65757254
�
�%� ok, let's find a font or two...
�size1% = 58 * 16
�size2% = 24 * 16
@ș "Font_FindFont",,"Corpus.Bold",size1%,size1%,0,0 � font1%
Cș "Font_FindFont",,"Trinity.Medium",size2%,size2%,0,0 � font2%

"O� right then, paint onto the screen in a circle, first selecting the colour
,� using colourtrans
6
@;ș "ColourTrans_SetFontColours",font1%,black%,white%,14
JI�text_circle(font1%, "This is some text in a circle ", 640, 512, 384)
T
^H� and now, for my final trick, plot some more text at various angles
h� theta = 0 � 360 � 30
r  col% = 255*theta/360
|Y  ș "ColourTrans_SetFontColours",font2%,black%,(col%<<8) + (col%<<16) + (col%<<24),2
�@  �text_at_angle(font2%, "and at an angle", 640, 512, theta)
��
�
�$� and finally, lose the fonts...
�ș "Font_LoseFont",font1%
�ș "Font_LoseFont",font2%
�
��
�
�+��text_circle(font%, text$, x%, y%, r%)
�l% = �(text$)
�� n% = 0 � l%-1
�-  � work out angle of rotation in radians
!  theta = (2*�/l%) * (n%-0.5)
E  � and a correction factor so the letters are at the right angle
  cor = (2*�/l%) * 0.5
&*  matrix%!0  =  �(theta + cor) * 65536
0*  matrix%!4  = -�(theta + cor) * 65536
:*  matrix%!8  =  �(theta + cor) * 65536
D*  matrix%!12 =  �(theta + cor) * 65536
N  matrix%!16 =  0
X  matrix%!20 =  0
b
l[  ș "Font_Paint",font%,�text$, n%+1, 1),848,x%+(r%*�(theta)),y%+(r%*�(theta)),,matrix%
v�
��
�
�0��text_at_angle(font%, text$, x%, y%, theta)
�'� set the matrix to rotate by theta
�%matrix%!0  =  �(�(theta)) * 65536
�%matrix%!4  = -�(�(theta)) * 65536
�%matrix%!8  =  �(�(theta)) * 65536
�%matrix%!12 =  �(�(theta)) * 65536
�matrix%!16 =  0
�matrix%!20 =  0
�2ș "Font_Paint",font%,text$,848,x%,y%,,matrix%
�
��


�
00000000  0d 00 0a 10 f4 20 3e 20  45 78 61 6d 70 6c 65 33  |..... > Example3|
00000010  0d 00 14 35 f4 20 45 78  61 6d 70 6c 65 20 6f 66  |...5. Example of|
00000020  20 46 6f 6e 74 20 4d 61  6e 61 67 65 72 20 75 73  | Font Manager us|
00000030  65 20 2d 20 73 68 6f 77  20 72 6f 74 61 74 65 64  |e - show rotated|
00000040  20 74 65 78 74 0d 00 1e  14 f4 20 62 79 20 42 65  | text..... by Be|
00000050  6e 20 53 75 6d 6d 65 72  73 0d 00 28 04 0d 00 32  |n Summers..(...2|
00000060  04 0d 00 3c 40 f4 20 66  69 72 73 74 20 63 68 65  |...<@. first che|
00000070  63 6b 20 74 6f 20 73 65  65 20 69 66 20 77 65 20  |ck to see if we |
00000080  68 61 76 65 20 74 68 65  20 52 49 53 43 20 4f 53  |have the RISC OS|
00000090  20 33 2e 31 20 66 6f 6e  74 20 6d 61 6e 61 67 65  | 3.1 font manage|
000000a0  72 0d 00 46 22 c8 99 20  22 46 6f 6e 74 5f 43 61  |r..F".. "Font_Ca|
000000b0  63 68 65 41 64 64 72 22  20 b8 20 76 65 72 73 69  |cheAddr" . versi|
000000c0  6f 6e 25 0d 00 50 31 e7  20 76 65 72 73 69 6f 6e  |on%..P1. version|
000000d0  25 20 3c 20 33 30 30 20  8c 20 85 20 30 2c 22 46  |% < 300 . . 0,"F|
000000e0  6f 6e 74 20 4d 61 6e 61  67 65 72 20 74 6f 6f 20  |ont Manager too |
000000f0  6f 6c 64 22 0d 00 5a 04  0d 00 64 32 f4 20 66 69  |old"..Z...d2. fi|
00000100  6e 64 20 61 20 73 75 69  74 69 62 6c 65 20 6d 6f  |nd a suitible mo|
00000110  64 65 20 28 6d 75 6c 74  69 73 79 6e 63 20 69 66  |de (multisync if|
00000120  20 70 6f 73 73 69 62 6c  65 29 0d 00 6e 23 c8 99  | possible)..n#..|
00000130  20 22 4f 53 5f 43 68 65  63 6b 4d 6f 64 65 56 61  | "OS_CheckModeVa|
00000140  6c 69 64 22 2c 32 30 20  b8 20 3b 66 25 0d 00 78  |lid",20 . ;f%..x|
00000150  20 e7 20 28 66 25 20 80  20 32 29 20 3d 20 32 20  | . (f% . 2) = 2 |
00000160  8c 20 eb 20 31 32 20 8b  20 eb 20 32 30 0d 00 82  |. . 12 . . 20...|
00000170  04 0d 00 8c 2b f4 20 63  6c 61 69 6d 20 62 6c 6f  |....+. claim blo|
00000180  63 6b 20 66 6f 72 20 74  72 61 6e 73 66 6f 72 6d  |ck for transform|
00000190  61 74 69 6f 6e 20 6d 61  74 72 69 78 0d 00 96 10  |ation matrix....|
000001a0  de 20 6d 61 74 72 69 78  25 20 33 32 0d 00 a0 04  |. matrix% 32....|
000001b0  0d 00 aa 18 f4 20 73 65  74 20 75 70 20 74 68 65  |..... set up the|
000001c0  20 70 61 6c 65 74 74 65  0d 00 b4 17 77 68 69 74  | palette....whit|
000001d0  65 25 20 20 3d 20 26 46  46 46 46 46 46 30 30 0d  |e%  = &FFFFFF00.|
000001e0  00 be 17 62 6c 61 63 6b  25 20 20 3d 20 26 30 30  |...black%  = &00|
000001f0  30 30 30 30 30 30 0d 00  c8 2b f4 20 77 68 69 74  |000000...+. whit|
00000200  65 20 6f 6e 20 62 6c 61  63 6b 2c 20 75 73 69 6e  |e on black, usin|
00000210  67 20 61 6c 6c 20 74 68  65 20 70 61 6c 65 74 74  |g all the palett|
00000220  65 0d 00 d2 38 c8 99 20  22 46 6f 6e 74 5f 53 65  |e...8.. "Font_Se|
00000230  74 50 61 6c 65 74 74 65  22 2c 2c 30 2c 31 2c 31  |tPalette",,0,1,1|
00000240  34 2c 62 6c 61 63 6b 25  2c 77 68 69 74 65 25 2c  |4,black%,white%,|
00000250  26 36 35 37 35 37 32 35  34 0d 00 dc 04 0d 00 e6  |&65757254.......|
00000260  25 f4 20 6f 6b 2c 20 6c  65 74 27 73 20 66 69 6e  |%. ok, let's fin|
00000270  64 20 61 20 66 6f 6e 74  20 6f 72 20 74 77 6f 2e  |d a font or two.|
00000280  2e 2e 0d 00 f0 14 73 69  7a 65 31 25 20 3d 20 35  |......size1% = 5|
00000290  38 20 2a 20 31 36 0d 00  fa 14 73 69 7a 65 32 25  |8 * 16....size2%|
000002a0  20 3d 20 32 34 20 2a 20  31 36 0d 01 04 40 c8 99  | = 24 * 16...@..|
000002b0  20 22 46 6f 6e 74 5f 46  69 6e 64 46 6f 6e 74 22  | "Font_FindFont"|
000002c0  2c 2c 22 43 6f 72 70 75  73 2e 42 6f 6c 64 22 2c  |,,"Corpus.Bold",|
000002d0  73 69 7a 65 31 25 2c 73  69 7a 65 31 25 2c 30 2c  |size1%,size1%,0,|
000002e0  30 20 b8 20 66 6f 6e 74  31 25 0d 01 0e 43 c8 99  |0 . font1%...C..|
000002f0  20 22 46 6f 6e 74 5f 46  69 6e 64 46 6f 6e 74 22  | "Font_FindFont"|
00000300  2c 2c 22 54 72 69 6e 69  74 79 2e 4d 65 64 69 75  |,,"Trinity.Mediu|
00000310  6d 22 2c 73 69 7a 65 32  25 2c 73 69 7a 65 32 25  |m",size2%,size2%|
00000320  2c 30 2c 30 20 b8 20 66  6f 6e 74 32 25 0d 01 18  |,0,0 . font2%...|
00000330  04 0d 01 22 4f f4 20 72  69 67 68 74 20 74 68 65  |..."O. right the|
00000340  6e 2c 20 70 61 69 6e 74  20 6f 6e 74 6f 20 74 68  |n, paint onto th|
00000350  65 20 73 63 72 65 65 6e  20 69 6e 20 61 20 63 69  |e screen in a ci|
00000360  72 63 6c 65 2c 20 66 69  72 73 74 20 73 65 6c 65  |rcle, first sele|
00000370  63 74 69 6e 67 20 74 68  65 20 63 6f 6c 6f 75 72  |cting the colour|
00000380  0d 01 2c 17 f4 20 75 73  69 6e 67 20 63 6f 6c 6f  |..,.. using colo|
00000390  75 72 74 72 61 6e 73 0d  01 36 04 0d 01 40 3b c8  |urtrans..6...@;.|
000003a0  99 20 22 43 6f 6c 6f 75  72 54 72 61 6e 73 5f 53  |. "ColourTrans_S|
000003b0  65 74 46 6f 6e 74 43 6f  6c 6f 75 72 73 22 2c 66  |etFontColours",f|
000003c0  6f 6e 74 31 25 2c 62 6c  61 63 6b 25 2c 77 68 69  |ont1%,black%,whi|
000003d0  74 65 25 2c 31 34 0d 01  4a 49 f2 74 65 78 74 5f  |te%,14..JI.text_|
000003e0  63 69 72 63 6c 65 28 66  6f 6e 74 31 25 2c 20 22  |circle(font1%, "|
000003f0  54 68 69 73 20 69 73 20  73 6f 6d 65 20 74 65 78  |This is some tex|
00000400  74 20 69 6e 20 61 20 63  69 72 63 6c 65 20 22 2c  |t in a circle ",|
00000410  20 36 34 30 2c 20 35 31  32 2c 20 33 38 34 29 0d  | 640, 512, 384).|
00000420  01 54 04 0d 01 5e 48 f4  20 61 6e 64 20 6e 6f 77  |.T...^H. and now|
00000430  2c 20 66 6f 72 20 6d 79  20 66 69 6e 61 6c 20 74  |, for my final t|
00000440  72 69 63 6b 2c 20 70 6c  6f 74 20 73 6f 6d 65 20  |rick, plot some |
00000450  6d 6f 72 65 20 74 65 78  74 20 61 74 20 76 61 72  |more text at var|
00000460  69 6f 75 73 20 61 6e 67  6c 65 73 0d 01 68 1a e3  |ious angles..h..|
00000470  20 74 68 65 74 61 20 3d  20 30 20 b8 20 33 36 30  | theta = 0 . 360|
00000480  20 88 20 33 30 0d 01 72  1a 20 20 63 6f 6c 25 20  | . 30..r.  col% |
00000490  3d 20 32 35 35 2a 74 68  65 74 61 2f 33 36 30 0d  |= 255*theta/360.|
000004a0  01 7c 59 20 20 c8 99 20  22 43 6f 6c 6f 75 72 54  |.|Y  .. "ColourT|
000004b0  72 61 6e 73 5f 53 65 74  46 6f 6e 74 43 6f 6c 6f  |rans_SetFontColo|
000004c0  75 72 73 22 2c 66 6f 6e  74 32 25 2c 62 6c 61 63  |urs",font2%,blac|
000004d0  6b 25 2c 28 63 6f 6c 25  3c 3c 38 29 20 2b 20 28  |k%,(col%<<8) + (|
000004e0  63 6f 6c 25 3c 3c 31 36  29 20 2b 20 28 63 6f 6c  |col%<<16) + (col|
000004f0  25 3c 3c 32 34 29 2c 32  0d 01 86 40 20 20 f2 74  |%<<24),2...@  .t|
00000500  65 78 74 5f 61 74 5f 61  6e 67 6c 65 28 66 6f 6e  |ext_at_angle(fon|
00000510  74 32 25 2c 20 22 61 6e  64 20 61 74 20 61 6e 20  |t2%, "and at an |
00000520  61 6e 67 6c 65 22 2c 20  36 34 30 2c 20 35 31 32  |angle", 640, 512|
00000530  2c 20 74 68 65 74 61 29  0d 01 90 05 ed 0d 01 9a  |, theta)........|
00000540  04 0d 01 a4 24 f4 20 61  6e 64 20 66 69 6e 61 6c  |....$. and final|
00000550  6c 79 2c 20 6c 6f 73 65  20 74 68 65 20 66 6f 6e  |ly, lose the fon|
00000560  74 73 2e 2e 2e 0d 01 ae  1d c8 99 20 22 46 6f 6e  |ts......... "Fon|
00000570  74 5f 4c 6f 73 65 46 6f  6e 74 22 2c 66 6f 6e 74  |t_LoseFont",font|
00000580  31 25 0d 01 b8 1d c8 99  20 22 46 6f 6e 74 5f 4c  |1%...... "Font_L|
00000590  6f 73 65 46 6f 6e 74 22  2c 66 6f 6e 74 32 25 0d  |oseFont",font2%.|
000005a0  01 c2 04 0d 01 cc 05 e0  0d 01 d6 04 0d 01 e0 2b  |...............+|
000005b0  dd f2 74 65 78 74 5f 63  69 72 63 6c 65 28 66 6f  |..text_circle(fo|
000005c0  6e 74 25 2c 20 74 65 78  74 24 2c 20 78 25 2c 20  |nt%, text$, x%, |
000005d0  79 25 2c 20 72 25 29 0d  01 ea 11 6c 25 20 3d 20  |y%, r%)....l% = |
000005e0  a9 28 74 65 78 74 24 29  0d 01 f4 13 e3 20 6e 25  |.(text$)..... n%|
000005f0  20 3d 20 30 20 b8 20 6c  25 2d 31 0d 01 fe 2d 20  | = 0 . l%-1...- |
00000600  20 f4 20 77 6f 72 6b 20  6f 75 74 20 61 6e 67 6c  | . work out angl|
00000610  65 20 6f 66 20 72 6f 74  61 74 69 6f 6e 20 69 6e  |e of rotation in|
00000620  20 72 61 64 69 61 6e 73  0d 02 08 21 20 20 74 68  | radians...!  th|
00000630  65 74 61 20 3d 20 28 32  2a af 2f 6c 25 29 20 2a  |eta = (2*./l%) *|
00000640  20 28 6e 25 2d 30 2e 35  29 0d 02 12 45 20 20 f4  | (n%-0.5)...E  .|
00000650  20 61 6e 64 20 61 20 63  6f 72 72 65 63 74 69 6f  | and a correctio|
00000660  6e 20 66 61 63 74 6f 72  20 73 6f 20 74 68 65 20  |n factor so the |
00000670  6c 65 74 74 65 72 73 20  61 72 65 20 61 74 20 74  |letters are at t|
00000680  68 65 20 72 69 67 68 74  20 61 6e 67 6c 65 0d 02  |he right angle..|
00000690  1c 1a 20 20 63 6f 72 20  3d 20 28 32 2a af 2f 6c  |..  cor = (2*./l|
000006a0  25 29 20 2a 20 30 2e 35  0d 02 26 2a 20 20 6d 61  |%) * 0.5..&*  ma|
000006b0  74 72 69 78 25 21 30 20  20 3d 20 20 9b 28 74 68  |trix%!0  =  .(th|
000006c0  65 74 61 20 2b 20 63 6f  72 29 20 2a 20 36 35 35  |eta + cor) * 655|
000006d0  33 36 0d 02 30 2a 20 20  6d 61 74 72 69 78 25 21  |36..0*  matrix%!|
000006e0  34 20 20 3d 20 2d b5 28  74 68 65 74 61 20 2b 20  |4  = -.(theta + |
000006f0  63 6f 72 29 20 2a 20 36  35 35 33 36 0d 02 3a 2a  |cor) * 65536..:*|
00000700  20 20 6d 61 74 72 69 78  25 21 38 20 20 3d 20 20  |  matrix%!8  =  |
00000710  b5 28 74 68 65 74 61 20  2b 20 63 6f 72 29 20 2a  |.(theta + cor) *|
00000720  20 36 35 35 33 36 0d 02  44 2a 20 20 6d 61 74 72  | 65536..D*  matr|
00000730  69 78 25 21 31 32 20 3d  20 20 9b 28 74 68 65 74  |ix%!12 =  .(thet|
00000740  61 20 2b 20 63 6f 72 29  20 2a 20 36 35 35 33 36  |a + cor) * 65536|
00000750  0d 02 4e 15 20 20 6d 61  74 72 69 78 25 21 31 36  |..N.  matrix%!16|
00000760  20 3d 20 20 30 0d 02 58  15 20 20 6d 61 74 72 69  | =  0..X.  matri|
00000770  78 25 21 32 30 20 3d 20  20 30 0d 02 62 04 0d 02  |x%!20 =  0..b...|
00000780  6c 5b 20 20 c8 99 20 22  46 6f 6e 74 5f 50 61 69  |l[  .. "Font_Pai|
00000790  6e 74 22 2c 66 6f 6e 74  25 2c c1 74 65 78 74 24  |nt",font%,.text$|
000007a0  2c 20 6e 25 2b 31 2c 20  31 29 2c 38 34 38 2c 78  |, n%+1, 1),848,x|
000007b0  25 2b 28 72 25 2a b5 28  74 68 65 74 61 29 29 2c  |%+(r%*.(theta)),|
000007c0  79 25 2b 28 72 25 2a 9b  28 74 68 65 74 61 29 29  |y%+(r%*.(theta))|
000007d0  2c 2c 6d 61 74 72 69 78  25 0d 02 76 05 ed 0d 02  |,,matrix%..v....|
000007e0  80 05 e1 0d 02 8a 04 0d  02 94 30 dd f2 74 65 78  |..........0..tex|
000007f0  74 5f 61 74 5f 61 6e 67  6c 65 28 66 6f 6e 74 25  |t_at_angle(font%|
00000800  2c 20 74 65 78 74 24 2c  20 78 25 2c 20 79 25 2c  |, text$, x%, y%,|
00000810  20 74 68 65 74 61 29 0d  02 9e 27 f4 20 73 65 74  | theta)...'. set|
00000820  20 74 68 65 20 6d 61 74  72 69 78 20 74 6f 20 72  | the matrix to r|
00000830  6f 74 61 74 65 20 62 79  20 74 68 65 74 61 0d 02  |otate by theta..|
00000840  a8 25 6d 61 74 72 69 78  25 21 30 20 20 3d 20 20  |.%matrix%!0  =  |
00000850  9b 28 b2 28 74 68 65 74  61 29 29 20 2a 20 36 35  |.(.(theta)) * 65|
00000860  35 33 36 0d 02 b2 25 6d  61 74 72 69 78 25 21 34  |536...%matrix%!4|
00000870  20 20 3d 20 2d b5 28 b2  28 74 68 65 74 61 29 29  |  = -.(.(theta))|
00000880  20 2a 20 36 35 35 33 36  0d 02 bc 25 6d 61 74 72  | * 65536...%matr|
00000890  69 78 25 21 38 20 20 3d  20 20 b5 28 b2 28 74 68  |ix%!8  =  .(.(th|
000008a0  65 74 61 29 29 20 2a 20  36 35 35 33 36 0d 02 c6  |eta)) * 65536...|
000008b0  25 6d 61 74 72 69 78 25  21 31 32 20 3d 20 20 9b  |%matrix%!12 =  .|
000008c0  28 b2 28 74 68 65 74 61  29 29 20 2a 20 36 35 35  |(.(theta)) * 655|
000008d0  33 36 0d 02 d0 13 6d 61  74 72 69 78 25 21 31 36  |36....matrix%!16|
000008e0  20 3d 20 20 30 0d 02 da  13 6d 61 74 72 69 78 25  | =  0....matrix%|
000008f0  21 32 30 20 3d 20 20 30  0d 02 e4 32 c8 99 20 22  |!20 =  0...2.. "|
00000900  46 6f 6e 74 5f 50 61 69  6e 74 22 2c 66 6f 6e 74  |Font_Paint",font|
00000910  25 2c 74 65 78 74 24 2c  38 34 38 2c 78 25 2c 79  |%,text$,848,x%,y|
00000920  25 2c 2c 6d 61 74 72 69  78 25 0d 02 ee 04 0d 02  |%,,matrix%......|
00000930  f8 05 e1 0d 03 02 04 0d  03 0c 04 0d ff           |.............|
0000093d