proc superplot file, x1, x2, y1, y2, n
begplot xwindows xmin=(x1) xmax=(x2) ymin=(y1) ymax=(y2)
limits (x1) (x2) (y1) (y2)
boxframe
loop for i = 0 to (n) step 1
j = i + 1
print "Plotting points from" (i*5000) " to " (j*5000-1)
readf data=(file) xcol=1 ycol=2 from=(i*5000) to=(j*5000-1) all accept
points
end loop
endplot
end proc
This would then be invoked as in (assuming the procedure was kept in a
file superplot.icl):
Which would plotICL > load superplot.icl ICL > superplot mygalaxies.dat -3 3 -3 3 10
mygalaxies.dat.
PONGO [2exof Applications for Interactive Data Plotting [2exon 2.0-2