From: <ai...@us...> - 2008-08-15 01:37:40
|
Revision: 8661 http://plplot.svn.sourceforge.net/plplot/?rev=8661&view=rev Author: airwin Date: 2008-08-15 01:37:47 +0000 (Fri, 15 Aug 2008) Log Message: ----------- AWI for Hezekiah M. Carty, add standard ocaml examples 24, 25, 26, 27, and 30. All these new ocaml additions give results that exactly match those of their C counterparts. Modified Paths: -------------- trunk/examples/ocaml/CMakeLists.txt trunk/examples/ocaml/Makefile.examples.in trunk/plplot_test/test_ocaml.sh.in Added Paths: ----------- trunk/examples/ocaml/x24.ml trunk/examples/ocaml/x25.ml trunk/examples/ocaml/x26.ml trunk/examples/ocaml/x27.ml trunk/examples/ocaml/x30.ml Modified: trunk/examples/ocaml/CMakeLists.txt =================================================================== --- trunk/examples/ocaml/CMakeLists.txt 2008-08-15 00:30:29 UTC (rev 8660) +++ trunk/examples/ocaml/CMakeLists.txt 2008-08-15 01:37:47 UTC (rev 8661) @@ -34,6 +34,11 @@ "12" "13" "19" + "24" + "25" + "26" + "27" + "30" ) set(ocaml_SRCS) Modified: trunk/examples/ocaml/Makefile.examples.in =================================================================== --- trunk/examples/ocaml/Makefile.examples.in 2008-08-15 00:30:29 UTC (rev 8660) +++ trunk/examples/ocaml/Makefile.examples.in 2008-08-15 01:37:47 UTC (rev 8661) @@ -41,6 +41,11 @@ x12$(EXEEXT) \ x13$(EXEEXT) \ x19$(EXEEXT) \ + x24$(EXEEXT) \ + x25$(EXEEXT) \ + x26$(EXEEXT) \ + x27$(EXEEXT) \ + x30$(EXEEXT) \ all: $(EXECUTABLES_list) Added: trunk/examples/ocaml/x24.ml =================================================================== --- trunk/examples/ocaml/x24.ml (rev 0) +++ trunk/examples/ocaml/x24.ml 2008-08-15 01:37:47 UTC (rev 8661) @@ -0,0 +1,146 @@ +(* + Unicode Pace Flag + + Copyright (C) 2005 Rafael Laboissiere + Copyright 2008 Hezekiah M. Carty + + + 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 + + + In Debian, run like this: + + ( TTFDIR=/usr/share/fonts/truetype ; \ + PLPLOT_FREETYPE_SANS_FONT=$TTFDIR/arphic/bkai00mp.ttf \ + PLPLOT_FREETYPE_SERIF_FONT=$TTFDIR/freefont/FreeSerif.ttf \ + PLPLOT_FREETYPE_MONO_FONT=$TTFDIR/ttf-devanagari-fonts/lohit_hi.ttf \ + PLPLOT_FREETYPE_SCRIPT_FONT=$TTFDIR/unfonts/UnBatang.ttf \ + PLPLOT_FREETYPE_SYMBOL_FONT=$TTFDIR/ttf-bengali-fonts/JamrulNormal.ttf \ + ./x24c -dev png -drvopt smooth=0 -o x24c.png ) + + Packages needed: + + ttf-arphic-bkai00mp + ttf-freefont + ttf-devanagari-fonts + ttf-unfonts + ttf-bengali-fonts + *) + +open Plplot + +let red = [|240; 204; 204; 204; 0; 39; 125|] +let green = [|240; 0; 125; 204; 204; 80; 0|] +let blue = [|240; 0; 0; 0; 0; 204; 125|] + +let px = [|0.0; 0.0; 1.0; 1.0|] +let py = [|0.0; 0.25; 0.25; 0.0|] + +let sx = [| + 0.16374; + 0.15844; + 0.15255; + 0.17332; + 0.50436; + 0.51721; + 0.49520; + 0.48713; + 0.83976; + 0.81688; + 0.82231; + 0.82647 +|] + +let sy = [| + 0.125; + 0.375; + 0.625; + 0.875; + 0.125; + 0.375; + 0.625; + 0.875; + 0.125; + 0.375; + 0.625; + 0.875 +|] + + +(* Taken from http://www.columbia.edu/~fdc/pace/ *) + +let peace = [| + (* Mandarin *) + "#<0x00>和平"; + (* Hindi *) + "#<0x20>शांति"; + (* English *) + "#<0x10>Peace"; + (* Hebrew *) + "#<0x10>שלום"; + (* Russian *) + "#<0x10>Мир"; + (* German *) + "#<0x10>Friede"; + (* Korean *) + "#<0x30>평화"; + (* French *) + "#<0x10>Paix"; + (* Spanish *) + "#<0x10>Paz"; + (* Arabic *) + "#<0x10>ﺳﻼم"; + (* Turkish*) + "#<0x10>Barış"; + (* Kurdish *) + "#<0x10>Hasîtî"; +|] + +let () = + ignore (plparseopts Sys.argv [|PL_PARSE_FULL|]); + + plinit (); + + pladv 0; + plvpor 0.0 1.0 0.0 1.0; + plwind 0.0 1.0 0.0 1.0; + plcol0 0; + plbox "" 1.0 0 "" 1.0 0; + + plscmap0n 7; + plscmap0 red green blue; + + plschr 0.0 4.0; + plfont 1; + + for i = 0 to 3 do + plcol0 (i + 1); + plfill px py; + for j = 0 to 3 do + py.(j) <- py.(j) +. 1.0 /. 4.0; + done + done; + + plcol0 0; + for i = 0 to 11 do + plptex sx.(i) sy.(i) 1.0 0.0 0.5 peace.(i); + done; + + + plend (); + () + Property changes on: trunk/examples/ocaml/x24.ml ___________________________________________________________________ Added: svn:eol-style + native Added: trunk/examples/ocaml/x25.ml =================================================================== --- trunk/examples/ocaml/x25.ml (rev 0) +++ trunk/examples/ocaml/x25.ml 2008-08-15 01:37:47 UTC (rev 8661) @@ -0,0 +1,90 @@ +(* $Id$ + Filling and clipping polygons. +*) + +open Plplot + +(*--------------------------------------------------------------------------*\ + * Test program for filling polygons and proper clipping +\*--------------------------------------------------------------------------*) + +let () = + (* Parse and process command line arguments *) + ignore (plparseopts Sys.argv [|PL_PARSE_FULL|]); + + (* Initialize plplot *) + plssub 3 3; + plinit (); + + let xextreme = + [| + [|-120.0; 120.0|]; + [|-120.0; 120.0|]; + [|-120.0; 120.0|]; + [| -80.0; 80.0|]; + [|-220.0; -120.0|]; + [| -20.0; 20.0|]; + [| -20.0; 20.0|]; + [| -80.0; 80.0|]; + [| 20.0; 120.0|]; + |] + in + let yextreme = + [| + [|-120.0; 120.0|]; + [| 20.0; 120.0|]; + [| -20.0; 120.0|]; + [| -20.0; 120.0|]; + [|-120.0; 120.0|]; + [|-120.0; 120.0|]; + [| -20.0; 20.0|]; + [| -80.0; 80.0|]; + [|-120.0; 120.0|]; + |] + in + + for j = 0 to 3 do + let x, y = + match j with + 0 -> + (* Polygon 1: a diamond *) + [|0.0; -100.0; 0.0; 100.0|], + [|-100.0; 0.0; 100.0; 0.0|] + | 1 -> + (* Polygon 1: a diamond - reverse direction *) + [|100.0; 0.0; -100.0; 0.0;|], + [|0.0; 100.0; 0.0; -100.0|] + | 2 -> + (* Polygon 2: a square with punctures *) + [|-100.0; -100.0; 80.0; -100.0; -100.0; + -80.0; 0.0; 80.0; 100.0; 100.0|], + [|-100.0; -80.0; 0.0; 80.0; 100.0; + 100.0; 80.0; 100.0; 100.0; -100.0|] + | 3 -> + (* Polygon 2: a square with punctures - reversed direction *) + [|100.0; 100.0; 80.0; 0.0; -80.0; + -100.0; -100.0; 80.0; -100.0; -100.0|], + [|-100.0; 100.0; 100.0; 80.0; 100.0; + 100.0; 80.0; 0.0; -80.0; -100.0|] + | _ -> raise (Failure "only 4 shapes are available") + in + + for i = 0 to 8 do + pladv 0; + plvsta (); + plwind xextreme.(i).(0) xextreme.(i).(1) yextreme.(i).(0) yextreme.(i).(1); + plcol0 2; + plbox "bc" 1.0 0 "bcnv" 10.0 0; + plcol0 1; + plpsty 0; + plfill x y; + plcol0 2; + pllsty 1; + plline x y; + done + done; + + (* Don't forget to call plend() to finish off! *) + plend (); + () + Property changes on: trunk/examples/ocaml/x25.ml ___________________________________________________________________ Added: svn:eol-style + native Added: trunk/examples/ocaml/x26.ml =================================================================== --- trunk/examples/ocaml/x26.ml (rev 0) +++ trunk/examples/ocaml/x26.ml 2008-08-15 01:37:47 UTC (rev 8661) @@ -0,0 +1,187 @@ +(* -*- coding: utf-8; -*- + + $Id$ + + Multi-lingual version of the first page of example 4. + + Copyright (C) 2006 Alan Irwin + Copyright (C) 2006 Andrew Ross + Copyright (C) 2008 Hezekiah M. Carty + + Thanks to the following for providing translated strings for this example: + Valery Pipin (Russian) + + 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 + +*) + +(* + This example designed just for devices (e.g., psttfc and the + cairo-related devices) that use the pango and fontconfig libraries. The + best choice of glyph is selected by fontconfig and automatically rendered + by pango in way that is sensitive to complex text layout (CTL) language + issues for each unicode character in this example. Of course, you must + have the appropriate TrueType fonts installed to have access to all the + required glyphs. + + Translation instructions: The strings to be translated are given by + x_label, y_label, alty_label, title_label, and line_label below. The + encoding used must be UTF-8. + + The following strings to be translated involve some scientific/mathematical + jargon which is now discussed further to help translators. + + (1) dB is a decibel unit, see http://en.wikipedia.org/wiki/Decibel . + (2) degrees is an angular measure, see + http://en.wikipedia.org/wiki/Degree_(angle) . + (3) low-pass filter is one that transmits (passes) low frequencies. + (4) pole is in the mathematical sense, see + http://en.wikipedia.org/wiki/Pole_(complex_analysis) . "Single Pole" + means a particular mathematical transformation of the filter function has + a single pole, see + http://ccrma.stanford.edu/~jos/filters/Pole_Zero_Analysis_I.html . + Furthermore, a single-pole filter must have an inverse square decline + (or -20 db/decade). Since the filter plotted here does have that + characteristic, it must by definition be a single-pole filter, see also + http://www-k.ext.ti.com/SRVS/Data/ti/KnowledgeBases/analog/document/faqs/1p.htm + (5) decade represents a factor of 10, see + http://en.wikipedia.org/wiki/Decade_(log_scale) . +*) + +open Plplot + +let x_label = [| + "Frequency"; + "Частота"; +|] + +let y_label = [| + "Amplitude (dB)"; + "Амплитуда (dB)"; +|] + +let alty_label = [| + "Phase shift (degrees)"; + "Фазовый сдвиг (градусы)"; +|] + +let title_label = [| + "Single Pole Low-Pass Filter"; + "Однополюсный Низко-Частотный Фильтр"; +|] + +let line_label = [| + "-20 dB/decade"; + "-20 dB/десяток"; +|] + +let pi = atan 1.0 *. 4.0 + +(*--------------------------------------------------------------------------*\ + * plot1 + * + * Log-linear plot. +\*--------------------------------------------------------------------------*) +let plot1 label_type x_label y_label alty_label title_label line_label = + (* + int i; + static PLFLT freql[101], ampl[101], phase[101]; + PLFLT f0, freq; + *) + + pladv 0; + + (* Set up data for log plot *) + let freql = Array.init 101 (fun i -> ~-.2.0 +. float_of_int i /. 20.0) in + let freq = Array.map (fun f -> 10.0**f) freql in + let f0 = 1.0 in + let ampl = + Array.map ( + fun f -> + 20.0 *. log10 (1.0 /. sqrt (1.0 +. (f /. f0)**2.0)) + ) freq + in + let phase = + Array.map ( + fun f -> + ~-.(180.0 /. pi) *. atan (f /. f0) + ) freq + in + + plvpor 0.15 0.85 0.1 0.9; + plwind (-2.0) 3.0 (-80.0) 0.0; + + (* Try different axis and labelling styles. *) + + plcol0 1; + let () = + match label_type with + 0 -> + plbox "bclnst" 0.0 0 "bnstv" 0.0 0; + | 1 -> + plbox "bcfghlnst" 0.0 0 "bcghnstv" 0.0 0; + | _ -> raise (Failure "invalid label_type") + in + + (* Plot ampl vs freq *) + + plcol0 2; + plline freql ampl; + plcol0 1; + plptex 1.6 (-30.0) 1.0 (-20.0) 0.5 line_label; + + (* Put labels on *) + plcol0 1; + plmtex "b" 3.2 0.5 0.5 x_label; + plmtex "t" 2.0 0.5 0.5 title_label; + plcol0 2; + plmtex "l" 5.0 0.5 0.5 y_label; + + (* For the gridless case, put phase vs freq on same plot *) + + if label_type = 0 then ( + plcol0 1; + plwind (-2.0) 3.0 (-100.0) 0.0; + plbox "" 0.0 0 "cmstv" 30.0 3; + plcol0 3; + plline freql phase; + plcol0 3; + plmtex "r" 5.0 0.5 0.5 alty_label; + ) + else + () + +(*--------------------------------------------------------------------------*\ + * Illustration of logarithmic axes, and redefinition of window. +\*--------------------------------------------------------------------------*) +let () = + (* Parse and process command line arguments *) + ignore (plparseopts Sys.argv [|PL_PARSE_FULL|]); + + (* Initialize plplot *) + plinit (); + plfont 2; + + (* Make log plots using two different styles. *) + Array.iteri ( + fun i xl -> + plot1 0 xl y_label.(i) alty_label.(i) title_label.(i) line_label.(i) + ) x_label; + + plend (); + () + Property changes on: trunk/examples/ocaml/x26.ml ___________________________________________________________________ Added: svn:eol-style + native Added: trunk/examples/ocaml/x27.ml =================================================================== --- trunk/examples/ocaml/x27.ml (rev 0) +++ trunk/examples/ocaml/x27.ml 2008-08-15 01:37:47 UTC (rev 8661) @@ -0,0 +1,128 @@ +(* $Id$ + + Drawing "spirograph" curves - epitrochoids, cycolids, roulettes + + Copyright (C) 2007 Arjen Markus + Copyright (C) 2008 Hezekiah M. Carty + + 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 + +*) + +open Plplot + +let cycloid () = () (* TODO *) + +let spiro params = + let npnt = 20000 in + let xcoord = Array.make (npnt + 1) 0.0 in + let ycoord = Array.make (npnt + 1) 0.0 in + + (* Fill the coordinates *) + + let windings = int_of_float params.(3) in + let steps = npnt / windings in + let dphi = 8.0 *. acos (-1.0) /. float_of_int steps in + + (* This initialisation is safe! *) + let xmin = ref 0.0 in + let xmax = ref 0.0 in + let ymin = ref 0.0 in + let ymax = ref 0.0 in + + for i = 0 to windings * steps do + let phi = float_of_int i *. dphi in + let phiw = (params.(0) -. params.(1)) /. params.(1) *. phi in + xcoord.(i) <- (params.(0) -. params.(1)) *. cos phi +. params.(2) *. cos phiw; + ycoord.(i) <- (params.(0) -. params.(1)) *. sin phi -. params.(2) *. sin phiw; + + if !xmin > xcoord.(i) then xmin := xcoord.(i) else (); + if !xmax < xcoord.(i) then xmax := xcoord.(i) else (); + if !ymin > ycoord.(i) then ymin := ycoord.(i) else (); + if !ymax < ycoord.(i) then ymax := ycoord.(i) else (); + done; + + let scale = max (!xmax -. !xmin) (!ymax -. !ymin) in + let xmin = -0.65 *. scale in + let xmax = 0.65 *. scale in + let ymin = -0.65 *. scale in + let ymax = 0.65 *. scale in + + plwind xmin xmax ymin ymax; + + plcol0 1; + let xcoord' = Array.sub xcoord 0 (1 + steps * windings) in + let ycoord' = Array.sub ycoord 0 (1 + steps * windings) in + plline xcoord' ycoord'; + () + +(*--------------------------------------------------------------------------*\ + * Generates two kinds of plots: + * - construction of a cycloid (animated) + * - series of epitrochoids and hypotrochoids +\*--------------------------------------------------------------------------*) +let () = + (* R, r, p, N *) + let params = + [| + [|21.0; 7.0; 7.0; 3.0|]; (* Deltoid *) + [|21.0; 7.0; 10.0; 3.0|]; + [|21.0; -7.0; 10.0; 3.0|]; + [|20.0; 3.0; 7.0; 20.0|]; + [|20.0; 3.0; 10.0; 20.0|]; + [|20.0; -3.0; 10.0; 20.0|]; + [|20.0; 13.0; 7.0; 20.0|]; + [|20.0; 13.0; 20.0; 20.0|]; + [|20.0;-13.0; 20.0; 20.0|]; + |] + in + + (* plplot initialization *) + (* Parse and process command line arguments *) + ignore (plparseopts Sys.argv [|PL_PARSE_FULL|]); + + (* Initialize plplot *) + plinit (); + + (* Illustrate the construction of a cycloid *) + cycloid (); + + (* Loop over the various curves + First an overview, then all curves one by one *) + (* Three by three window *) + plssub 3 3; + + for i = 0 to 8 do + pladv 0; + plvpor 0.0 1.0 0.0 1.0; + spiro params.(i); + done; + + pladv 0; + (* One window per curve *) + plssub 1 1; + + for i = 0 to 8 do + pladv 0; + plvpor 0.0 1.0 0.0 1.0; + spiro params.(i); + done; + + (* Don't forget to call plend() to finish off! *) + plend (); + () + Property changes on: trunk/examples/ocaml/x27.ml ___________________________________________________________________ Added: svn:eol-style + native Added: trunk/examples/ocaml/x30.ml =================================================================== --- trunk/examples/ocaml/x30.ml (rev 0) +++ trunk/examples/ocaml/x30.ml 2008-08-15 01:37:47 UTC (rev 8661) @@ -0,0 +1,144 @@ +(* + Alpha color values demonstration. + + Copyright (C) 2008 Hazen Babcock + Copyright (C) 2008 Hezekiah M. Carty + + + 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 + + This example will only really be interesting when used with devices that + support or alpha (or transparency) values, such as the cairo device family. +*) + +open Plplot + +let red = [|0; 255; 0; 0|] +let green = [|0; 0; 255; 0|] +let blue = [|0; 0; 0; 255|] +let alpha = [|1.0; 1.0; 1.0; 1.0|] + +let px = [|0.1; 0.5; 0.5; 0.1|] +let py = [|0.1; 0.1; 0.5; 0.5|] + +let pos = [|0.0; 1.0|] +let rcoord = [|1.0; 1.0|] +let gcoord = [|0.0; 0.0|] +let bcoord = [|0.0; 0.0|] +let acoord = [|0.0; 1.0|] +let rev = [|0; 0|] + +let () = + ignore (plparseopts Sys.argv [|PL_PARSE_FULL|]); + + plinit (); + plscmap0n 4; + plscmap0a red green blue alpha; + + (* Page 1: + + This is a series of red, green and blue rectangles overlaid + on each other with gradually increasing transparency. *) + + (* Set up the window *) + pladv 0; + plvpor 0.0 1.0 0.0 1.0; + plwind 0.0 1.0 0.0 1.0; + plcol0 0; + plbox "" 1.0 0 "" 1.0 0; + + (* Draw the boxes *) + for i = 0 to 8 do + let icol = i mod 3 + 1 in + + (* Get a color, change its transparency and + set it as the current color. *) + let r, g, b, a = plgcol0a icol in + plscol0a icol r g b (1.0 -. float_of_int i /. 9.0); + plcol0 icol; + + (* Draw the rectangle *) + let translate a = + Array.map (fun x -> x +. 0.5 /. 9.0 *. float_of_int i) a + in + plfill (translate px) (translate py); + + done; + + (* Page 2: + + This is a bunch of boxes colored red, green or blue with a single + large (red) box of linearly varying transparency overlaid. The + overlaid box is completely transparent at the bottom and completely + opaque at the top. *) + + (* Set up the window *) + pladv 0; + plvpor 0.1 0.9 0.1 0.9; + plwind 0.0 1.0 0.0 1.0; + + (* Draw the boxes. There are 25 of them drawn on a 5 x 5 grid. *) + for i = 0 to 4 do + (* Set box X position *) + let px0 = 0.05 +. 0.2 *. float_of_int i in + let px1 = px0 +. 0.1 in + let px = [|px0; px1; px1; px0|] in + + (* We don't want the boxes to be transparent, so since we changed + the colors transparencies in the first example we have to change + the transparencies back to completely opaque. *) + let icol = i mod 3 + 1 in + let r, g, b, a = plgcol0a icol in + plscol0a icol r g b 1.0; + plcol0 icol; + for j = 0 to 4 do + (* Set box y position and draw the box. *) + let py0 = 0.05 +. 0.2 *. float_of_int j in + let py2 = py0 +. 0.1 in + let py = [|py0; py0; py2; py2|] in + plfill px py; + done + done; + + (* The overlaid box is drawn using plshades with a color map that is + the same color but has a linearly varying transparency. *) + + (* Create the color map with 128 colors and use plscmap1la to initialize + the color values with a linear varying transparency (or alpha) *) + plscmap1n 128; + plscmap1la 1 pos rcoord gcoord bcoord acoord rev; + + (* Create a 2 x 2 array that contains the z values (0.0 to 1.0) that will + used for the shade plot. plshades will use linear interpolation to + calculate the z values of all the intermediate points in this array. *) + let z = + [| + [|0.0; 1.0|]; + [|0.0; 1.0|]; + |] + in + + (* Set the color levels array. These levels are also between 0.0 and 1.0 *) + let clevel = Array.init 101 (fun i -> 0.01 *. float_of_int i) in + + (* Draw the shade plot with zmin = 0.0, zmax = 1.0 and x and y coordinate ranges + such that it fills the entire plotting area. *) + plshades z 0.0 1.0 0.0 1.0 clevel 0 (-1) 2 1; + + plend (); + () + Property changes on: trunk/examples/ocaml/x30.ml ___________________________________________________________________ Added: svn:eol-style + native Modified: trunk/plplot_test/test_ocaml.sh.in =================================================================== --- trunk/plplot_test/test_ocaml.sh.in 2008-08-15 00:30:29 UTC (rev 8660) +++ trunk/plplot_test/test_ocaml.sh.in 2008-08-15 01:37:47 UTC (rev 8661) @@ -23,7 +23,7 @@ # $options, and possibly $verbose_test defined. # Do the standard non-interactive examples. -for index in 01 02 03 04 05 06 07 08 10 11 12 13 19; do +for index in 01 02 03 04 05 06 07 08 10 11 12 13 19 24 25 26 27 30; do if [ "$verbose_test" ]; then echo "x${index}ocaml" fi This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |