_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

ARC'AS.L

FILE INFORMATION

FILENAME(S): ARC'AS.L

FILE TYPE(S): SEQ

FILE SIZE: 284b

FIRST SEEN: 2025-12-01 01:48:21

APPEARS ON: 2 disk(s)

FILE HASH

0db18b65cac44b085ac2d631346b99574bdde310871d0ff34c50fc90f6459be6

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
CCS COMAL ARC'AS.L SEQ hedning, Mattias H00r 21 6 DOWNLOAD FILE
CCS COMAL ARC'AS.L SEQ hedning, Mattias H00r 21 6 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 50 52 4F  43 20 41 52 43 27 41 53  |9000 PROC ARC'AS|
00000010: 28 58 2C 59 2C 52 2C 53  41 2C 43 41 29 20 43 4C  |(X,Y,R,SA,CA) CL|
00000020: 4F 53 45 44 0D 39 30 31  30 20 50 45 4E 55 50 20  |OSED.9010 PENUP |
00000030: 0D 39 30 32 30 20 4E 3A  3D 36 2E 32 38 33 31 38  |.9020 N:=6.28318|
00000040: 35 33 31 2F 39 30 0D 39  30 33 30 20 53 41 3A 3D  |531/90.9030 SA:=|
00000050: 52 41 44 28 53 41 29 0D  39 30 34 30 20 46 4F 52  |RAD(SA).9040 FOR|
00000060: 20 54 3A 3D 30 20 54 4F  20 2D 28 36 2E 32 38 33  | T:=0 TO -(6.283|
00000070: 31 38 35 33 31 2B 4E 29  2F 28 33 36 30 2F 43 41  |18531+N)/(360/CA|
00000080: 29 20 53 54 45 50 20 2D  4E 20 44 4F 0D 39 30 35  |) STEP -N DO.905|
00000090: 30 20 58 27 3A 3D 52 2A  43 4F 53 28 54 2B 53 41  |0 X':=R*COS(T+SA|
000000A0: 29 0D 39 30 36 30 20 59  27 3A 3D 52 2A 53 49 4E  |).9060 Y':=R*SIN|
000000B0: 28 54 2B 53 41 29 0D 39  30 37 30 20 53 58 3A 3D  |(T+SA).9070 SX:=|
000000C0: 41 53 50 45 43 54 2A 58  27 2B 58 0D 39 30 38 30  |ASPECT*X'+X.9080|
000000D0: 20 53 59 3A 3D 59 2D 59  27 0D 39 30 39 30 20 44  | SY:=Y-Y'.9090 D|
000000E0: 52 41 57 54 4F 20 53 58  2C 53 59 0D 39 31 30 30  |RAWTO SX,SY.9100|
000000F0: 20 50 45 4E 44 4F 57 4E  20 0D 39 31 31 30 20 45  | PENDOWN .9110 E|
00000100: 4E 44 46 4F 52 20 54 0D  39 31 32 30 20 45 4E 44  |NDFOR T.9120 END|
00000110: 50 52 4F 43 20 41 52 43  27 41 53 0D              |PROC ARC'AS.    |

9000 PROC ARC'AS(X,Y,R,SA,CA) CLOSED.901
0 PENUP .9020 N:=6.28318531/90.9030 SA:=
RAD(SA).9040 FOR T:=0 TO -(6.28318531+N)
/(360/CA) STEP -N DO.9050 X':=R*COS(T+SA
).9060 Y':=R*SIN(T+SA).9070 SX:=ASPECT*X
'+X.9080 SY:=Y-Y'.9090 DRAWTO SX,SY.9100
 PENDOWN .9110 ENDFOR T.9120 ENDPROC ARC
'AS.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL