shipwren/J3RENDER

Home » Personal collection » Acorn hard disk » misc » misc3 » shipwren/J3RENDER

shipwren/J3RENDER

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 » misc3
Filename:	shipwren/J3RENDER
Read OK:	✔
File size:	0244 bytes
Load address:	0000
Exec address:	0000

Duplicates

There is 1 duplicate copy of this file in the archive:

Personal collection » Acorn ADFS disks » Archimedes » Unlabelled_disk_2.ADF » J3RENDER
Personal collection » Acorn hard disk » misc » misc3 » shipwren/J3RENDER

File contents

   10MODE1:VDU19,1,2,0;0;0;0;:x=0:xo=0
   20VDU19,1,4,0,0,0,0,19,2,6,0,0,0,0,19,3,7,0,0,0,0
   30FORtheta=-85TO85:FORalpha=-20TO270
   40x=RND(200):GCOL0,0
   50IF x<(350*SIN(theta*PI/180)) THEN GCOL0,1
   60IF x<(300*SIN(theta*PI/180)) THEN GCOL0,2
   70IF x<(250*SIN(theta*PI/180)) THEN GCOL0,3
   80IF alpha>160 THEN x=25 ELSE x=0
   90IF alpha<181 THEN stat=TRUE ELSE stat=FALSE
  100MOVE550-x-alpha*2+COS(theta*PI/180)*50,FNy(theta,alpha)
  110IF stat THEN DRAW550-xo-alpha*2+COS(theta*PI/180)*50,FNy(theta,alpha)
  120MOVE650+alpha*2+COS(theta*PI/180)*50,FNy(theta,alpha)
  130DRAW650+alpha*2+COS(theta*PI/180)*50,FNy(theta,alpha)
  140xo=x:NEXT:xo=0:NEXT
  150:
  160DEFFNy(th,al)=650+250*SIN(PI*th/180)*SIN(al*PI/180)


 �1:�19,1,2,0;0;0;0;:x=0:xo=0
1�19,1,4,0,0,0,0,19,2,6,0,0,0,0,19,3,7,0,0,0,0
 �theta=-85�85:�alpha=-20�270
(x=�(200):�0,0
2#� x<(350*�(theta*�/180)) � �0,1
<#� x<(300*�(theta*�/180)) � �0,2
F#� x<(250*�(theta*�/180)) � �0,3
P� alpha>160 � x=25 � x=0
Z!� alpha<181 � stat=� � stat=�
d4�550-x-alpha*2+�(theta*�/180)*50,�y(theta,alpha)
n>� stat � �550-xo-alpha*2+�(theta*�/180)*50,�y(theta,alpha)
x2�650+alpha*2+�(theta*�/180)*50,�y(theta,alpha)
�2�650+alpha*2+�(theta*�/180)*50,�y(theta,alpha)
�xo=x:�:xo=0:�
�:
�.ݤy(th,al)=650+250*�(�*th/180)*�(al*�/180)
�

00000000  0d 00 0a 20 eb 31 3a ef  31 39 2c 31 2c 32 2c 30  |... .1:.19,1,2,0|
00000010  3b 30 3b 30 3b 30 3b 3a  78 3d 30 3a 78 6f 3d 30  |;0;0;0;:x=0:xo=0|
00000020  0d 00 14 31 ef 31 39 2c  31 2c 34 2c 30 2c 30 2c  |...1.19,1,4,0,0,|
00000030  30 2c 30 2c 31 39 2c 32  2c 36 2c 30 2c 30 2c 30  |0,0,19,2,6,0,0,0|
00000040  2c 30 2c 31 39 2c 33 2c  37 2c 30 2c 30 2c 30 2c  |,0,19,3,7,0,0,0,|
00000050  30 0d 00 1e 20 e3 74 68  65 74 61 3d 2d 38 35 b8  |0... .theta=-85.|
00000060  38 35 3a e3 61 6c 70 68  61 3d 2d 32 30 b8 32 37  |85:.alpha=-20.27|
00000070  30 0d 00 28 11 78 3d b3  28 32 30 30 29 3a e6 30  |0..(.x=.(200):.0|
00000080  2c 30 0d 00 32 23 e7 20  78 3c 28 33 35 30 2a b5  |,0..2#. x<(350*.|
00000090  28 74 68 65 74 61 2a af  2f 31 38 30 29 29 20 8c  |(theta*./180)) .|
000000a0  20 e6 30 2c 31 0d 00 3c  23 e7 20 78 3c 28 33 30  | .0,1..<#. x<(30|
000000b0  30 2a b5 28 74 68 65 74  61 2a af 2f 31 38 30 29  |0*.(theta*./180)|
000000c0  29 20 8c 20 e6 30 2c 32  0d 00 46 23 e7 20 78 3c  |) . .0,2..F#. x<|
000000d0  28 32 35 30 2a b5 28 74  68 65 74 61 2a af 2f 31  |(250*.(theta*./1|
000000e0  38 30 29 29 20 8c 20 e6  30 2c 33 0d 00 50 1c e7  |80)) . .0,3..P..|
000000f0  20 61 6c 70 68 61 3e 31  36 30 20 8c 20 78 3d 32  | alpha>160 . x=2|
00000100  35 20 8b 20 78 3d 30 0d  00 5a 21 e7 20 61 6c 70  |5 . x=0..Z!. alp|
00000110  68 61 3c 31 38 31 20 8c  20 73 74 61 74 3d b9 20  |ha<181 . stat=. |
00000120  8b 20 73 74 61 74 3d a3  0d 00 64 34 ec 35 35 30  |. stat=...d4.550|
00000130  2d 78 2d 61 6c 70 68 61  2a 32 2b 9b 28 74 68 65  |-x-alpha*2+.(the|
00000140  74 61 2a af 2f 31 38 30  29 2a 35 30 2c a4 79 28  |ta*./180)*50,.y(|
00000150  74 68 65 74 61 2c 61 6c  70 68 61 29 0d 00 6e 3e  |theta,alpha)..n>|
00000160  e7 20 73 74 61 74 20 8c  20 df 35 35 30 2d 78 6f  |. stat . .550-xo|
00000170  2d 61 6c 70 68 61 2a 32  2b 9b 28 74 68 65 74 61  |-alpha*2+.(theta|
00000180  2a af 2f 31 38 30 29 2a  35 30 2c a4 79 28 74 68  |*./180)*50,.y(th|
00000190  65 74 61 2c 61 6c 70 68  61 29 0d 00 78 32 ec 36  |eta,alpha)..x2.6|
000001a0  35 30 2b 61 6c 70 68 61  2a 32 2b 9b 28 74 68 65  |50+alpha*2+.(the|
000001b0  74 61 2a af 2f 31 38 30  29 2a 35 30 2c a4 79 28  |ta*./180)*50,.y(|
000001c0  74 68 65 74 61 2c 61 6c  70 68 61 29 0d 00 82 32  |theta,alpha)...2|
000001d0  df 36 35 30 2b 61 6c 70  68 61 2a 32 2b 9b 28 74  |.650+alpha*2+.(t|
000001e0  68 65 74 61 2a af 2f 31  38 30 29 2a 35 30 2c a4  |heta*./180)*50,.|
000001f0  79 28 74 68 65 74 61 2c  61 6c 70 68 61 29 0d 00  |y(theta,alpha)..|
00000200  8c 11 78 6f 3d 78 3a ed  3a 78 6f 3d 30 3a ed 0d  |..xo=x:.:xo=0:..|
00000210  00 96 05 3a 0d 00 a0 2e  dd a4 79 28 74 68 2c 61  |...:......y(th,a|
00000220  6c 29 3d 36 35 30 2b 32  35 30 2a b5 28 af 2a 74  |l)=650+250*.(.*t|
00000230  68 2f 31 38 30 29 2a b5  28 61 6c 2a af 2f 31 38  |h/180)*.(al*./18|
00000240  30 29 0d ff                                       |0)..|
00000244

Our privacy policy is here.
Last updated: 13 Jul 2024, 14:29 UTC
Website designed by .