/usr/share/axiom-20120501/input/draw2dsf.input is in axiom-test 20120501-8.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | --Copyright The Numerical Algorithms Group Limited 1994.
)clear all
--open a file for input
drawList(lp:List Point DoubleFloat):VIEW2D ==
n := #lp
g := graphImage()$GRIMAGE
for p in lp repeat
component(g,p,pointColorDefault(),lineColorDefault(),pointSizeDefault())
gi := makeGraphImage(g)$GRIMAGE
makeViewport2D(gi,[title("Points")])$VIEW2D
readTheFile(filename,numberOfPoints) ==
filenew:FILE(DoubleFloat):=open(filename,"input")
llp:=[point([read!(filenew),read!(filenew)])$Point(DoubleFloat)
for i in 1..numberOfPoints]
-- first we read the file of x, y data
-- we cheat to get at the AXIOM variable
axiom:=string getEnv("AXIOM")$Lisp
pts:=readTheFile(axiom "/../../src/input/draw2dsf.data",1024);
-- then we plot the points
drawList(pts)
|