Home » Archimedes archive » Acorn Computing » 1993 06 Mega Disk.adf » 93_06 » HelixBasic/Examples/!Graph/HelixInfo
HelixBasic/Examples/!Graph/HelixInfo
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 Computing » 1993 06 Mega Disk.adf » 93_06 |
| Filename: | HelixBasic/Examples/!Graph/HelixInfo |
| Read OK: | ✔ |
| File size: | 0CE9 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
Sun,07 Mar 1993.14:45:18 | Default !Boot file
IconSprites <Obey$Dir>.!Sprites | Default !Run file
RMEnsure FPEmulator 2.70 RMLoad System:Modules.FPEmulator
RMEnsure FPEmulator 2.70 Error You need FPEmulator 2.70 or later
| RMEnsure Euclid 1.03 RMLoad <Obey$Dir>.EuclidX
| RMEnsure TrackerModule 2.06 RMLOAD <Obey$Dir>.PlayerMod
RMEnsure ColourTrans 0.51 RMLoad System:Modules.Colours
RMEnsure ColourTrans 0.51 Error You need ColourTrans 0.51 or later
RMEnsure HelixDemo 1.00 RMLoad <HelixSystem$Dir>.Modules.HelixDemo
RMEnsure HelixDemo 1.00 Error You need HelixDemo 1.00 or later
Iconsprites <Obey$Dir>.!Sprites
WimpSlot -min 160K -max 160K
<Obey$Dir>.!RunImage
Place information about the program in this file
REM +--- The Main Procedure ---+
PROCsetup_default_values
PROClimits_definition
SETSAVE filename$,"file_aff","Save Drawfile",save_procedure,&AFF
REPEAT
UNTIL FALSE
!Graph Multi-tasking graphis package Authors Name 0.10 (date) OPENWINDOW main_window OPENMENU icon_bar,MOUSEPOSX-64,228 setup_default_values min_x=0
max_x=PI*2
min_y=-1
max_y=1
colour%=&0000FF
eq$="SINx"
build_graph step=(max_x-min_x)/500
scale=(max_y-min_y)/500
FOR x=min_x TO max_x STEP step
y_pos=(EVAL(eq$)/scale)+250
POINT main_window,colour%,((x-min_x)/step)*2,y_pos
NEXT
save_procedure HOURGLASS ON
SAVEDRAW main_window,filename$
HOURGLASS OFF
limits_definition TEXT limits_window,black%,8,48,"Minimum y : "
TEXT limits_window,black%,8,100,"Maximum y : "
TEXT limits_window,black%,8,152,"Minimum x : "
TEXT limits_window,black%,8,204,"Maximum x : "
filter$="0123456789."
EDITFIELD limits_window,edit1,200,168,14,14,1,max_x$=STR$(max_x),filter$
EDITFIELD limits_window,edit2,200,116,14,14,1,min_x$=STR$(min_x),filter$
EDITFIELD limits_window,edit3,200,64,14,14,1,max_y$=STR$(max_y),filter$
EDITFIELD limits_window,edit4,200,12,14,14,1,min_y$=STR$(min_y),filter$
EDITLINK limits_window,edit1,edit2,edit3,edit4
RECTANGLE FILL limits_window,&BBEEEE,8,-48,434,48
RECTANGLE limits_window,black%,8,-48,434,48
TEXT limits_window,black%,109,-12,"Update Values"
MOUSEAREA limits_window,8,-48,434,48,{PROCupdate_limits}
CLOSECOMMAND limits_window,{PROCupdate_limits} update_limits max_x=VAL(max_x$)
min_x=VAL(min_x$)
max_y=VAL(max_y$)
min_y=VAL(min_y$) ����� h� <