rename nanonote-example files

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

@@ -0,0 +1,90 @@
+--[[ $Id: x07.lua 11032 2010-05-27 22:34:40Z andrewross $
+
+	Font demo.
+
+  Copyright (C) 2008  Werner Smekal
+
+  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")
+
+base = { 0, 100, 0, 100, 200, 500, 600, 700, 800, 900,
+         2000, 2100, 2200, 2300, 2400, 2500,
+				 2600, 2700, 2800, 2900 }
+
+----------------------------------------------------------------------------
+-- main
+--
+-- Displays the entire "plsym" symbol (font) set.
+----------------------------------------------------------------------------
+
+-- Parse and process command line arguments 
+pl.parseopts(arg, pl.PL_PARSE_FULL)
+
+-- Initialize plplot 
+pl.init()
+
+pl.fontld(0)
+for l = 1, 20 do
+
+    if l == 3 then
+        pl.fontld(1)
+    end
+    pl.adv(0)
+
+    -- Set up viewport and window 
+    pl.col0(2)
+    pl.vpor(0.15, 0.95, 0.1, 0.9)
+    pl.wind(0, 1, 0, 1)
+
+    -- Draw the grid using plbox 
+
+    pl.box("bcg", 0.1, 0, "bcg", 0.1, 0)
+
+    -- Write the digits below the frame 
+
+    pl.col0(15)
+    for i = 0, 9 do 
+        pl.mtex("b", 1.5, (0.1 * i + 0.05), 0.5, tostring(i))
+    end
+
+    k = 0
+    x = {}
+    y = {}
+    for i = 0, 9 do 
+        -- Write the digits to the left of the frame 
+        pl.mtex("lv", 1.0, (0.95 - 0.1 * i), 1.0, tostring(base[l] + 10 * i))
+        for j=0, 9 do
+            x[1] = 0.1 * j + 0.05
+            y[1] = 0.95 - 0.1 * i
+
+            -- Display the symbols 
+            pl.sym(x, y, base[l] + k)
+            k = k + 1
+        end
+    end
+
+    if l <= 2 then
+        pl.mtex("t", 1.5, 0.5, 0.5, "PLplot Example 7 - PLSYM symbols (compact)")
+    else
+        pl.mtex("t", 1.5, 0.5, 0.5, "PLplot Example 7 - PLSYM symbols (extended)")
+    end
+end
+
+pl.plend()