Home » Archimedes archive » Archimedes World » AW-1995-02-Disc1.adf » Disk1Feb95 » !AWFeb95/Goodies/DrawBasic/Style/Example_3
!AWFeb95/Goodies/DrawBasic/Style/Example_3
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/Style/Example_3 |
| Read OK: | ✔ |
| File size: | 01BF bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
REM Grid height & width in mm
height=280 : width=190
REM Lower left-hand corner of grid
�Origin(1,1)
REM Vertical Lines
FOR mm_line%=0 TO width
IF (mm_line% MOD 10)=0 THEN �Width(.5) ELSE �Width(0)
�VLine(mm_line%/10,0,height/10)
NEXT
REM Horizontal Lines
FOR mm_line%=0 TO height
IF (mm_line% MOD 10)=0 THEN �Width(.5) ELSE �Width(0)
�HLine(0,mm_line%/10,width/10)
NEXT
�Quit 00000000 0a 52 45 4d 20 47 72 69 64 20 68 65 69 67 68 74 |.REM Grid height| 00000010 20 26 20 77 69 64 74 68 20 69 6e 20 6d 6d 0a 20 | & width in mm. | 00000020 20 20 20 68 65 69 67 68 74 3d 32 38 30 20 3a 20 | height=280 : | 00000030 77 69 64 74 68 3d 31 39 30 0a 52 45 4d 20 4c 6f |width=190.REM Lo| 00000040 77 65 72 20 6c 65 66 74 2d 68 61 6e 64 20 63 6f |wer left-hand co| 00000050 72 6e 65 72 20 6f 66 20 67 72 69 64 0a 20 20 20 |rner of grid. | 00000060 0a 20 20 20 a0 4f 72 69 67 69 6e 28 31 2c 31 29 |. .Origin(1,1)| 00000070 0a 20 20 20 0a 52 45 4d 20 56 65 72 74 69 63 61 |. .REM Vertica| 00000080 6c 20 4c 69 6e 65 73 0a 0a 20 20 20 20 46 4f 52 |l Lines.. FOR| 00000090 20 6d 6d 5f 6c 69 6e 65 25 3d 30 20 54 4f 20 77 | mm_line%=0 TO w| 000000a0 69 64 74 68 0a 20 20 20 20 20 49 46 20 28 6d 6d |idth. IF (mm| 000000b0 5f 6c 69 6e 65 25 20 4d 4f 44 20 31 30 29 3d 30 |_line% MOD 10)=0| 000000c0 20 54 48 45 4e 20 a0 57 69 64 74 68 28 2e 35 29 | THEN .Width(.5)| 000000d0 20 45 4c 53 45 20 a0 57 69 64 74 68 28 30 29 0a | ELSE .Width(0).| 000000e0 20 20 20 20 20 a0 56 4c 69 6e 65 28 6d 6d 5f 6c | .VLine(mm_l| 000000f0 69 6e 65 25 2f 31 30 2c 30 2c 68 65 69 67 68 74 |ine%/10,0,height| 00000100 2f 31 30 29 20 20 20 20 0a 20 20 20 20 20 4e 45 |/10) . NE| 00000110 58 54 0a 20 20 20 20 20 0a 52 45 4d 20 48 6f 72 |XT. .REM Hor| 00000120 69 7a 6f 6e 74 61 6c 20 4c 69 6e 65 73 0a 0a 20 |izontal Lines.. | 00000130 20 20 20 46 4f 52 20 6d 6d 5f 6c 69 6e 65 25 3d | FOR mm_line%=| 00000140 30 20 54 4f 20 68 65 69 67 68 74 0a 20 20 20 20 |0 TO height. | 00000150 20 49 46 20 28 6d 6d 5f 6c 69 6e 65 25 20 4d 4f | IF (mm_line% MO| 00000160 44 20 31 30 29 3d 30 20 54 48 45 4e 20 a0 57 69 |D 10)=0 THEN .Wi| 00000170 64 74 68 28 2e 35 29 20 45 4c 53 45 20 a0 57 69 |dth(.5) ELSE .Wi| 00000180 64 74 68 28 30 29 0a 20 20 20 20 20 a0 48 4c 69 |dth(0). .HLi| 00000190 6e 65 28 30 2c 6d 6d 5f 6c 69 6e 65 25 2f 31 30 |ne(0,mm_line%/10| 000001a0 2c 77 69 64 74 68 2f 31 30 29 20 20 20 20 20 0a |,width/10) .| 000001b0 20 20 20 20 20 4e 45 58 54 0a a0 51 75 69 74 | NEXT..Quit| 000001bf
.