rename nanonote-example files

nanonote-files/example-files/data/Examples/lua-plplot-examples/x31.lua

@@ -0,0 +1,225 @@
+--[[ $Id: x31.lua 9533 2009-02-16 22:18:37Z smekal $
+
+  Copyright (C) 2008 Werner Smekal
+
+  set/get tester
+
+  This file is part of PLplot.
+  
+  PLplot is free software you can redistribute it and/or modify
+  it under the terms of the GNU General Library Public License as published
+  by the Free Software Foundation either version 2 of the License, or
+  (at your option) any later version.
+  
+  PLplot is distributed in the hope that it will be useful,
+  but WITHOUT ANY WARRANTY without even the implied warranty of
+  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+  GNU Library General Public License for more details.
+  
+  You should have received a copy of the GNU Library General Public License
+  along with PLplot if not, write to the Free Software
+  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+--]]
+
+
+-- initialise Lua bindings for PLplot examples.
+dofile("plplot_examples.lua")
+
+r1 = { 0, 255 }
+g1 = { 255, 0 }
+b1 = { 0, 0 }
+a1 = { 1, 1 }
+
+-- Parse and process command line arguments 
+status = 0
+pl.parseopts(arg, pl.PL_PARSE_FULL)
+
+-- Test setting / getting familying parameters before plinit 
+-- Save values set by plparseopts to be restored later. 
+fam0, num0, bmax0 = pl.gfam()
+fam1 = 0
+num1 = 10
+bmax1 = 1000
+pl.sfam(fam1, num1, bmax1)
+
+-- Retrieve the same values? 
+fam2, num2, bmax2 = pl.gfam()
+print(string.format("family parameters: fam, num, bmax = %d %d %d", fam2, num2, bmax2))
+if fam2~=fam1 or num2~=num1 or bmax2~=bmax1 then
+  io.stderr:write("plgfam test failed\n")
+  status = 1
+end
+-- Restore values set initially by plparseopts. 
+pl.sfam(fam0, num0, bmax0)
+
+-- Test setting / getting page parameters before plinit 
+-- Save values set by plparseopts to be restored later. 
+xp0, yp0, xleng0, yleng0, xoff0, yoff0 = pl.gpage()
+xp1 = 200.
+yp1 = 200.
+xleng1 = 400
+yleng1 = 200
+xoff1 = 10
+yoff1 = 20
+pl.spage(xp1, yp1, xleng1, yleng1, xoff1, yoff1)
+
+-- Retrieve the same values? 
+xp2, yp2, xleng2, yleng2, xoff2, yoff2 = pl.gpage()
+print(string.format("page parameters: xp, yp, xleng, yleng, xoff, yoff = %f %f %d %d %d %d", xp2, yp2, xleng2, yleng2, xoff2, yoff2))
+if xp2~=xp1 or yp2~=yp1 or xleng2~=xleng1 or yleng2~=yleng1 or xoff2~=xoff1 or yoff2~=yoff1 then
+  io.stderr:write("plgpage test failed\n")
+  status = 1
+end
+-- Restore values set initially by plparseopts. 
+pl.spage(xp0, yp0, xleng0, yleng0, xoff0, yoff0)
+
+-- Test setting / getting compression parameter across plinit. 
+compression1 = 95
+pl.scompression(compression1)
+
+-- Initialize plplot 
+pl.init()
+
+-- Test if device initialization screwed around with the preset
+-- compression parameter. 
+compression2 = pl.gcompression()
+print("Output various PLplot parameters")
+print("compression parameter = " .. compression2)
+if compression2~=compression1 then
+  io.stderr:write("plgcompression test failed\n")
+  status = 1
+end
+
+
+-- Exercise plscolor, plscol0, plscmap1, and plscmap1a to make sure
+--they work without any obvious error messages. 
+pl.scolor(1)
+pl.scol0(1, 255, 0, 0)
+pl.scmap1(r1, g1, b1)
+pl.scmap1a(r1, g1, b1, a1)
+
+level2 = pl.glevel()
+print("level parameter = " .. level2)
+if level2~=1 then
+  io.stderr:write("plglevel test failed.\n")
+  status = 1
+end
+
+pl.adv(0)
+pl.vpor(0.01, 0.99, 0.02, 0.49)
+xmin, xmax, ymin, ymax = pl.gvpd()
+print(string.format("plvpor: xmin, xmax, ymin, ymax = %f %f %f %f", xmin, xmax, ymin, ymax))
+if xmin~=0.01 or xmax~=0.99 or ymin~=0.02 or ymax~=0.49 then
+  io.stderr:write("plgvpd test failed\n")
+  status = 1
+end
+xmid = 0.5*(xmin+xmax)
+ymid = 0.5*(ymin+ymax)
+
+pl.wind(0.2, 0.3, 0.4, 0.5)
+xmin, xmax, ymin, ymax = pl.gvpw()
+print(string.format("plwind: xmin, xmax, ymin, ymax = %f %f %f %f", xmin, xmax, ymin, ymax))
+if xmin~=0.2 or xmax~=0.3 or ymin~=0.4 or ymax~=0.5 then
+  io.stderr:write("plgvpw test failed\n")
+  status = 1
+end
+
+-- Get world coordinates for middle of viewport 
+wx, wy, win = pl.calc_world(xmid,ymid)
+print(string.format("world parameters: wx, wy, win = %f %f %d", wx, wy, win))
+if math.abs(wx-0.5*(xmin+xmax))>1.0e-5 or math.abs(wy-0.5*(ymin+ymax))>1.0e-5 then
+  io.stderr:write("plcalc_world test failed\n")
+  status = 1    
+end
+
+-- Retrieve and print the name of the output file (if any).
+-- This goes to stderr not stdout since it will vary between tests and 
+-- we want stdout to be identical for compare test. 
+fnam = pl.gfnam()
+if fnam=="" then
+  print("No output file name is set")
+else 
+  print("Output file name read")
+end
+io.stderr:write(string.format("Output file name is %s\n",fnam))
+
+-- Set and get the number of digits used to display axis labels 
+-- Note digits is currently ignored in pls[xyz]ax and 
+-- therefore it does not make sense to test the returned 
+-- value 
+pl.sxax(3,0)
+digmax, digits = pl.gxax()
+print(string.format("x axis parameters: digmax, digits = %d %d", digmax, digits))
+if digmax~=3 then
+  io.stderr:write("plgxax test failed\n")
+  status = 1
+end
+
+pl.syax(4,0)
+digmax, digits = pl.gyax()
+print(string.format("y axis parameters: digmax, digits = %d %d", digmax, digits))
+if digmax~=4 then
+  io.stderr:write("plgyax test failed\n")
+  status = 1
+end
+
+pl.szax(5,0)
+digmax,digits = pl.gzax()
+print(string.format("z axis parameters: digmax, digits = %d %d", digmax, digits))
+if digmax~=5 then
+  io.stderr:write("plgzax test failed\n")
+  status = 1
+end
+
+pl.sdidev(0.05, pl.PL_NOTSET, 0.1, 0.2)
+mar, aspect, jx, jy = pl.gdidev()
+print(string.format("device-space window parameters: mar, aspect, jx, jy = %f %f %f %f" , mar, aspect, jx, jy))
+if mar~=0.05 or jx~=0.1 or jy~=0.2 then
+  io.stderr:write("plgdidev test failed\n")
+  status = 1
+end
+
+pl.sdiori(1.0)
+ori = pl.gdiori()
+print(string.format("ori parameter = %f", ori))
+if ori~=1.0 then
+  io.stderr:write("plgdiori test failed\n")
+  status = 1
+end
+
+pl.sdiplt(0.1, 0.2, 0.9, 0.8)
+xmin, ymin, xmax, ymax = pl.gdiplt()
+print(string.format("plot-space window parameters: xmin, ymin, xmax, ymax = %f %f %f %f", xmin, ymin, xmax, ymax))
+if xmin~=0.1 or xmax~=0.9 or ymin~=0.2 or ymax~=0.8 then
+  io.stderr:write("plgdiplt test failed\n")
+  status = 1
+end
+
+pl.sdiplz(0.1, 0.1, 0.9, 0.9)
+zxmin, zymin, zxmax, zymax = pl.gdiplt()
+print(string.format("zoomed plot-space window parameters: xmin, ymin, xmax, ymax = %f %f %f %f", zxmin, zymin, zxmax, zymax))
+if math.abs(zxmin -(xmin + (xmax-xmin)*0.1)) > 1.0e-5 or 
+   math.abs(zxmax -(xmin+(xmax-xmin)*0.9)) > 1.0e-5 or 
+   math.abs(zymin -(ymin+(ymax-ymin)*0.1)) > 1.0e-5 or 
+   math.abs(zymax -(ymin+(ymax-ymin)*0.9)) > 1.0e-5 then
+  io.stderr:write("plsdiplz test failed\n")
+  status = 1
+end
+
+pl.scolbg(10, 20, 30)
+r, g, b = pl.gcolbg()
+print(string.format("background colour parameters: r, g, b = %d %d %d", r, g, b))
+if r~=10 or g~=20 or b~=30 then 
+  io.stderr:write("plgcolbg test failed\n")
+  status = 1
+end
+
+pl.scolbga(20, 30, 40, 0.5)
+r, g, b, a = pl.gcolbga()
+print(string.format("background/transparency colour parameters: r, g, b, a = %d %d %d %f", r, g, b, a))
+if r~=20 or g~=30 or b~=40 or a~=0.5 then
+  io.stderr:write("plgcolbga test failed\n")
+  status = 1
+end
+
+pl.plend()