Home » Archimedes archive » Acorn User » AU 1994-04.adf » !WriteDemo_WriteDemo » Modules/ScrollText/Waveforms

Modules/ScrollText/Waveforms

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 User » AU 1994-04.adf » !WriteDemo_WriteDemo
Filename: Modules/ScrollText/Waveforms
Read OK: ✔
File size: 02D0 bytes
Load address: 0000
Exec address: 0000
Duplicates

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

File contents
| ScrollText Waveform
| description file
|
| by Mark Hobson

| Sine wave, then half sine wave

id:    ="a"
length:=17*8
var:   =0
inc:   =360/length
y:     =80+(74*SIN(RAD(var))*COS(RAD(var*2)))

| Straight line

id:    ="b"
length:=17*1
y:     =77

| Bouncing text

id:    ="c"
length:=17*3
var:   =180
inc:   =180/length
y:     =154+(145*SIN(RAD(var)))

| Bobbing in and out of water

id:    ="d"
length:=17*4
var:   =0
inc:   =360/length
y:     =158+16*SIN(RAD(var))

| Full screen sine wave

id:    ="e"
length:=17*4
var:   =0
inc:   =360/length
y:     =80+(74*SIN(RAD(var)))

| Half sine wave, then dip into water

id:    ="f"
length:=17*12
var:   =0
inc:   =360/length
y:     =77-100*SIN(RAD(var))*SIN(RAD(var*3))

00000000  7c 20 53 63 72 6f 6c 6c  54 65 78 74 20 57 61 76  || ScrollText Wav|
00000010  65 66 6f 72 6d 0a 7c 20  64 65 73 63 72 69 70 74  |eform.| descript|
00000020  69 6f 6e 20 66 69 6c 65  0a 7c 0a 7c 20 62 79 20  |ion file.|.| by |
00000030  4d 61 72 6b 20 48 6f 62  73 6f 6e 0a 0a 7c 20 53  |Mark Hobson..| S|
00000040  69 6e 65 20 77 61 76 65  2c 20 74 68 65 6e 20 68  |ine wave, then h|
00000050  61 6c 66 20 73 69 6e 65  20 77 61 76 65 0a 0a 69  |alf sine wave..i|
00000060  64 3a 20 20 20 20 3d 22  61 22 0a 6c 65 6e 67 74  |d:    ="a".lengt|
00000070  68 3a 3d 31 37 2a 38 0a  76 61 72 3a 20 20 20 3d  |h:=17*8.var:   =|
00000080  30 0a 69 6e 63 3a 20 20  20 3d 33 36 30 2f 6c 65  |0.inc:   =360/le|
00000090  6e 67 74 68 0a 79 3a 20  20 20 20 20 3d 38 30 2b  |ngth.y:     =80+|
000000a0  28 37 34 2a 53 49 4e 28  52 41 44 28 76 61 72 29  |(74*SIN(RAD(var)|
000000b0  29 2a 43 4f 53 28 52 41  44 28 76 61 72 2a 32 29  |)*COS(RAD(var*2)|
000000c0  29 29 0a 0a 7c 20 53 74  72 61 69 67 68 74 20 6c  |))..| Straight l|
000000d0  69 6e 65 0a 0a 69 64 3a  20 20 20 20 3d 22 62 22  |ine..id:    ="b"|
000000e0  0a 6c 65 6e 67 74 68 3a  3d 31 37 2a 31 0a 79 3a  |.length:=17*1.y:|
000000f0  20 20 20 20 20 3d 37 37  0a 0a 7c 20 42 6f 75 6e  |     =77..| Boun|
00000100  63 69 6e 67 20 74 65 78  74 0a 0a 69 64 3a 20 20  |cing text..id:  |
00000110  20 20 3d 22 63 22 0a 6c  65 6e 67 74 68 3a 3d 31  |  ="c".length:=1|
00000120  37 2a 33 0a 76 61 72 3a  20 20 20 3d 31 38 30 0a  |7*3.var:   =180.|
00000130  69 6e 63 3a 20 20 20 3d  31 38 30 2f 6c 65 6e 67  |inc:   =180/leng|
00000140  74 68 0a 79 3a 20 20 20  20 20 3d 31 35 34 2b 28  |th.y:     =154+(|
00000150  31 34 35 2a 53 49 4e 28  52 41 44 28 76 61 72 29  |145*SIN(RAD(var)|
00000160  29 29 0a 0a 7c 20 42 6f  62 62 69 6e 67 20 69 6e  |))..| Bobbing in|
00000170  20 61 6e 64 20 6f 75 74  20 6f 66 20 77 61 74 65  | and out of wate|
00000180  72 0a 0a 69 64 3a 20 20  20 20 3d 22 64 22 0a 6c  |r..id:    ="d".l|
00000190  65 6e 67 74 68 3a 3d 31  37 2a 34 0a 76 61 72 3a  |ength:=17*4.var:|
000001a0  20 20 20 3d 30 0a 69 6e  63 3a 20 20 20 3d 33 36  |   =0.inc:   =36|
000001b0  30 2f 6c 65 6e 67 74 68  0a 79 3a 20 20 20 20 20  |0/length.y:     |
000001c0  3d 31 35 38 2b 31 36 2a  53 49 4e 28 52 41 44 28  |=158+16*SIN(RAD(|
000001d0  76 61 72 29 29 0a 0a 7c  20 46 75 6c 6c 20 73 63  |var))..| Full sc|
000001e0  72 65 65 6e 20 73 69 6e  65 20 77 61 76 65 0a 0a  |reen sine wave..|
000001f0  69 64 3a 20 20 20 20 3d  22 65 22 0a 6c 65 6e 67  |id:    ="e".leng|
00000200  74 68 3a 3d 31 37 2a 34  0a 76 61 72 3a 20 20 20  |th:=17*4.var:   |
00000210  3d 30 0a 69 6e 63 3a 20  20 20 3d 33 36 30 2f 6c  |=0.inc:   =360/l|
00000220  65 6e 67 74 68 0a 79 3a  20 20 20 20 20 3d 38 30  |ength.y:     =80|
00000230  2b 28 37 34 2a 53 49 4e  28 52 41 44 28 76 61 72  |+(74*SIN(RAD(var|
00000240  29 29 29 0a 0a 7c 20 48  61 6c 66 20 73 69 6e 65  |)))..| Half sine|
00000250  20 77 61 76 65 2c 20 74  68 65 6e 20 64 69 70 20  | wave, then dip |
00000260  69 6e 74 6f 20 77 61 74  65 72 0a 0a 69 64 3a 20  |into water..id: |
00000270  20 20 20 3d 22 66 22 0a  6c 65 6e 67 74 68 3a 3d  |   ="f".length:=|
00000280  31 37 2a 31 32 0a 76 61  72 3a 20 20 20 3d 30 0a  |17*12.var:   =0.|
00000290  69 6e 63 3a 20 20 20 3d  33 36 30 2f 6c 65 6e 67  |inc:   =360/leng|
000002a0  74 68 0a 79 3a 20 20 20  20 20 3d 37 37 2d 31 30  |th.y:     =77-10|
000002b0  30 2a 53 49 4e 28 52 41  44 28 76 61 72 29 29 2a  |0*SIN(RAD(var))*|
000002c0  53 49 4e 28 52 41 44 28  76 61 72 2a 33 29 29 0a  |SIN(RAD(var*3)).|
000002d0

© Dominic Ford 2021–2025.

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