Home » Personal collection » Acorn hard disk » misc » dcfprogs » RAM/Sphere

RAM/Sphere

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 » Personal collection » Acorn hard disk » misc » dcfprogs
Filename: RAM/Sphere
Read OK:
File size: 01AB bytes
Load address: 0000
Exec address: 0000
Duplicates

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

File contents
   10REM >Sphere
   12X=-1:Y=-1
   15ON ERROR REPORT:PRINT" @ ";ERL,X,Y:END
   20MODE 0
   30*RAM
   40*SLOAD !Sprites
   50INPUT"Sprite Name";SPR$
   60SYS "OS_SpriteOp",40,,SPR$ TO ,,,xax,yax,H,,MDOE
   65MODE 12:*!Palette
   70FOR X=-600 TO 600
   80FOR Y=0 TO 360
   90IF ABS(X) MOD 100=0 OR Y MOD 45=0 OR POINT((X*SIN(PI*Y/360))/1.4+640,(Y*2.5)+50)=11 THEN GCOL 0,11:GOTO 120
  100SYS "OS_SpriteOp",41,,SPR$,INT(xax*((X+600)/1200)),INT(yax*(Y/360)) TO,,,,,C,T
  110GCOL 0,C
  120POINT (X*SIN(PI*Y/360))/1.4+640,(Y*2.5)+50
  130NEXT,


� >Sphere

X=-1:Y=-1
� � �:�" @ ";�,X,Y:�
� 0
*RAM
(*SLOAD !Sprites
2�"Sprite Name";SPR$
<2ș "OS_SpriteOp",40,,SPR$ � ,,,xax,yax,H,,MDOE
A� 12:*!Palette
F� X=-600 � 600
P� Y=0 � 360
ZV� �(X) � 100=0 � Y � 45=0 � �(X*�(�*Y/360))/1.4+640,(Y*2.5)+50)=11 � � 0,11:� �Dx@
dLș "OS_SpriteOp",41,,SPR$,�(xax*((X+600)/1200)),�(yax*(Y/360)) �,,,,,C,T
n	� 0,C
x(Ȓ (X*�(�*Y/360))/1.4+640,(Y*2.5)+50
��,
�
00000000  0d 00 0a 0d f4 20 3e 53  70 68 65 72 65 0d 00 0c  |..... >Sphere...|
00000010  0d 58 3d 2d 31 3a 59 3d  2d 31 0d 00 0f 18 ee 20  |.X=-1:Y=-1..... |
00000020  85 20 f6 3a f1 22 20 40  20 22 3b 9e 2c 58 2c 59  |. .:." @ ";.,X,Y|
00000030  3a e0 0d 00 14 07 eb 20  30 0d 00 1e 08 2a 52 41  |:...... 0....*RA|
00000040  4d 0d 00 28 13 2a 53 4c  4f 41 44 20 21 53 70 72  |M..(.*SLOAD !Spr|
00000050  69 74 65 73 0d 00 32 17  e8 22 53 70 72 69 74 65  |ites..2.."Sprite|
00000060  20 4e 61 6d 65 22 3b 53  50 52 24 0d 00 3c 32 c8  | Name";SPR$..<2.|
00000070  99 20 22 4f 53 5f 53 70  72 69 74 65 4f 70 22 2c  |. "OS_SpriteOp",|
00000080  34 30 2c 2c 53 50 52 24  20 b8 20 2c 2c 2c 78 61  |40,,SPR$ . ,,,xa|
00000090  78 2c 79 61 78 2c 48 2c  2c 4d 44 4f 45 0d 00 41  |x,yax,H,,MDOE..A|
000000a0  12 eb 20 31 32 3a 2a 21  50 61 6c 65 74 74 65 0d  |.. 12:*!Palette.|
000000b0  00 46 12 e3 20 58 3d 2d  36 30 30 20 b8 20 36 30  |.F.. X=-600 . 60|
000000c0  30 0d 00 50 0f e3 20 59  3d 30 20 b8 20 33 36 30  |0..P.. Y=0 . 360|
000000d0  0d 00 5a 56 e7 20 94 28  58 29 20 83 20 31 30 30  |..ZV. .(X) . 100|
000000e0  3d 30 20 84 20 59 20 83  20 34 35 3d 30 20 84 20  |=0 . Y . 45=0 . |
000000f0  b0 28 58 2a b5 28 af 2a  59 2f 33 36 30 29 29 2f  |.(X*.(.*Y/360))/|
00000100  31 2e 34 2b 36 34 30 2c  28 59 2a 32 2e 35 29 2b  |1.4+640,(Y*2.5)+|
00000110  35 30 29 3d 31 31 20 8c  20 e6 20 30 2c 31 31 3a  |50)=11 . . 0,11:|
00000120  e5 20 8d 44 78 40 0d 00  64 4c c8 99 20 22 4f 53  |. .Dx@..dL.. "OS|
00000130  5f 53 70 72 69 74 65 4f  70 22 2c 34 31 2c 2c 53  |_SpriteOp",41,,S|
00000140  50 52 24 2c a8 28 78 61  78 2a 28 28 58 2b 36 30  |PR$,.(xax*((X+60|
00000150  30 29 2f 31 32 30 30 29  29 2c a8 28 79 61 78 2a  |0)/1200)),.(yax*|
00000160  28 59 2f 33 36 30 29 29  20 b8 2c 2c 2c 2c 2c 43  |(Y/360)) .,,,,,C|
00000170  2c 54 0d 00 6e 09 e6 20  30 2c 43 0d 00 78 28 c8  |,T..n.. 0,C..x(.|
00000180  92 20 28 58 2a b5 28 af  2a 59 2f 33 36 30 29 29  |. (X*.(.*Y/360))|
00000190  2f 31 2e 34 2b 36 34 30  2c 28 59 2a 32 2e 35 29  |/1.4+640,(Y*2.5)|
000001a0  2b 35 30 0d 00 82 06 ed  2c 0d ff                 |+50.....,..|
000001ab