Home » Archimedes archive » Archimedes World » AW-1995-03-Disc1.adf » Disk1Mar95 » !AWMar95/Goodies/DrawBasic/!DrawBasic/Info/Commands/Fonts

!AWMar95/Goodies/DrawBasic/!DrawBasic/Info/Commands/Fonts

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 » Archimedes World » AW-1995-03-Disc1.adf » Disk1Mar95
Filename: !AWMar95/Goodies/DrawBasic/!DrawBasic/Info/Commands/Fonts
Read OK:
File size: 0333 bytes
Load address: 0000
Exec address: 0000
File contents
 Resources.Fonts :
 ===============

  Fonts and text are discussed in Chapter 7 of the DrawBasic book. Pages 61-66
  
----------------------------------------------------------------------------- 
  � FONTS  
  -----------------------                                    
 �Font(font$,font_size%)      
 �FontSize(font_size%)
 �AddFont(font$)
 �CurrentFont(font%)
    �FontColour=!(HIMEM+88)      
    �FontSize=!(HIMEM+84)
-----------------------------------------------------------------------------   
  � PRINTING  
  -----------------------   
 �Print(text$,x,y)          
 �AnglePrint(text$,x,y,angle)
   �AnglePrint(text$,x,y,angle)       
   �Print(text$,x,y)            
   �Text(text$,x,y)         
 �TextColour(colour%)         
----------------------------------------------------------------------------- 
00000000  20 52 65 73 6f 75 72 63  65 73 2e 46 6f 6e 74 73  | Resources.Fonts|
00000010  20 3a 0a 20 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  | :. ============|
00000020  3d 3d 3d 0a 0a 20 20 46  6f 6e 74 73 20 61 6e 64  |===..  Fonts and|
00000030  20 74 65 78 74 20 61 72  65 20 64 69 73 63 75 73  | text are discus|
00000040  73 65 64 20 69 6e 20 43  68 61 70 74 65 72 20 37  |sed in Chapter 7|
00000050  20 6f 66 20 74 68 65 20  44 72 61 77 42 61 73 69  | of the DrawBasi|
00000060  63 20 62 6f 6f 6b 2e 20  50 61 67 65 73 20 36 31  |c book. Pages 61|
00000070  2d 36 36 0a 20 20 0a 2d  2d 2d 2d 2d 2d 2d 2d 2d  |-66.  .---------|
00000080  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000000c0  2d 2d 2d 2d 20 0a 20 20  8f 20 46 4f 4e 54 53 20  |---- .  . FONTS |
000000d0  20 0a 20 20 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  | .  ------------|
000000e0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 20 20 20 20 20  |-----------     |
000000f0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000100  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 0a  |               .|
00000110  20 b7 46 6f 6e 74 28 66  6f 6e 74 24 2c 66 6f 6e  | .Font(font$,fon|
00000120  74 5f 73 69 7a 65 25 29  20 20 20 20 20 20 0a 20  |t_size%)      . |
00000130  b7 46 6f 6e 74 53 69 7a  65 28 66 6f 6e 74 5f 73  |.FontSize(font_s|
00000140  69 7a 65 25 29 0a 20 b7  41 64 64 46 6f 6e 74 28  |ize%). .AddFont(|
00000150  66 6f 6e 74 24 29 0a 20  b7 43 75 72 72 65 6e 74  |font$). .Current|
00000160  46 6f 6e 74 28 66 6f 6e  74 25 29 0a 20 20 20 20  |Font(font%).    |
00000170  bb 46 6f 6e 74 43 6f 6c  6f 75 72 3d 21 28 48 49  |.FontColour=!(HI|
00000180  4d 45 4d 2b 38 38 29 20  20 20 20 20 20 0a 20 20  |MEM+88)      .  |
00000190  20 20 bb 46 6f 6e 74 53  69 7a 65 3d 21 28 48 49  |  .FontSize=!(HI|
000001a0  4d 45 4d 2b 38 34 29 0a  2d 2d 2d 2d 2d 2d 2d 2d  |MEM+84).--------|
000001b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000001f0  2d 2d 2d 2d 2d 20 20 20  0a 20 20 8f 20 50 52 49  |-----   .  . PRI|
00000200  4e 54 49 4e 47 20 20 0a  20 20 2d 2d 2d 2d 2d 2d  |NTING  .  ------|
00000210  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
00000220  2d 20 20 20 0a 20 b7 50  72 69 6e 74 28 74 65 78  |-   . .Print(tex|
00000230  74 24 2c 78 2c 79 29 20  20 20 20 20 20 20 20 20  |t$,x,y)         |
00000240  20 0a 20 b7 41 6e 67 6c  65 50 72 69 6e 74 28 74  | . .AnglePrint(t|
00000250  65 78 74 24 2c 78 2c 79  2c 61 6e 67 6c 65 29 0a  |ext$,x,y,angle).|
00000260  20 20 20 bb 41 6e 67 6c  65 50 72 69 6e 74 28 74  |   .AnglePrint(t|
00000270  65 78 74 24 2c 78 2c 79  2c 61 6e 67 6c 65 29 20  |ext$,x,y,angle) |
00000280  20 20 20 20 20 20 0a 20  20 20 bb 50 72 69 6e 74  |      .   .Print|
00000290  28 74 65 78 74 24 2c 78  2c 79 29 20 20 20 20 20  |(text$,x,y)     |
000002a0  20 20 20 20 20 20 20 0a  20 20 20 bb 54 65 78 74  |       .   .Text|
000002b0  28 74 65 78 74 24 2c 78  2c 79 29 20 20 20 20 20  |(text$,x,y)     |
000002c0  20 20 20 20 0a 20 b7 54  65 78 74 43 6f 6c 6f 75  |    . .TextColou|
000002d0  72 28 63 6f 6c 6f 75 72  25 29 20 20 20 20 20 20  |r(colour%)      |
000002e0  20 20 20 0a 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |   .------------|
000002f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000330  2d 20 0a                                          |- .|
00000333