Home » Archimedes archive » Archimedes World » AW-1995-02-Disc1.adf » Disk1Feb95 » !AWFeb95/Goodies/DrawBasic/!DrawBasic/Resources/Points

!AWFeb95/Goodies/DrawBasic/!DrawBasic/Resources/Points

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-02-Disc1.adf » Disk1Feb95
Filename: !AWFeb95/Goodies/DrawBasic/!DrawBasic/Resources/Points
Read OK: ✔
File size: 0664 bytes
Load address: 0000
Exec address: 0000
Duplicates

There are 5 duplicate copies of this file in the archive:

File contents
    1REM >DrawBasic:Resources.Points
    2REM ********************
    3REM
    4REM 4. SYMBOLS & POINTS
    5REM
    6REM ********************
    7
    8REM =======================
    9REM 4.1 Symbols and Points
   10REM =======================
   11
   12DEF FNSymbolType=!(HIMEM+72)
   13
   14DEF FNPointSize=!(HIMEM+80)
   15
   16DEF PROCSymbol(n%,point_size)
   17!(HIMEM+72)=n%
   18!(HIMEM+80)=point_size
   19ENDPROC
   20
   21DEF PROC@Point(x,y)
   22LOCAL _sx,_sy
   23 _sx=INT(320*FNPointSize+.5)/FNX_Scale
   24 _sy=INT(320*FNPointSize+.5)/FNY_Scale
   25CASE FNSymbolType OF
   26 WHEN 1 : PROC@Triangle(x,y-_sy,x-_sx*SQR3/2,y+_sy/2,x+_sx*SQR3/2,y+_sy/2)
   27 WHEN 2 : PROC@Cross(x,y,2*_sx,2*_sy)
   28 WHEN 3 : _sy=_sy/SQR2 : _sx=_sx/SQR2
   29          PROC@Line(x-_sx,y+_sy,x+_sx,y-_sy)
   30          PROC@Line(x-_sx,y-_sy,x+_sx,y+_sy)
   31 WHEN 4 : PROC@Cross(x,y,2*_sx,2*_sy)
   32          _sy=2*_sy/SQR2/3 : _sx=2*_sx/SQR2/3
   33          PROC@Line(x-_sx,y+_sy,x+_sx,y-_sy)
   34          PROC@Line(x-_sx,y-_sy,x+_sx,y+_sy)
   35 WHEN 5 : PROC@Rectangle(x-_sx,y-_sy,2*_sx,2*_sy)
   36 WHEN 6 : PROC@Ellipse(x,y,_sx,_sy)
   37 WHEN 7 : PROC@Diamond(x,y,_sx,_sy)
   38 WHEN 8 : PROC@Triangle(x,y,x-_sx,y-_sy,x+_sx,y-_sy)
   39          PROC@Triangle(x,y,x-_sx,y+_sy,x+_sx,y+_sy)
   40 WHEN 9 : PROC@Triangle(x,y,x+_sx,y+_sy,x+_sx,y-_sy)
   41          PROC@Triangle(x,y,x-_sx,y+_sy,x-_sx,y-_sy)
   42 OTHERWISE : PROC@Triangle(x,y+_sy,x-_sx*SQR3/2,y-_sy/2,x+_sx*SQR3/2,y-_sy/2)
   43ENDCASE
   44ENDPROC
   45
   46DEF PROCPoint(x,y)
   47LOCAL _path
   48PROCPathBegin(_path)
   49PROC@Point(x,y)
   50PROCPathEnd
   51ENDPROC
   52
   53DEF FNPoint(x,y)
   54LOCAL _path
   55PROCPathBegin(_path)
   56PROC@Point(x,y)
   57PROCPathEnd
   58=_path
   59
   60DEF PROC@PointPolar(r,theta)
   61PROC@Point(r*COStheta,r*SINtheta)
   62ENDPROC
   63
   64DEF PROCPointPolar(r,theta)
   65PROCPoint(r*COStheta,r*SINtheta)
   66ENDPROC
   67
   68DEF FNPointPolar(r,theta)
   69=FNPoint(r*COStheta,r*SINtheta)
   70

!� >DrawBasic:Resources.Points
� ********************
�
� 4. SYMBOLS & POINTS
�
� ********************

� =======================
	� 4.1 Symbols and Points

� =======================

� �SymbolType=!(�+72)


� �PointSize=!(�+80)

� �Symbol(n%,point_size)
!(�+72)=n%
!(�+80)=point_size
�

� �@Point(x,y)

� _sx,_sy
& _sx=�(320*�PointSize+.5)/�X_Scale
& _sy=�(320*�PointSize+.5)/�Y_Scale
Ȏ �SymbolType �
D � 1 : �@Triangle(x,y-_sy,x-_sx*�3/2,y+_sy/2,x+_sx*�3/2,y+_sy/2)
# � 2 : �@Cross(x,y,2*_sx,2*_sy)
" � 3 : _sy=_sy/�2 : _sx=_sx/�2
-          �@Line(x-_sx,y+_sy,x+_sx,y-_sy)
-          �@Line(x-_sx,y-_sy,x+_sx,y+_sy)
# � 4 : �@Cross(x,y,2*_sx,2*_sy)
 -          _sy=2*_sy/�2/3 : _sx=2*_sx/�2/3
!-          �@Line(x-_sx,y+_sy,x+_sx,y-_sy)
"-          �@Line(x-_sx,y-_sy,x+_sx,y+_sy)
#/ � 5 : �@Rectangle(x-_sx,y-_sy,2*_sx,2*_sy)
$! � 6 : �@Ellipse(x,y,_sx,_sy)
%! � 7 : �@Diamond(x,y,_sx,_sy)
&2 � 8 : �@Triangle(x,y,x-_sx,y-_sy,x+_sx,y-_sy)
'5          �@Triangle(x,y,x-_sx,y+_sy,x+_sx,y+_sy)
(2 � 9 : �@Triangle(x,y,x+_sx,y+_sy,x+_sx,y-_sy)
)5          �@Triangle(x,y,x-_sx,y+_sy,x-_sx,y-_sy)
*B  : �@Triangle(x,y+_sy,x-_sx*�3/2,y-_sy/2,x+_sx*�3/2,y-_sy/2)
+�
,�
-
.� �Point(x,y)
/� _path
0�PathBegin(_path)
1�@Point(x,y)
2�PathEnd
3�
4
5� �Point(x,y)
6� _path
7�PathBegin(_path)
8�@Point(x,y)
9�PathEnd
:
=_path
;
<� �@PointPolar(r,theta)
=�@Point(r*�theta,r*�theta)
>�
?
@� �PointPolar(r,theta)
A�Point(r*�theta,r*�theta)
B�
C
D� �PointPolar(r,theta)
E=�Point(r*�theta,r*�theta)
F
�
00000000  0d 00 01 21 f4 20 3e 44  72 61 77 42 61 73 69 63  |...!. >DrawBasic|
00000010  3a 52 65 73 6f 75 72 63  65 73 2e 50 6f 69 6e 74  |:Resources.Point|
00000020  73 0d 00 02 1a f4 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |s..... *********|
00000030  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 00 03 05 f4  |***********.....|
00000040  0d 00 04 19 f4 20 34 2e  20 53 59 4d 42 4f 4c 53  |..... 4. SYMBOLS|
00000050  20 26 20 50 4f 49 4e 54  53 0d 00 05 05 f4 0d 00  | & POINTS.......|
00000060  06 1a f4 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |... ************|
00000070  2a 2a 2a 2a 2a 2a 2a 2a  0d 00 07 04 0d 00 08 1d  |********........|
00000080  f4 20 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |. ==============|
00000090  3d 3d 3d 3d 3d 3d 3d 3d  3d 0d 00 09 1c f4 20 34  |=========..... 4|
000000a0  2e 31 20 53 79 6d 62 6f  6c 73 20 61 6e 64 20 50  |.1 Symbols and P|
000000b0  6f 69 6e 74 73 0d 00 0a  1d f4 20 3d 3d 3d 3d 3d  |oints..... =====|
000000c0  3d 3d 3d 3d 3d 3d 3d 3d  3d 3d 3d 3d 3d 3d 3d 3d  |================|
000000d0  3d 3d 0d 00 0b 04 0d 00  0c 19 dd 20 a4 53 79 6d  |==......... .Sym|
000000e0  62 6f 6c 54 79 70 65 3d  21 28 93 2b 37 32 29 0d  |bolType=!(.+72).|
000000f0  00 0d 04 0d 00 0e 18 dd  20 a4 50 6f 69 6e 74 53  |........ .PointS|
00000100  69 7a 65 3d 21 28 93 2b  38 30 29 0d 00 0f 04 0d  |ize=!(.+80).....|
00000110  00 10 1c dd 20 f2 53 79  6d 62 6f 6c 28 6e 25 2c  |.... .Symbol(n%,|
00000120  70 6f 69 6e 74 5f 73 69  7a 65 29 0d 00 11 0e 21  |point_size)....!|
00000130  28 93 2b 37 32 29 3d 6e  25 0d 00 12 16 21 28 93  |(.+72)=n%....!(.|
00000140  2b 38 30 29 3d 70 6f 69  6e 74 5f 73 69 7a 65 0d  |+80)=point_size.|
00000150  00 13 05 e1 0d 00 14 04  0d 00 15 12 dd 20 f2 40  |............. .@|
00000160  50 6f 69 6e 74 28 78 2c  79 29 0d 00 16 0d ea 20  |Point(x,y)..... |
00000170  5f 73 78 2c 5f 73 79 0d  00 17 26 20 5f 73 78 3d  |_sx,_sy...& _sx=|
00000180  a8 28 33 32 30 2a a4 50  6f 69 6e 74 53 69 7a 65  |.(320*.PointSize|
00000190  2b 2e 35 29 2f a4 58 5f  53 63 61 6c 65 0d 00 18  |+.5)/.X_Scale...|
000001a0  26 20 5f 73 79 3d a8 28  33 32 30 2a a4 50 6f 69  |& _sy=.(320*.Poi|
000001b0  6e 74 53 69 7a 65 2b 2e  35 29 2f a4 59 5f 53 63  |ntSize+.5)/.Y_Sc|
000001c0  61 6c 65 0d 00 19 14 c8  8e 20 a4 53 79 6d 62 6f  |ale...... .Symbo|
000001d0  6c 54 79 70 65 20 ca 0d  00 1a 44 20 c9 20 31 20  |lType ....D . 1 |
000001e0  3a 20 f2 40 54 72 69 61  6e 67 6c 65 28 78 2c 79  |: .@Triangle(x,y|
000001f0  2d 5f 73 79 2c 78 2d 5f  73 78 2a b6 33 2f 32 2c  |-_sy,x-_sx*.3/2,|
00000200  79 2b 5f 73 79 2f 32 2c  78 2b 5f 73 78 2a b6 33  |y+_sy/2,x+_sx*.3|
00000210  2f 32 2c 79 2b 5f 73 79  2f 32 29 0d 00 1b 23 20  |/2,y+_sy/2)...# |
00000220  c9 20 32 20 3a 20 f2 40  43 72 6f 73 73 28 78 2c  |. 2 : .@Cross(x,|
00000230  79 2c 32 2a 5f 73 78 2c  32 2a 5f 73 79 29 0d 00  |y,2*_sx,2*_sy)..|
00000240  1c 22 20 c9 20 33 20 3a  20 5f 73 79 3d 5f 73 79  |." . 3 : _sy=_sy|
00000250  2f b6 32 20 3a 20 5f 73  78 3d 5f 73 78 2f b6 32  |/.2 : _sx=_sx/.2|
00000260  0d 00 1d 2d 20 20 20 20  20 20 20 20 20 20 f2 40  |...-          .@|
00000270  4c 69 6e 65 28 78 2d 5f  73 78 2c 79 2b 5f 73 79  |Line(x-_sx,y+_sy|
00000280  2c 78 2b 5f 73 78 2c 79  2d 5f 73 79 29 0d 00 1e  |,x+_sx,y-_sy)...|
00000290  2d 20 20 20 20 20 20 20  20 20 20 f2 40 4c 69 6e  |-          .@Lin|
000002a0  65 28 78 2d 5f 73 78 2c  79 2d 5f 73 79 2c 78 2b  |e(x-_sx,y-_sy,x+|
000002b0  5f 73 78 2c 79 2b 5f 73  79 29 0d 00 1f 23 20 c9  |_sx,y+_sy)...# .|
000002c0  20 34 20 3a 20 f2 40 43  72 6f 73 73 28 78 2c 79  | 4 : .@Cross(x,y|
000002d0  2c 32 2a 5f 73 78 2c 32  2a 5f 73 79 29 0d 00 20  |,2*_sx,2*_sy).. |
000002e0  2d 20 20 20 20 20 20 20  20 20 20 5f 73 79 3d 32  |-          _sy=2|
000002f0  2a 5f 73 79 2f b6 32 2f  33 20 3a 20 5f 73 78 3d  |*_sy/.2/3 : _sx=|
00000300  32 2a 5f 73 78 2f b6 32  2f 33 0d 00 21 2d 20 20  |2*_sx/.2/3..!-  |
00000310  20 20 20 20 20 20 20 20  f2 40 4c 69 6e 65 28 78  |        .@Line(x|
00000320  2d 5f 73 78 2c 79 2b 5f  73 79 2c 78 2b 5f 73 78  |-_sx,y+_sy,x+_sx|
00000330  2c 79 2d 5f 73 79 29 0d  00 22 2d 20 20 20 20 20  |,y-_sy).."-     |
00000340  20 20 20 20 20 f2 40 4c  69 6e 65 28 78 2d 5f 73  |     .@Line(x-_s|
00000350  78 2c 79 2d 5f 73 79 2c  78 2b 5f 73 78 2c 79 2b  |x,y-_sy,x+_sx,y+|
00000360  5f 73 79 29 0d 00 23 2f  20 c9 20 35 20 3a 20 f2  |_sy)..#/ . 5 : .|
00000370  40 52 65 63 74 61 6e 67  6c 65 28 78 2d 5f 73 78  |@Rectangle(x-_sx|
00000380  2c 79 2d 5f 73 79 2c 32  2a 5f 73 78 2c 32 2a 5f  |,y-_sy,2*_sx,2*_|
00000390  73 79 29 0d 00 24 21 20  c9 20 36 20 3a 20 f2 40  |sy)..$! . 6 : .@|
000003a0  45 6c 6c 69 70 73 65 28  78 2c 79 2c 5f 73 78 2c  |Ellipse(x,y,_sx,|
000003b0  5f 73 79 29 0d 00 25 21  20 c9 20 37 20 3a 20 f2  |_sy)..%! . 7 : .|
000003c0  40 44 69 61 6d 6f 6e 64  28 78 2c 79 2c 5f 73 78  |@Diamond(x,y,_sx|
000003d0  2c 5f 73 79 29 0d 00 26  32 20 c9 20 38 20 3a 20  |,_sy)..&2 . 8 : |
000003e0  f2 40 54 72 69 61 6e 67  6c 65 28 78 2c 79 2c 78  |.@Triangle(x,y,x|
000003f0  2d 5f 73 78 2c 79 2d 5f  73 79 2c 78 2b 5f 73 78  |-_sx,y-_sy,x+_sx|
00000400  2c 79 2d 5f 73 79 29 0d  00 27 35 20 20 20 20 20  |,y-_sy)..'5     |
00000410  20 20 20 20 20 f2 40 54  72 69 61 6e 67 6c 65 28  |     .@Triangle(|
00000420  78 2c 79 2c 78 2d 5f 73  78 2c 79 2b 5f 73 79 2c  |x,y,x-_sx,y+_sy,|
00000430  78 2b 5f 73 78 2c 79 2b  5f 73 79 29 0d 00 28 32  |x+_sx,y+_sy)..(2|
00000440  20 c9 20 39 20 3a 20 f2  40 54 72 69 61 6e 67 6c  | . 9 : .@Triangl|
00000450  65 28 78 2c 79 2c 78 2b  5f 73 78 2c 79 2b 5f 73  |e(x,y,x+_sx,y+_s|
00000460  79 2c 78 2b 5f 73 78 2c  79 2d 5f 73 79 29 0d 00  |y,x+_sx,y-_sy)..|
00000470  29 35 20 20 20 20 20 20  20 20 20 20 f2 40 54 72  |)5          .@Tr|
00000480  69 61 6e 67 6c 65 28 78  2c 79 2c 78 2d 5f 73 78  |iangle(x,y,x-_sx|
00000490  2c 79 2b 5f 73 79 2c 78  2d 5f 73 78 2c 79 2d 5f  |,y+_sy,x-_sx,y-_|
000004a0  73 79 29 0d 00 2a 42 20  7f 20 3a 20 f2 40 54 72  |sy)..*B . : .@Tr|
000004b0  69 61 6e 67 6c 65 28 78  2c 79 2b 5f 73 79 2c 78  |iangle(x,y+_sy,x|
000004c0  2d 5f 73 78 2a b6 33 2f  32 2c 79 2d 5f 73 79 2f  |-_sx*.3/2,y-_sy/|
000004d0  32 2c 78 2b 5f 73 78 2a  b6 33 2f 32 2c 79 2d 5f  |2,x+_sx*.3/2,y-_|
000004e0  73 79 2f 32 29 0d 00 2b  05 cb 0d 00 2c 05 e1 0d  |sy/2)..+....,...|
000004f0  00 2d 04 0d 00 2e 11 dd  20 f2 50 6f 69 6e 74 28  |.-...... .Point(|
00000500  78 2c 79 29 0d 00 2f 0b  ea 20 5f 70 61 74 68 0d  |x,y)../.. _path.|
00000510  00 30 15 f2 50 61 74 68  42 65 67 69 6e 28 5f 70  |.0..PathBegin(_p|
00000520  61 74 68 29 0d 00 31 10  f2 40 50 6f 69 6e 74 28  |ath)..1..@Point(|
00000530  78 2c 79 29 0d 00 32 0c  f2 50 61 74 68 45 6e 64  |x,y)..2..PathEnd|
00000540  0d 00 33 05 e1 0d 00 34  04 0d 00 35 11 dd 20 a4  |..3....4...5.. .|
00000550  50 6f 69 6e 74 28 78 2c  79 29 0d 00 36 0b ea 20  |Point(x,y)..6.. |
00000560  5f 70 61 74 68 0d 00 37  15 f2 50 61 74 68 42 65  |_path..7..PathBe|
00000570  67 69 6e 28 5f 70 61 74  68 29 0d 00 38 10 f2 40  |gin(_path)..8..@|
00000580  50 6f 69 6e 74 28 78 2c  79 29 0d 00 39 0c f2 50  |Point(x,y)..9..P|
00000590  61 74 68 45 6e 64 0d 00  3a 0a 3d 5f 70 61 74 68  |athEnd..:.=_path|
000005a0  0d 00 3b 04 0d 00 3c 1b  dd 20 f2 40 50 6f 69 6e  |..;...<.. .@Poin|
000005b0  74 50 6f 6c 61 72 28 72  2c 74 68 65 74 61 29 0d  |tPolar(r,theta).|
000005c0  00 3d 1e f2 40 50 6f 69  6e 74 28 72 2a 9b 74 68  |.=..@Point(r*.th|
000005d0  65 74 61 2c 72 2a b5 74  68 65 74 61 29 0d 00 3e  |eta,r*.theta)..>|
000005e0  05 e1 0d 00 3f 04 0d 00  40 1a dd 20 f2 50 6f 69  |....?...@.. .Poi|
000005f0  6e 74 50 6f 6c 61 72 28  72 2c 74 68 65 74 61 29  |ntPolar(r,theta)|
00000600  0d 00 41 1d f2 50 6f 69  6e 74 28 72 2a 9b 74 68  |..A..Point(r*.th|
00000610  65 74 61 2c 72 2a b5 74  68 65 74 61 29 0d 00 42  |eta,r*.theta)..B|
00000620  05 e1 0d 00 43 04 0d 00  44 1a dd 20 a4 50 6f 69  |....C...D.. .Poi|
00000630  6e 74 50 6f 6c 61 72 28  72 2c 74 68 65 74 61 29  |ntPolar(r,theta)|
00000640  0d 00 45 1e 3d a4 50 6f  69 6e 74 28 72 2a 9b 74  |..E.=.Point(r*.t|
00000650  68 65 74 61 2c 72 2a b5  74 68 65 74 61 29 0d 00  |heta,r*.theta)..|
00000660  46 04 0d ff                                       |F...|
00000664

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .