mirror of
git://projects.qi-hardware.com/openwrt-packages.git
synced 2024-12-22 11:06:47 +02:00
91 lines
2.4 KiB
Lua
91 lines
2.4 KiB
Lua
--[[ $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()
|