Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403.adf » Disk1Mar94 » !AWMar94/Goodies/Basic/Dashes/Dash_1
!AWMar94/Goodies/Basic/Dashes/Dash_1
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 » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199403.adf » Disk1Mar94 |
| Filename: | !AWMar94/Goodies/Basic/Dashes/Dash_1 |
| Read OK: | ✔ |
| File size: | 0252 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
1
2LIBRARY "PathLib:OS_units.Paths"
3LIBRARY "PathLib:OS_units.Styles"
4
5MODE MODE
6PRINT "Equidistant dashing while increasing the length of dashes"
7
8REM Create a horizontal line
9 length%=1000
10 line%=FNPath_CreateHorizontalLine(0,0,length%)
11
12REM Draw a "Guide" line
13 GCOL 1 : LINE 0,800,length%,800 :GCOL 7
14
15VDU 5
16
17FOR d_length%=50 TO 300 STEP 50
18 ORIGIN 0,800-d_length%
19 dash%=FNPath_EquidistantDashPattern(d_length%)
20 REM Draw dashed line
21 SYS "Draw_Stroke",line%,,,,,,dash%
22 MOVE length%+20,0: PRINT "Dash length=";d_length%
23NEXT
24
25END
ț "PathLib:OS_units.Paths"
ț "PathLib:OS_units.Styles"
� �
A� "Equidistant dashing while increasing the length of dashes"
� Create a horizontal line
length%=1000
5 line%=�Path_CreateHorizontalLine(0,0,length%)
!� Draw a "Guide" line
& � 1 : � 0,800,length%,800 :� 7
� 5
� d_length%=50 � 300 � 50
ȑ 0,800-d_length%
3 dash%=�Path_EquidistantDashPattern(d_length%)
� Draw dashed line
. ș "Draw_Stroke",line%,,,,,,dash%
8 � length%+20,0: � "Dash length=";d_length%
�
�
� 00000000 0d 00 01 04 0d 00 02 1f c8 9b 20 22 50 61 74 68 |.......... "Path| 00000010 4c 69 62 3a 4f 53 5f 75 6e 69 74 73 2e 50 61 74 |Lib:OS_units.Pat| 00000020 68 73 22 0d 00 03 20 c8 9b 20 22 50 61 74 68 4c |hs"... .. "PathL| 00000030 69 62 3a 4f 53 5f 75 6e 69 74 73 2e 53 74 79 6c |ib:OS_units.Styl| 00000040 65 73 22 0d 00 04 04 0d 00 05 07 eb 20 eb 0d 00 |es"......... ...| 00000050 06 41 f1 20 22 45 71 75 69 64 69 73 74 61 6e 74 |.A. "Equidistant| 00000060 20 64 61 73 68 69 6e 67 20 77 68 69 6c 65 20 69 | dashing while i| 00000070 6e 63 72 65 61 73 69 6e 67 20 74 68 65 20 6c 65 |ncreasing the le| 00000080 6e 67 74 68 20 6f 66 20 64 61 73 68 65 73 22 0d |ngth of dashes".| 00000090 00 07 04 0d 00 08 1e f4 20 43 72 65 61 74 65 20 |........ Create | 000000a0 61 20 68 6f 72 69 7a 6f 6e 74 61 6c 20 6c 69 6e |a horizontal lin| 000000b0 65 0d 00 09 15 20 20 20 20 6c 65 6e 67 74 68 25 |e.... length%| 000000c0 3d 31 30 30 30 20 0d 00 0a 35 20 20 20 20 6c 69 |=1000 ...5 li| 000000d0 6e 65 25 3d a4 50 61 74 68 5f 43 72 65 61 74 65 |ne%=.Path_Create| 000000e0 48 6f 72 69 7a 6f 6e 74 61 6c 4c 69 6e 65 28 30 |HorizontalLine(0| 000000f0 2c 30 2c 6c 65 6e 67 74 68 25 29 0d 00 0b 04 0d |,0,length%).....| 00000100 00 0c 21 f4 20 44 72 61 77 20 61 20 22 47 75 69 |..!. Draw a "Gui| 00000110 64 65 22 20 6c 69 6e 65 20 20 20 20 20 20 20 20 |de" line | 00000120 0d 00 0d 26 20 20 20 20 e6 20 31 20 3a 20 86 20 |...& . 1 : . | 00000130 30 2c 38 30 30 2c 6c 65 6e 67 74 68 25 2c 38 30 |0,800,length%,80| 00000140 30 20 3a e6 20 37 0d 00 0e 04 0d 00 0f 07 ef 20 |0 :. 7......... | 00000150 35 0d 00 10 04 0d 00 11 1d e3 20 64 5f 6c 65 6e |5......... d_len| 00000160 67 74 68 25 3d 35 30 20 b8 20 33 30 30 20 88 20 |gth%=50 . 300 . | 00000170 35 30 0d 00 12 1a 20 20 c8 91 20 30 2c 38 30 30 |50.... .. 0,800| 00000180 2d 64 5f 6c 65 6e 67 74 68 25 20 20 0d 00 13 33 |-d_length% ...3| 00000190 20 20 64 61 73 68 25 3d a4 50 61 74 68 5f 45 71 | dash%=.Path_Eq| 000001a0 75 69 64 69 73 74 61 6e 74 44 61 73 68 50 61 74 |uidistantDashPat| 000001b0 74 65 72 6e 28 64 5f 6c 65 6e 67 74 68 25 29 0d |tern(d_length%).| 000001c0 00 14 1c 20 20 f4 20 44 72 61 77 20 64 61 73 68 |... . Draw dash| 000001d0 65 64 20 6c 69 6e 65 20 20 20 20 0d 00 15 2e 20 |ed line .... | 000001e0 20 20 20 20 20 c8 99 20 22 44 72 61 77 5f 53 74 | .. "Draw_St| 000001f0 72 6f 6b 65 22 2c 6c 69 6e 65 25 2c 2c 2c 2c 2c |roke",line%,,,,,| 00000200 2c 64 61 73 68 25 20 20 20 0d 00 16 38 20 20 20 |,dash% ...8 | 00000210 20 20 20 ec 20 6c 65 6e 67 74 68 25 2b 32 30 2c | . length%+20,| 00000220 30 3a 20 f1 20 22 44 61 73 68 20 6c 65 6e 67 74 |0: . "Dash lengt| 00000230 68 3d 22 3b 64 5f 6c 65 6e 67 74 68 25 20 20 20 |h=";d_length% | 00000240 20 0d 00 17 05 ed 0d 00 18 05 20 0d 00 19 05 e0 | ......... .....| 00000250 0d ff |..| 00000252
.