StarInfo/Amery/Mode12/CurliDRAW

Home » Archimedes archive » Acorn User » AU 1996-03 B.adf » Regulars » StarInfo/Amery/Mode12/CurliDRAW

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 1996-03 B.adf » Regulars
Filename:	StarInfo/Amery/Mode12/CurliDRAW
Read OK:	✔
File size:	04BC bytes
Load address:	0000
Exec address:	0000

File contents

   20MODE 12            :REM change these lines to use a different mode.
   30xx%=640:yx%=256    :REM xx% is width(in OS pixels) and yx% is height.
   40ORIGIN FNx(1),FNy(1)
   50xo=0:yo=0
   60INPUT"Formula:"f$
   70INPUT"Line Length:"L
   80INPUT"Store how many:"S
   81ON ERROR IF ERR=17 THEN RUN ELSE PRINTREPORT$;" at line ";ERL:END
   90DIM qq 100+12*S
  100$qq="Draw"
  110qq!4=201
  120qq!8=0
  130$(qq+12)="CurlicuDraw"
  140qq!40=2
  150qq!64=-1
  160qq!68=0
  170qq!72=0
  180qq!76=0
  190qq!80=2
  200qq!84=0
  210qq!88=0
  220o=92
  230xmx=-9E9
  240xmn=+9E9
  250ymx=-9E9
  260ymn=+9E9
  270FOR X=1 TO S
  280PRINTTAB(3,3);X
  290A=FNf(EVAL(f$))*2*PI
  300PROCline(((L*COSA)+xo),((L*SINA)+yo),xo,yo)
  310qq!o=8
  320qq!(o+4)=(xo*180*256*8)
  330qq!(o+8)=(yo*180*256*8)
  340o+=12
  350IF xo>xmx THEN xmx=xo
  360IF xo<xmn THEN xmn=xo
  370IF yo<ymn THEN ymn=yo
  380IF yo>ymx THEN ymx=yo
  390NEXT
  400qq!o=0
  410qq!44=o-36
  420qq!24=xmn*180*256*8
  430qq!48=xmn*180*256*8
  440qq!28=ymn*180*256*8
  450qq!52=ymn*180*256*8
  460qq!32=xmx*180*256*8
  470qq!56=xmx*180*256*8
  480qq!36=ymx*180*256*8
  490qq!60=ymx*180*256*8
  500INPUT"Save as:"S$
  510SYS"OS_File",10,S$,&AFF,,qq,qq+o+4
  520END
  530
  540:
  550DEFPROCmove(x,y)
  560MOVE FNx(x),FNy(y)
  570ENDPROC
  580:
  590DEFPROCline(x,y,RETURN ox,RETURN oy)
  600LINE FNx(x),FNy(y),FNx(ox),FNy(oy)
  610oy=y:ox=x
  620ENDPROC
  630:
  640DEFFNx(x)
  650=x*xx%/2
  660:
  670DEFFNy(y)
  680=y*yx%/2
  690:
  700DEFFNf(f)
  710=f-INT(f)

B� 12            :� change these lines to use a different mode.
Gxx%=640:yx%=256    :� xx% is width(in OS pixels) and yx% is height.
(ȑ �x(1),�y(1)
2
xo=0:yo=0
<�"Formula:"f$
F�"Line Length:"L
P�"Store how many:"S
Q(� � � �=17 � � � �$;" at line ";�:�
Z� qq 100+12*S
d$qq="Draw"
nqq!4=201
x
qq!8=0
�$(qq+12)="CurlicuDraw"
�qq!40=2
�qq!64=-1
�qq!68=0
�qq!72=0
�qq!76=0
�qq!80=2
�qq!84=0
�qq!88=0
�o=92
�xmx=-9E9
�xmn=+9E9
�ymx=-9E9
ymn=+9E9

� X=1 � S
�3,3);X
"A=�f(�(f$))*2*�
,(�line(((L*�A)+xo),((L*�A)+yo),xo,yo)
6
qq!o=8
@qq!(o+4)=(xo*180*256*8)
Jqq!(o+8)=(yo*180*256*8)
T	o+=12
^� xo>xmx � xmx=xo
h� xo<xmn � xmn=xo
r� yo<ymn � ymn=yo
|� yo>ymx � ymx=yo
��
�
qq!o=0
�qq!44=o-36
�qq!24=xmn*180*256*8
�qq!48=xmn*180*256*8
�qq!28=ymn*180*256*8
�qq!52=ymn*180*256*8
�qq!32=xmx*180*256*8
�qq!56=xmx*180*256*8
�qq!36=ymx*180*256*8
�qq!60=ymx*180*256*8
��"Save as:"S$
�%ș"OS_File",10,S$,&AFF,,qq,qq+o+4
�

:
&��move(x,y)
0� �x(x),�y(y)
:�
D:
N��line(x,y,� ox,� oy)
X� �x(x),�y(y),�x(ox),�y(oy)
b
oy=y:ox=x
l�
v:
�
ݤx(x)
�=x*xx%/2
�:
�
ݤy(y)
�=y*yx%/2
�:
�
ݤf(f)
�=f-�(f)
�

00000000  0d 00 14 42 eb 20 31 32  20 20 20 20 20 20 20 20  |...B. 12        |
00000010  20 20 20 20 3a f4 20 63  68 61 6e 67 65 20 74 68  |    :. change th|
00000020  65 73 65 20 6c 69 6e 65  73 20 74 6f 20 75 73 65  |ese lines to use|
00000030  20 61 20 64 69 66 66 65  72 65 6e 74 20 6d 6f 64  | a different mod|
00000040  65 2e 0d 00 1e 47 78 78  25 3d 36 34 30 3a 79 78  |e....Gxx%=640:yx|
00000050  25 3d 32 35 36 20 20 20  20 3a f4 20 78 78 25 20  |%=256    :. xx% |
00000060  69 73 20 77 69 64 74 68  28 69 6e 20 4f 53 20 70  |is width(in OS p|
00000070  69 78 65 6c 73 29 20 61  6e 64 20 79 78 25 20 69  |ixels) and yx% i|
00000080  73 20 68 65 69 67 68 74  2e 0d 00 28 12 c8 91 20  |s height...(... |
00000090  a4 78 28 31 29 2c a4 79  28 31 29 0d 00 32 0d 78  |.x(1),.y(1)..2.x|
000000a0  6f 3d 30 3a 79 6f 3d 30  0d 00 3c 11 e8 22 46 6f  |o=0:yo=0..<.."Fo|
000000b0  72 6d 75 6c 61 3a 22 66  24 0d 00 46 14 e8 22 4c  |rmula:"f$..F.."L|
000000c0  69 6e 65 20 4c 65 6e 67  74 68 3a 22 4c 0d 00 50  |ine Length:"L..P|
000000d0  17 e8 22 53 74 6f 72 65  20 68 6f 77 20 6d 61 6e  |.."Store how man|
000000e0  79 3a 22 53 0d 00 51 28  ee 20 85 20 e7 20 9f 3d  |y:"S..Q(. . . .=|
000000f0  31 37 20 8c 20 f9 20 8b  20 f1 f6 24 3b 22 20 61  |17 . . . ..$;" a|
00000100  74 20 6c 69 6e 65 20 22  3b 9e 3a e0 0d 00 5a 11  |t line ";.:...Z.|
00000110  de 20 71 71 20 31 30 30  2b 31 32 2a 53 0d 00 64  |. qq 100+12*S..d|
00000120  0e 24 71 71 3d 22 44 72  61 77 22 0d 00 6e 0c 71  |.$qq="Draw"..n.q|
00000130  71 21 34 3d 32 30 31 0d  00 78 0a 71 71 21 38 3d  |q!4=201..x.qq!8=|
00000140  30 0d 00 82 1a 24 28 71  71 2b 31 32 29 3d 22 43  |0....$(qq+12)="C|
00000150  75 72 6c 69 63 75 44 72  61 77 22 0d 00 8c 0b 71  |urlicuDraw"....q|
00000160  71 21 34 30 3d 32 0d 00  96 0c 71 71 21 36 34 3d  |q!40=2....qq!64=|
00000170  2d 31 0d 00 a0 0b 71 71  21 36 38 3d 30 0d 00 aa  |-1....qq!68=0...|
00000180  0b 71 71 21 37 32 3d 30  0d 00 b4 0b 71 71 21 37  |.qq!72=0....qq!7|
00000190  36 3d 30 0d 00 be 0b 71  71 21 38 30 3d 32 0d 00  |6=0....qq!80=2..|
000001a0  c8 0b 71 71 21 38 34 3d  30 0d 00 d2 0b 71 71 21  |..qq!84=0....qq!|
000001b0  38 38 3d 30 0d 00 dc 08  6f 3d 39 32 0d 00 e6 0c  |88=0....o=92....|
000001c0  78 6d 78 3d 2d 39 45 39  0d 00 f0 0c 78 6d 6e 3d  |xmx=-9E9....xmn=|
000001d0  2b 39 45 39 0d 00 fa 0c  79 6d 78 3d 2d 39 45 39  |+9E9....ymx=-9E9|
000001e0  0d 01 04 0c 79 6d 6e 3d  2b 39 45 39 0d 01 0e 0d  |....ymn=+9E9....|
000001f0  e3 20 58 3d 31 20 b8 20  53 0d 01 18 0c f1 8a 33  |. X=1 . S......3|
00000200  2c 33 29 3b 58 0d 01 22  13 41 3d a4 66 28 a0 28  |,3);X..".A=.f(.(|
00000210  66 24 29 29 2a 32 2a af  0d 01 2c 28 f2 6c 69 6e  |f$))*2*...,(.lin|
00000220  65 28 28 28 4c 2a 9b 41  29 2b 78 6f 29 2c 28 28  |e(((L*.A)+xo),((|
00000230  4c 2a b5 41 29 2b 79 6f  29 2c 78 6f 2c 79 6f 29  |L*.A)+yo),xo,yo)|
00000240  0d 01 36 0a 71 71 21 6f  3d 38 0d 01 40 1b 71 71  |..6.qq!o=8..@.qq|
00000250  21 28 6f 2b 34 29 3d 28  78 6f 2a 31 38 30 2a 32  |!(o+4)=(xo*180*2|
00000260  35 36 2a 38 29 0d 01 4a  1b 71 71 21 28 6f 2b 38  |56*8)..J.qq!(o+8|
00000270  29 3d 28 79 6f 2a 31 38  30 2a 32 35 36 2a 38 29  |)=(yo*180*256*8)|
00000280  0d 01 54 09 6f 2b 3d 31  32 0d 01 5e 15 e7 20 78  |..T.o+=12..^.. x|
00000290  6f 3e 78 6d 78 20 8c 20  78 6d 78 3d 78 6f 0d 01  |o>xmx . xmx=xo..|
000002a0  68 15 e7 20 78 6f 3c 78  6d 6e 20 8c 20 78 6d 6e  |h.. xo<xmn . xmn|
000002b0  3d 78 6f 0d 01 72 15 e7  20 79 6f 3c 79 6d 6e 20  |=xo..r.. yo<ymn |
000002c0  8c 20 79 6d 6e 3d 79 6f  0d 01 7c 15 e7 20 79 6f  |. ymn=yo..|.. yo|
000002d0  3e 79 6d 78 20 8c 20 79  6d 78 3d 79 6f 0d 01 86  |>ymx . ymx=yo...|
000002e0  05 ed 0d 01 90 0a 71 71  21 6f 3d 30 0d 01 9a 0e  |......qq!o=0....|
000002f0  71 71 21 34 34 3d 6f 2d  33 36 0d 01 a4 17 71 71  |qq!44=o-36....qq|
00000300  21 32 34 3d 78 6d 6e 2a  31 38 30 2a 32 35 36 2a  |!24=xmn*180*256*|
00000310  38 0d 01 ae 17 71 71 21  34 38 3d 78 6d 6e 2a 31  |8....qq!48=xmn*1|
00000320  38 30 2a 32 35 36 2a 38  0d 01 b8 17 71 71 21 32  |80*256*8....qq!2|
00000330  38 3d 79 6d 6e 2a 31 38  30 2a 32 35 36 2a 38 0d  |8=ymn*180*256*8.|
00000340  01 c2 17 71 71 21 35 32  3d 79 6d 6e 2a 31 38 30  |...qq!52=ymn*180|
00000350  2a 32 35 36 2a 38 0d 01  cc 17 71 71 21 33 32 3d  |*256*8....qq!32=|
00000360  78 6d 78 2a 31 38 30 2a  32 35 36 2a 38 0d 01 d6  |xmx*180*256*8...|
00000370  17 71 71 21 35 36 3d 78  6d 78 2a 31 38 30 2a 32  |.qq!56=xmx*180*2|
00000380  35 36 2a 38 0d 01 e0 17  71 71 21 33 36 3d 79 6d  |56*8....qq!36=ym|
00000390  78 2a 31 38 30 2a 32 35  36 2a 38 0d 01 ea 17 71  |x*180*256*8....q|
000003a0  71 21 36 30 3d 79 6d 78  2a 31 38 30 2a 32 35 36  |q!60=ymx*180*256|
000003b0  2a 38 0d 01 f4 11 e8 22  53 61 76 65 20 61 73 3a  |*8....."Save as:|
000003c0  22 53 24 0d 01 fe 25 c8  99 22 4f 53 5f 46 69 6c  |"S$...%.."OS_Fil|
000003d0  65 22 2c 31 30 2c 53 24  2c 26 41 46 46 2c 2c 71  |e",10,S$,&AFF,,q|
000003e0  71 2c 71 71 2b 6f 2b 34  0d 02 08 05 e0 0d 02 12  |q,qq+o+4........|
000003f0  04 0d 02 1c 05 3a 0d 02  26 0f dd f2 6d 6f 76 65  |.....:..&...move|
00000400  28 78 2c 79 29 0d 02 30  11 ec 20 a4 78 28 78 29  |(x,y)..0.. .x(x)|
00000410  2c a4 79 28 79 29 0d 02  3a 05 e1 0d 02 44 05 3a  |,.y(y)..:....D.:|
00000420  0d 02 4e 19 dd f2 6c 69  6e 65 28 78 2c 79 2c f8  |..N...line(x,y,.|
00000430  20 6f 78 2c f8 20 6f 79  29 0d 02 58 1f 86 20 a4  | ox,. oy)..X.. .|
00000440  78 28 78 29 2c a4 79 28  79 29 2c a4 78 28 6f 78  |x(x),.y(y),.x(ox|
00000450  29 2c a4 79 28 6f 79 29  0d 02 62 0d 6f 79 3d 79  |),.y(oy)..b.oy=y|
00000460  3a 6f 78 3d 78 0d 02 6c  05 e1 0d 02 76 05 3a 0d  |:ox=x..l....v.:.|
00000470  02 80 0a dd a4 78 28 78  29 0d 02 8a 0c 3d 78 2a  |.....x(x)....=x*|
00000480  78 78 25 2f 32 0d 02 94  05 3a 0d 02 9e 0a dd a4  |xx%/2....:......|
00000490  79 28 79 29 0d 02 a8 0c  3d 79 2a 79 78 25 2f 32  |y(y)....=y*yx%/2|
000004a0  0d 02 b2 05 3a 0d 02 bc  0a dd a4 66 28 66 29 0d  |....:......f(f).|
000004b0  02 c6 0b 3d 66 2d a8 28  66 29 0d ff              |...=f-.(f)..|
000004bc

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