summaryrefslogtreecommitdiff
path: root/Master/texmf-dist
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-12-04 01:54:15 +0000
committerKarl Berry <karl@freefriends.org>2008-12-04 01:54:15 +0000
commit63a8575f80c1b973beff974090dcd2570fd8e325 (patch)
tree819a9002f6f77bf18409adb92f6133eccdd40fd6 /Master/texmf-dist
parent45fc4db67b07e91238eba1f833fa950e333ca22a (diff)
new context package context-gnuplot (3dec08)
git-svn-id: svn://tug.org/texlive/trunk@11513 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
-rwxr-xr-xMaster/texmf-dist/metapost/context/third/gnuplot/mp-gnuplot.mp904
-rwxr-xr-xMaster/texmf-dist/tex/context/third/gnuplot/t-gnuplot.tex925
2 files changed, 1829 insertions, 0 deletions
diff --git a/Master/texmf-dist/metapost/context/third/gnuplot/mp-gnuplot.mp b/Master/texmf-dist/metapost/context/third/gnuplot/mp-gnuplot.mp
new file mode 100755
index 00000000000..4b8e1c49256
--- /dev/null
+++ b/Master/texmf-dist/metapost/context/third/gnuplot/mp-gnuplot.mp
@@ -0,0 +1,904 @@
+
+if known context_gnuplot : endinput; fi;
+
+boolean context_gnuplot ; context_gnuplot := true;
+
+ string gnuplotversion;
+
+ def gp_setup_before =
+ enddef;
+
+ def gp_setup_after =
+ enddef;
+
+ newinternal gp_align_center, gp_align_left, gp_align_right;
+ gp_align_center := 0;
+ gp_align_left := 1;
+ gp_align_right := 2;
+
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ %%
+ %% Colors & Dashes
+ %%
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+ boolean gp_use_color; gp_use_color := true;
+ boolean gp_use_dashed; gp_use_dashed := true;
+
+ % default background color (should we set it somewhere?)
+ color gp_color_background; gp_color_background := white;
+ % default foreground color (also set in t-gnuplot.tex)
+ color gp_color_foreground; gp_color_foreground := black;
+ % current color
+ color gp_color_current; gp_color_current := gp_color_foreground;
+
+ % colors corresponding to linetypes
+ %
+ % LT_AXIS (-1)
+ % LT_BLACK (-2)
+ % LT_NODRAW (-3)
+ % LT_BACKGROUND (-4)
+ % LT_UNDEFINED (-5)
+
+ color gp_color_lt[];
+ numeric gp_num_linetype; gp_num_linetype := 9;
+ gp_color_lt[-4] = gp_color_background;
+ gp_color_lt[-3] = gp_color_background; % TODO: nodraw!!!
+ gp_color_lt[-2] = gp_color_foreground;
+ % TODO: do we need this to be configurable?
+ gp_color_lt[-1] = gp_color_foreground; % coordinate axes
+ gp_color_lt[0] = red;
+ gp_color_lt[1] = green;
+ gp_color_lt[2] = blue;
+ gp_color_lt[3] = magenta;
+ gp_color_lt[4] = cyan;
+ gp_color_lt[5] = yellow;
+ gp_color_lt[6] = black;
+ gp_color_lt[7] = (1,.3,0); % orange; perhaps it's defined already
+ gp_color_lt[8] = .5white;
+
+ % dashes corresponding to linetypes - copied from PostScript terminal
+ % perhaps check the other terminals as well!!!
+
+ % scaling factor for dash lengths
+ gp_scale_dashlength := 1;
+ % TODO: set some sensible default scaling factor (compare with PostScript)
+ gp_dashlength := 1;
+
+ % TODO: watch out linecaps and linejoins !!! (possibly rewrite)
+ % TODO: compare with PostScript lines and possibly fix,
+ % so that they will match
+ %
+ % TODO: write a macro to make these definitions slightly nicer
+ %
+ % linecap := butt; ???
+ picture gp_dash_lt[];
+ gp_dash_lt[-3] := dashpattern(off 1) scaled (gp_scale_dashlength*gp_dashlength); % TODO: test!!!
+ gp_dash_lt[-2] := dashpattern(on 1) scaled (gp_scale_dashlength*gp_dashlength);
+ % for axes
+ gp_dash_lt[-1] := dashpattern(on 2 off 1) scaled (gp_scale_dashlength*gp_dashlength);
+ gp_dash_lt[0] := dashpattern(on 1) scaled (gp_scale_dashlength*gp_dashlength);
+ gp_dash_lt[1] := dashpattern(on 4 off 2) scaled (gp_scale_dashlength*gp_dashlength);
+ gp_dash_lt[2] := dashpattern(on 2 off 3) scaled (gp_scale_dashlength*gp_dashlength);
+ gp_dash_lt[3] := dashpattern(on 1 off 1.5) scaled (gp_scale_dashlength*gp_dashlength);
+ gp_dash_lt[4] := dashpattern(on 6 off 2 on 1 off 2) scaled (gp_scale_dashlength*gp_dashlength);
+ gp_dash_lt[5] := dashpattern(on 3 off 3 on 1 off 3) scaled (gp_scale_dashlength*gp_dashlength);
+ gp_dash_lt[6] := dashpattern(on 2 off 2 on 2 off 6) scaled (gp_scale_dashlength*gp_dashlength);
+ gp_dash_lt[7] := dashpattern(on 1 off 2 on 6 off 2 on 1 off 2) scaled (gp_scale_dashlength*gp_dashlength);
+ gp_dash_lt[8] := dashpattern(on 2 off 2 on 2 off 2 on 2 off 2 on 2 off 4) scaled (gp_scale_dashlength*gp_dashlength);
+
+ % returns the color for the given linetype modulo gp_num_linetype
+ vardef gp_color_linetype(expr linetype) =
+ (if linetype < -3:
+ gp_color_lt[-3]
+% else:
+ elseif linetype >= gp_num_linetype:
+ gp_color_lt[(linetype mod gp_num_linetype)]
+% gp_color_lt[1]
+ else:
+ gp_color_lt[linetype]
+ fi)
+ % TODO: chech if the number is defined
+ % TODO: check if gp_use_color
+% if linetype = -2 :
+% gp_color_lt[-2]
+% elseif linetype = -1 :
+% gp_color_lt[-1]
+% elseif linetype = -1 :
+% gp_color_lt[-3]
+% else :
+% % TODO: check if the number is defined
+% % check, if the number is positive
+% gp_color_lt[ (linetype mod gp_num_linetype) ]
+% fi;
+ enddef;
+
+ def gp_dash_linetype(expr linetype) =
+ (if linetype < -3:
+ gp_dash_lt[-3]
+ elseif linetype >= gp_num_linetype:
+ gp_dash_lt[(linetype mod gp_num_linetype)]
+ else:
+ gp_dash_lt[linetype]
+ fi)
+ % TODO: chech if the number is defined
+ % TODO: check if gp_use_color
+% if linetype = -2 :
+% gp_color_lt[-2]
+% elseif linetype = -1 :
+% gp_color_lt[-1]
+% elseif linetype = -1 :
+% gp_color_lt[-3]
+% else :
+% % TODO: check if the number is defined
+% % check, if the number is positive
+% gp_color_lt[ (linetype mod gp_num_linetype) ]
+% fi;
+ enddef;
+
+ % gp_set_color(lt(3))
+ % gp_set_color(rgb(.5,.5.0))
+ % gp_set_color(frac(.3))
+ def gp_set_color(text t) =
+ begingroup;
+ % sets the color to the given (r,g,b) triple
+ def rgb(expr r,g,b) =
+ gp_color_current := (r,g,b);
+ enddef;
+
+ % sets the color so that it matches the color of linetype
+ def lt(expr linetype) =
+ gp_color_current := gp_color_linetype(linetype);
+ enddef;
+
+ % sets the color either to gray or according to the current palette
+ def frac(expr fraction) =
+ % "if palette = gray"
+ if gp_palette_color_mode = gp_palette_color_mode_rgb:
+ gp_color_current := (
+ gp_palette_function(gp_palette_formula_r,fraction),
+ gp_palette_function(gp_palette_formula_g,fraction),
+ gp_palette_function(gp_palette_formula_b,fraction));
+ else:
+ % TODO - more advanced paletter
+ gp_color_current := fraction*white; % XXX: should this be (1-frac)*white perhaps?
+ fi;
+ enddef;
+
+ % execute the content - calls one of the definitions from above
+ t;
+ endgroup;
+ enddef;
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ %%
+ %% Palette
+ %%
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+ % for "colorMode==SMPAL_COLOR_MODE_GRADIENT"
+ % These variables are used to define interpolated color palettes:
+ % there are gradient_num pairs of (frac/gray, color) mappings
+% numeric gp_palette.gradient_num;
+% numeric gp_palette.gradient[].frac;
+% color gp_palette.gradient[].abc;
+ %
+ % see palette_color_mode in color.h
+ newinternal
+ gp_palette_color_mode_none,
+ gp_palette_color_mode_gray,
+ gp_palette_color_mode_rgb,
+ gp_palette_color_mode_functions,
+ gp_palette_color_mode_gradient;
+
+ gp_palette_color_mode_none := 0;
+ gp_palette_color_mode_gray := 1; % grayscale only
+ gp_palette_color_mode_rgb := 2; % one of several fixed transformations
+ gp_palette_color_mode_functions := 3; % user-defined transforms
+ gp_palette_color_mode_gradient := 4; % interpolated table: explicitely defined or read from file
+
+ % there is no palette initialized by default
+ numeric gp_palette_color_mode;
+ gp_palette_color_mode := gp_palette_color_mode_none;
+
+ % mapping formulae for gp_palette_color_mode_rgb
+ numeric gp_palette_formula_r; gp_palette_formula_r := 3; % f(x)=x
+ numeric gp_palette_formula_g; gp_palette_formula_g := 3;
+ numeric gp_palette_formula_b; gp_palette_formula_b := 3;
+
+ % explicitely defined color gradient
+ color gp_palette_gradient_colors[];
+ numeric gp_palette_gradient_pos[];
+ % number of defined colors
+ numeric gp_palette_gradient_n;
+
+ % gamma for gray scale palettes only
+ numeric gp_palette_gamma;
+
+% % color model: RGB/HSV/CMY; YIQ, XYZ and others not supported
+% newinternal gp_palette.model.rgb, gp_palette.model.hsv, gp_palette.model.cmy;%, gp_palette.model.yiq, gp_palette.model.xyz;
+% gp_palette.rgb := 0;
+% gp_palette.hsv := 1;
+% gp_palette.cmy := 2;
+ %gp_palette.yiq := 3;
+ %gp_palette.xyz := 4;
+
+ % color model - RGB/HSV/CMY (ie. one of the models above)
+% numeric gp_palette.model;
+
+ % for "colorMode == SMPAL_COLOR_MODE_FUNCTIONS"
+ % R, G abd B for RGB
+ % H, S and V for HSV
+ % C, M and Y for CMY
+% color gp_palette.abc;
+
+ % gamma (only used for gray scale palettes)
+% numeric gp_palette.gamma; gp_palette.gamma = 1;
+
+ def gp_make_palette(text t) =
+ begingroup;
+ % let hack: save comma
+% let@=,;
+
+ def color_mode(text mode) =
+ % let hack
+% let,=@; let@=,;
+ save gray, rgb, functions, gradient;
+ gray = gp_palette_color_mode_gray;
+ rgb = gp_palette_color_mode_rgb;
+ functions = gp_palette_color_mode_functions;
+ gradient = gp_palette_color_mode_gradient;
+
+ gp_palette_color_mode := mode;
+
+ % if mode=gray:
+ % % TODO
+ % elseif mode=rgb:
+ % % TODO
+ % elseif mode=functions:
+ % % TODO
+ % elseif mode=gradient:
+ % % TODO
+ % fi;
+
+ % let hack: ignore next comma
+% let,=;;
+ enddef;
+
+ % for gp_palette_color_mode_rgb: numbers of formulae
+ def formulae(expr r, g, b) =
+ % let hack
+% let,=@; let@=,;
+ gp_palette_color_mode := gp_palette_color_mode_rgb;
+ gp_palette_formula_r := r;
+ gp_palette_formula_g := g;
+ gp_palette_formula_b := b;
+ % let hack: ignore next comma
+% let,=;;
+ enddef;
+
+ % TODO: for gradient definitions
+ def colors(text tc) =
+ gp_palette_gradient_n := 0;
+ for i=tc:
+ gp_palette_gradient_colors[gp_palette_gradient_n] := i;
+ counter := counter+1;
+ endfor;
+ % let hack
+% let,=@; let@=,;
+ % code goes here
+ % [TODO]
+ %
+ % let hack: ignore the following comma
+% let,=;;
+ enddef;
+
+ % TODO: for gradient definitions
+ def positions(text tp) =
+ gp_palette_gradient_n := 0;
+ for i=tp:
+ gp_palette_gradient_pos[gp_palette_gradient_n] := i;
+ counter := counter+1;
+ endfor;
+ % let hack
+% let,=@; let@=,;
+ % code goes here
+ % [TODO]
+ %
+ % let hack: ignore the following comma
+% let,=;;
+ enddef;
+
+ t;
+ % let hack: restore comma
+% let,=@;
+ endgroup;
+ enddef;
+
+ % Functions copied from GetColorValueFromFormula from getcolor.c
+ vardef gp_palette_function(expr ff, tt) =
+ save f, t;
+ f = ff;
+ t = tt;
+ % the input gray is supposed to be in interval [0,1]
+ % for a negative formula, reverse the palette (negate x)
+ if f < 0:
+ t := -t;
+ f := -f;
+ fi;
+
+ t :=
+ if f = 0: 0
+ elseif f = 1: 0.5
+ elseif f = 2: 1
+ elseif f = 3: t
+ elseif f = 4: t*t
+ elseif f = 5: t*t*t
+ elseif f = 6: t*t*t*t
+ elseif f = 7: sqrt(t)
+ elseif f = 8: sqrt(sqrt(t))
+ elseif f = 9: sind(90t)
+ elseif f = 10: cosd(90t)
+ elseif f = 11: abs(t-0.5)
+ elseif f = 12: (2t-1)*(2t-1)
+ elseif f = 13: sind(180t)
+ elseif f = 14: abs(cosd(180t))
+ elseif f = 15: sind(360t)
+ elseif f = 16: cosd(360t)
+ elseif f = 17: abs(sind(360t))
+ elseif f = 18: abs(cosd(360t))
+ elseif f = 19: abs(sind(720t))
+ elseif f = 20: abs(cosd(720t))
+ elseif f = 21: 3t
+ elseif f = 22: 3t-1
+ elseif f = 23: 3t-2
+ elseif f = 24: abs(3t-1)
+ elseif f = 25: abs(3t-2)
+ elseif f = 26: 1.5t-0.5
+ elseif f = 27: 1.5t-1.0
+ elseif f = 28: abs(1.5t-0.5)
+ elseif f = 29: abs(1.5t-1.0)
+ elseif f = 30: if t <= 0.25: 0
+ elseif t <= 0.57: t/0.32-0.78125
+ else : 1
+ fi
+ elseif f = 31: if t <= 0.42: 0
+ elseif t <= 0.92: 2t-0.84
+ else : 1
+ fi
+ elseif f = 32: if t <= 0.42: 4t
+ elseif t <= 0.92: -2t+1.84
+ else : t/0.08-11.5
+ fi
+ elseif f = 33: abs(2t-0.5)
+ elseif f = 34: 2t
+ elseif f = 35: 2t-0.5
+ elseif f = 36: 2t-1.0
+ else : t % ERROR
+ fi;
+
+ if t < 0: 0
+ elseif t < 1: t
+ else : 1
+ fi
+
+ % TODO: add a note to getcolor.c
+ enddef;
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ %%
+ %% Scaling factors
+ %%
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+ % scaling factor for points
+ gp_scale_pointsize := 1;
+ % scaling factor for line widths (for the whole plot)
+ gp_scale_linewidth := 1;
+ % current linewidth
+ gp_linewidth := 1;
+ % base linewidth: 0.4bp
+ gp_internal_linewidth := 0.4;
+
+ numeric gp_linetype; gp_linetype := -3;
+
+ % set the scaling factor for point sizes
+ def gp_set_pointsize(expr pointsize) =
+ gp_scale_pointsize := pointsize;
+ enddef;
+ % set the scaling factor for line widths
+ def gp_set_linewidth(expr linewidth) =
+ gp_linewidth := linewidth*gp_scale_linewidth*gp_internal_linewidth;
+ enddef;
+ % set the linetype:
+ % -3: solid with XOR, probably don't need that
+ % -2: border, perhaps always with linejoin mitered
+ % -1: axis
+ % 0 or more : the rest
+ def gp_set_linetype(expr linetype) =
+ gp_linetype := linetype;
+ gp_color_current := gp_color_linetype(linetype);
+ enddef;
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ %%
+ %% FONTS & strings
+ %%
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+ % support for textext("...") has been dropped for two reasons:
+ % - I don't intend to support it any more
+ % - Extremely inefficient anyway (almost useless for gnuplot-generated graphics)
+
+ % scalig factor for text labels (relative to the document font)
+ % if you set the font to 10pt and use scaling factor 0.7,
+ % you'll get 7pt, not 10pt (but using the scaled 10pt design size ;)
+ numeric gp_scale_text; gp_scale_text := 1;
+
+ % Returns the (image of) text: vertically centered and horizontally aligned
+ % according to the parameter align, which can be one of:
+ % - gp_align_center
+ % - gp_align_left
+ % - gp_align_right
+ %
+ % The code used to support string as input parameter (for textext("...")),
+ % but this only complicated the thing and is of no real use any more.
+ vardef gp_the_text(expr align, pict) =
+ save shift_x, shift_y;
+
+ shift_y = -ypart center pict;
+ shift_x = -xpart
+ % horizontal alignment
+ if align = gp_align_center : center
+ elseif align = gp_align_left : llcorner
+ elseif align = gp_align_right : lrcorner fi
+ pict;
+
+ (pict shifted (shift_x, shift_y))
+ enddef;
+
+ % % obsolete code to be removed
+ %
+ % % horizontal alignment
+ % if align = gp_align_center :
+ % pict := pict shifted (xpart(.5[llcorner pict,lrcorner pict]),0);
+ % elseif align = gp_align_left :
+ % pict := pict shifted (- xpart(llcorner pict),0);
+ % elseif align = gp_align_right :
+ % pict := pict shifted (- xpart(lrcorner pict),0);
+ % fi;
+ % % Hans wanted to persuade me to make the code shorter
+ % % (zero is replicated three times), but I prefer clarity against sparing
+ % % two bytes
+ %
+ % pict
+
+
+ % Places text on position "pos":
+ % - vertically centered
+ % - horizontal alignment is determined from optional arguments - centered by default
+ % - angle of rotation from optional parameters
+ % - magnification is determined from "gp_scale_text"
+ %
+ % syntax:
+ % gp_put_text((1cm,2cm),\sometxt[gp]{without optional parameters})
+ % gp_put_text(origin, align_left, angle(15), \sometxt[gp]{with an arbitrary number of optional parameters})
+ %
+ % The default alignment is centered, the default angle of rotation is zero.
+ % \sometxt{} or (theoretically) any picture argument should come last
+ def gp_put_text(expr pos)(text t) =
+ save arg_angle; arg_angle=0;
+ save arg_align; arg_align=gp_align_center;
+
+ save pict; picture pict;
+
+ begingroup;
+
+ save left, right, center;
+ left = gp_align_left;
+ right = gp_align_right;
+ center = gp_align_center;
+
+ % dirty trick: let makes the comma behave as semicolon,
+ % allowing comma-separated functions in "text t"
+ let@=,;
+
+ def angle(expr a) =
+ let,=@; let@=,;
+ arg_angle := a;
+ let,=;;
+ enddef;
+
+ % def align_left =
+ % let,=@; let@=,;
+ % arg_align := gp_align_left;
+ % let,=;;
+ % enddef;
+ % def align_right =
+ % let,=@; let@=,;
+ % arg_align := gp_align_right;
+ % let,=;;
+ % enddef;
+ % def align_center =
+ % let,=@; let@=,;
+ % arg_align := gp_align_center;
+ % let,=;;
+ % enddef;
+
+ def align(expr a) =
+ let,=@; let@=,;
+ arg_align := a;
+ let,=;;
+ enddef;
+
+ % converts the whole argument into a picture
+ %
+ % The problem is that \sometxt[gp]{text} is the very last command and cannot be captured as an image otherwise
+ % if you know a cleaner solution, please let me know
+ vardef dummy(text tt) =
+ tt
+ enddef;
+ pict := dummy(t);
+
+ let,=@;
+ endgroup;
+
+ draw (gp_the_text(arg_align, pict) scaled gp_scale_text rotated arg_angle shifted pos) withcolor gp_color_current;
+ enddef;
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ %%
+ %% drawing and filling
+ %%
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ %
+ % low-level interface may change !!!
+ picture gp_pattern_image[], gp_pattern_current, gp_pattern_type[];
+ numeric gp_num_patterns; gp_num_patterns := 11;
+ % TODO: redraw the patterns if necessary (if linewidth changes for example)
+ numeric gp_pattern_linewidth; gp_pattern_linewidth := .5gp_scale_linewidth*gp_internal_linewidth;
+
+ numeric gp_pattern_name_empty; gp_pattern_name_empty := 0;
+ numeric gp_pattern_name_full ; gp_pattern_name_full := 3;
+
+ % default patterns (PostScript-like)
+ %
+ % 0: empty
+ gp_pattern_image[0] := image(
+ setbounds currentpicture to unitsquare;
+ );
+ % 3: full
+ gp_pattern_image[3] := image(
+ % fill unitsquare enlarged .1;
+ % setbounds currentpicture to unitsquare;
+ fill fullsquare xyscaled (5cm,5cm);
+% fill fullsquare xyscaled (2.5w,2.5h);
+ );
+ % 4: \
+ gp_pattern_image[4] := image( % TODO!!!
+ draw ((1,-1)--(-1,1)) scaled 2mm withpen pencircle scaled gp_pattern_linewidth;
+ setbounds currentpicture to unitsquare scaled 2mm;
+ );
+ % 5: /
+ gp_pattern_image[5] := image( % TODO!!!
+ draw ((-1,-1)--(1,1)) scaled 2mm withpen pencircle scaled gp_pattern_linewidth;
+ setbounds currentpicture to unitsquare scaled 2mm;
+ );
+ % 6: \
+ gp_pattern_image[6] := image( % TODO!!!
+ draw ((1,-2)--(-1,2)) scaled 2mm withpen pencircle scaled gp_pattern_linewidth;
+ setbounds currentpicture to unitsquare scaled 2mm;
+ );
+ % 7: /
+ gp_pattern_image[7] := image( % TODO!!!
+ draw ((-1,-2)--(1,2)) scaled 2mm withpen pencircle scaled gp_pattern_linewidth;
+ setbounds currentpicture to unitsquare scaled 2mm;
+ );
+ % 1: 4+5
+ gp_pattern_image[1] := image(
+ draw gp_pattern_image[4];
+ draw gp_pattern_image[5];
+ );
+ % 2: 4+5, bolj tesno skupaj
+ gp_pattern_image[2] := image(
+ draw gp_pattern_image[1];
+ draw gp_pattern_image[1] shifted (.5bbwidth(gp_pattern_image[1]),0);
+ );
+
+ % argument: 2 times radius
+ vardef gp_pattern_image_circles(expr d) = image (
+ draw fullcircle scaled d withpen pencircle scaled gp_pattern_linewidth;
+ setbounds currentpicture to fullsquare scaled d;
+ ) enddef;
+
+ vardef gp_pattern_image_roof(expr d) = image (
+ save p; path p; p = fullcircle cutbefore (point 4 of fullcircle);
+ draw p scaled d withpen pencircle scaled gp_pattern_linewidth;
+ draw p shifted (.5,.5) scaled d withpen pencircle scaled gp_pattern_linewidth;
+ setbounds currentpicture to unitsquare shifted (0,-.5) scaled d;
+ ) enddef;
+
+ vardef gp_pattern_image_brick(expr width, height) = image (
+% save p; path p; p = unitsquare shifted (-.25,-.5) scaled;
+ draw unitsquare shifted (-.25,-.5) xyscaled (width,height) withpen pencircle scaled gp_pattern_linewidth;
+ draw unitsquare shifted ( .25, .5) xyscaled (width,height) withpen pencircle scaled gp_pattern_linewidth;
+ setbounds currentpicture to unitsquare yscaled 2 shifted (-.25,-.5) xyscaled (width,height);
+ ) enddef;
+
+ for i=0 upto 7:
+ gp_pattern_type[i] := gp_pattern_image[i];
+ endfor;
+
+ gp_pattern_type[8] := gp_pattern_image_circles(2mm);
+ gp_pattern_type[9] := gp_pattern_image_roof(1.5mm);
+ gp_pattern_type[10] := gp_pattern_image_brick(2mm,1mm);
+
+ % TODO: filling with a pattern: not implemented yet (implement approximately 8 patterns)
+ def gp_fill_pattern(expr p, pattern) =
+ save arg_pattern; arg_pattern = pattern mod gp_num_patterns;
+
+ if pattern = gp_pattern_name_full:
+ % fill the area
+ fill p withcolor gp_color_current;
+ elseif pattern = gp_pattern_name_empty :
+ % nothing to do
+ else:
+ gp_pattern_current := gp_pattern_type[arg_pattern];
+ % TODO: check if it exists!
+
+ save maxi; maxi = max(10,bbwidth (p)/bbwidth (gp_pattern_current)+1);
+ save maxj; maxj = max(10,bbheight(p)/bbheight(gp_pattern_current)+1);
+ draw image (
+ for i=-1 upto maxi:
+ for j=0 upto maxj:
+ draw gp_pattern_current shifted (i*bbwidth(gp_pattern_current),j*bbheight(gp_pattern_current)) shifted llcorner p withcolor gp_color_current;
+ endfor;
+ endfor;
+ clip currentpicture to p;
+ );
+ fi;
+ enddef;
+
+ % fill a closed path with current color with density "density"
+ % (0: background color, 1: current color)
+ %
+ % TODO (once in the future): fill with smooth shading & pattern fill
+ %
+ % p - path to be filled
+ % density - density of the color (between 0 and 1)
+ def gp_fill_density(expr p, density) =
+ fill (p) withcolor density[gp_color_background,gp_color_current];
+ enddef;
+ def gp_fill_transparent(expr p, density) =
+ fill (p) withcolor transparent(1,density,gp_color_current);
+ enddef;
+ % filling (default: with density 1)
+ % optional parameters:
+ % transparent | (present or not, may be combined with both pattern and the solid fill)
+ % density(float between [0,1])
+ % pattern(number of pattern)
+ %
+ % If pattern is called at least once, [transparent] pattern will be drawn,
+ % otherwise just a [transparent] solid area.
+ def gp_fill(text t) =
+ % mandatory parameter: path to be stroked
+ save arg_path; path arg_path;
+ save arg_pattern;
+ % default density is 100 %
+ save arg_density; arg_density := 1;
+ % for transparent density fills or transparent patterns
+ % (but transparent patterns are not implemented yet)
+ save arg_is_transparent; boolean arg_is_transparent; arg_is_transparent := false;
+
+ % since we redefine "transparent", we need to restore the original macro again
+ % before calling gp_fill_transparent, which uses that one
+ begingroup;
+ save transparent, density, pattern;
+
+ let@=,;
+
+ % this function can be called for transparent (solid) fills or patterns
+ def transparent =
+ let,=@; let@=,;
+ arg_is_transparent := true;
+ let,=;;
+ enddef;
+
+ def density(expr dens) =
+ let,=@; let@=,;
+ arg_density := dens;
+ let,=;;
+ enddef;
+
+ def pattern(expr pat) =
+ let,=@; let@=,;
+ arg_pattern := pat;
+ let,=;;
+ enddef;
+
+ % execute the content ("read function arguments")
+ let,=;;
+ % this will read the first mandatory argument (path) into arg_p and execute any subsequent functions
+ arg_path := t;
+ let,=@;
+ endgroup;
+
+ % pattern fill
+ if known arg_pattern:
+ gp_fill_pattern(p, arg_pattern);
+ % transparent solid fill
+ elseif arg_is_transparent:
+ gp_fill_transparent(p, arg_density);
+ % non-transparent solid fill
+ else:
+ gp_fill_density(p,arg_density);
+ fi;
+ enddef;
+
+ def gp_draw(expr p) =
+ draw (p) withcolor gp_color_current withpen pencircle scaled gp_linewidth
+ % axes should be drawn with only one half of the default linewidth
+ % TODO: do we need this to be configurable?
+ if gp_linetype = -1: scaled .5 fi
+ if gp_use_dashed: dashed gp_dash_linetype(gp_linetype)
+ % TODO: make this definition nicer (combine with the definition above)
+ elseif gp_linetype = -1: dashed gp_dash_linetype(gp_linetype) fi;
+ enddef;
+
+ def gp_dot(expr x,y) =
+ drawdot shifted (x,y) withcolor gp_color_current withpen pencircle scaled gp_linewidth;
+ enddef;
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ %%
+ %% Poins & Symbols
+ %%
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+ % should we draw the points using metapost or typeset them using TeX?
+ newinternal gp_points_with_metapost, gp_points_with_tex;
+ gp_points_with_metapost := 0;
+ gp_points_with_tex := 1;
+
+ numeric gp_points_with;
+ % default is to draw the points with metapost rather than typeset them
+ % with TeX
+ gp_points_with := gp_points_with_metapost;
+
+ % the number of point types
+ numeric gp_num_points_with_tex, gp_num_points_with_metapost;
+
+ % returns a path representing a closed n-polygon, starting at upper corner (12 o'clock)
+ vardef fullpolygon(expr n) =
+ (for i=1 upto n: (up rotated ((i-1)*360/n)) -- endfor cycle)
+ enddef;
+
+ %-------------------------%
+ % point shape definitions %
+ %-------------------------%
+ path gp_point_shape[];
+
+ % 0 - plus
+ gp_point_shape[0] := (0,0)--(-1,0)--(1,0)--(0,0)--(0,1)--(0,-1)--cycle;
+ % 1 - X
+ gp_point_shape[1] := (0,0)--(-1,-1)--(1,1)--(0,0)--(-1,1)--(1,-1)--cycle;
+ % 2 - star (+ & x)
+ gp_point_shape[2] :=
+ (0,0)--(-1, 0)--(1, 0)--
+ (0,0)--(-1,-1)--(1, 1)--
+ (0,0)--(-1, 1)--(1,-1)--
+ (0,0)--( 0,-1)--(0, 1)--cycle;
+ % 3, 4 - box
+ gp_point_shape[3] := (-1,-1)--(1,-1)--(1,1)--(-1,1)--cycle;
+ gp_point_shape[4] := gp_point_shape[3];
+ % 5, 6 - circle
+ gp_point_shape[5] := fullcircle scaled 1.5;
+ gp_point_shape[6] := gp_point_shape[5];
+ % 7, 8 - triangle
+ % scaled is such a way that it's exactly 2 units wide
+ gp_point_shape[7] := fullpolygon(3) scaled (1/cosd(30));
+ gp_point_shape[8] := gp_point_shape[7];
+ % 9, 10 - upside down triangle
+ gp_point_shape[9] := gp_point_shape[8] scaled -1;
+ gp_point_shape[10] := gp_point_shape[9];
+ % 11, 12 - diamond
+ gp_point_shape[11] := (-1,0)--(0,-1)--(1,0)--(0,1)--cycle;
+ gp_point_shape[12] := gp_point_shape[11];
+ % 13, 14 - pentagon
+ gp_point_shape[13] := fullpolygon(5) scaled (1/cosd(18));
+ gp_point_shape[14] := gp_point_shape[13];
+
+ picture gp_point_pt[];
+
+ for i=0,1,2,3,5,7,9,11,13:
+ gp_point_pt[i] := image(draw gp_point_shape[i] scaled 3pt;); % TODO: fix the scale & linewidth
+ endfor;
+ for i=4,6,8,10,12,14:
+ gp_point_pt[i] := image(filldraw gp_point_shape[i] scaled 3pt;); % TODO: fix the scale & linewidth
+ endfor;
+
+ % we have defined 15 point types so far
+ gp_num_points_with_metapost := 15;
+
+ %-------------------------%
+
+ % n is the number of symbol, but might a be a figure as well
+ vardef gp_the_symbol(expr n) =
+ picture pict;
+ % using metapost
+ if numeric n :
+ if n = -1 :
+ % point type -1 is always a dot
+ pict := image( fill fullcircle scaled 2gp_linewidth; );
+ else :
+ if gp_points_with = gp_points_with_metapost :
+ % TODO
+ pict := gp_point_pt[(n mod gp_num_points_with_metapost)];
+ else :
+ pict := sometxt((n mod gp_num_points_with_tex) + 1 + 500);
+ % XXX: 500 is a hack (see m/t-gnuplot.tex) and might need a fix
+ fi;
+ fi;
+ elseif picture n:
+ pict := n;
+ else:
+ pict := nullpicture;
+ fi
+ pict shifted -center pict
+ enddef ;
+ % the points have to be scaled slightly more
+ def gp_point(expr x, y, n) =
+ draw (gp_the_symbol(n) scaled (gp_scale_pointsize) shifted (x,y)) withcolor gp_color_current;
+ enddef ;
+
+ endinput
+
+end.
+
+
+% How to trick metapost to use comma between macros
+%
+%beginfig(1);
+%
+%def do_something(expr xx, yy)(text t) =
+% save c; color c; c = black;
+% save d; numeric d; d = 5pt;
+%
+% let@=,;
+%
+% def set_color(expr col) =
+% let,=@;
+% let@=,;
+% c := col;
+% let,=;;
+% enddef;
+%
+% def set_size(expr size) =
+% let,=@;
+% let@=,;
+% d := size;
+% let,=;;
+% enddef;
+%
+% t;
+% let,=@;
+%
+% fill fullcircle scaled d shifted (xx,yy) withcolor c;
+%enddef;
+%
+%do_something(1cm,2cm,set_color(blue));
+%do_something(2cm,1cm,set_size(10pt));
+%% this works OK
+%%do_something(2.5cm,1.5cm,set_color(red) set_size(8pt));
+%
+%% this works OK
+%%do_something(2cm,2.5cm,set_color(green);set_size(8pt));
+%
+%% but the following syntax looks better
+%do_something(2.5cm,1.5cm,set_color(blue),set_size(8pt),set_color(red),set_size(2pt));
+%
+%draw unitsquare scaled 3cm;
+%
+%endfig;
+%end.
diff --git a/Master/texmf-dist/tex/context/third/gnuplot/t-gnuplot.tex b/Master/texmf-dist/tex/context/third/gnuplot/t-gnuplot.tex
new file mode 100755
index 00000000000..aff8d0fc2ff
--- /dev/null
+++ b/Master/texmf-dist/tex/context/third/gnuplot/t-gnuplot.tex
@@ -0,0 +1,925 @@
+%D \module
+%D [ file=t-gnuplot,
+%D version=2007.02.07,
+%D title=\CONTEXT\ Extra Modules,
+%D subtitle=\GNUPLOT\ Inclusion,
+%D author={Hans Hagen, Taco Hoekwater, Mojca Miklavec, (Aditya Mahajan)},
+%D date=\currentdate,
+%D copyright=\PRAGMA]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
+
+%D This module is used for creating gnuplot graphs on-the-fly and including them
+%D into documents.
+%D
+%D Known Bugs:
+%D
+%D \startitemize
+%D \item spurious space \& page
+%D \stopitemize
+%D
+%D TODO (Optimisations):
+%D
+%D \startitemize
+%D \item optimize the number of gnuplot runs (if possible, gnuplot should be run only once)
+%D \item optimize the number of times for loading/converting an already used graphic
+%D \item pstopdf is a bit slow
+%D \stopitemize
+%D
+%D TODO (Handle things that may go wrong):
+%D - gnuplot executable doesn't exist
+%D - context terminal isn't available or some other failure in gnuplot script (no file created)
+%D - write18 disabled (you may call gnuplot later - create a script)
+%D
+%D TODO (Missing functionality):
+%D
+%D - a lot ...
+
+\writestatus{loading}{Gnuplot module}
+
+\startmodule[gnuplot]
+
+\unprotect
+
+\def\c!terminal {terminal}
+\def\c!options {options}
+\def\c!pointset {pointset}
+
+%D MPextensions
+%D
+%D XXX
+%D if possible, they should be specific to \type{\startGNUPLOTgraphic},
+%D so unvisible to \type{MPcode}
+%D (probably something like \type+\appendtoks ... to\everyGNUPLOTgraphic+)
+\startMPextensions
+ % load metapost macros (only once)
+ input mp-gnuplot.mp ;
+ % number of points defined with \setupGNUPLOTterminal[pointset=...]
+ %gp_num_points_with_tex := \gp:num:pointswithtex;
+ gp_num_points_with_tex := 3;
+ % main color should be set equal to the current text color
+ gp_color_foreground := \MPcolor{currentcolor};
+ gp_color_lt[-2] := gp_color_foreground;
+ % TODO: is there any chance to make this local to gnuplot?
+ % linejoin & linecap
+ linejoin := \@@GNUPLOT@term@context@linejoin;
+% linecap := \gp:term:context:linecap;
+ % dashes or solid? (true/false)
+ gp_use_dashed := \@@GNUPLOT@term@context@is@dashed;
+ % dashlength scale
+% gp_scale_dashlength := \gp:term:context:dashlength;
+ % linewidth scale
+ gp_scale_linewidth := \@@GNUPLOT@term@context@linewidth;
+
+ gp_scale_text := \@@GNUPLOT@term@context@textscale;
+
+ % linejoin := \gp:term:context:linejoin;
+ % linecap := \gp:term:context:linecap;
+ % % dashes or solid? (true/false)
+ % gp_use_dashed := \gp:term:context:dashed;
+ % % dashlength scale
+ % gp_scale_dashlength := \gp:term:context:dashlength;
+ % % linewidth scale
+ % gp_scale_linewidth := \gp:term:context:linewidth;
+
+\stopMPextensions
+
+%D (hopefully) temporary solution for handling the color in expressions like
+%D \type+draw \sometxt{...} withcolor red+
+\chardef\TeXtextcolormode\zerocount
+
+%D We have to make sure that runtime MP graphics are enabled,
+%D otherwise sizes of labels created by \type+\sometxt{}+ would be wrong
+%D if user didn't enable that option in \type{cont-usr.tex}.
+%D (Taco says it might be a bug, but let's not worry too much about it.
+%D If it will be resolved, we may delete this.)
+\runMPgraphicstrue
+
+%D We need a \type{\strut} in front of labels for better vertical centering.
+%D This might still fail for Zapfino and alike where \type{\strut} might be smaller
+%D than the actual font height.
+%D
+%D TODO (optional improvement): instead of placing \type{\strut} in front,
+%D create a \type{\hbox} and adjust it's dimensions to \type{\strut}'s height and depth.
+
+%D Aditya, thanks a lot for requesting it!
+%D Hans, thanks a lot for implementing this!
+\definetextext[gp]{\strut}
+%D TODO (feature request):
+%D \starttyping
+%D \sometxt[gp][ss,20pt]{abc}
+%D \stoptyping
+%D should become equivalent to
+%D \starttyping
+%D \sometxt{\switchtobodyfont[ss,20pt]\strut abc}
+%D \stoptyping
+%D
+%D Or, even more drastic perhaps, I would love to implement
+%D \starttyping
+%D \sometxt[gp][iwona,bold,c]{abc}
+%D \stoptyping
+%D meaning: iwona, bold typeface, size \quote{c}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%D The following patch has been written by Aditya and seems to work OK,
+%D however it would be more clean to have this functionality in the core.
+%D Redefining low-level macros might be a bit dangerous, esp. since
+%D they tend to change over time.
+%D
+%D TODO: remind Hans to implement it in core ;)
+%D and remove this patch from the module
+
+\long\def\redofiltersometxt[#1]%
+{\doifnextcharelse[{\reredofiltersometxt[#1]}{\redodofiltersometxt[#1]}}
+
+\long\def\redodofiltersometxt[#1]#2%
+ {\increment\txtcounter
+ \TeXtext[#1]\txtcounter{#2}%
+ \filtersometxt}
+
+\long\def\reredofiltersometxt[#1][#2]#3%
+ {\increment\txtcounter
+ \TeXtext[#1]\txtcounter{\switchtobodyfont[#2]\strut#3}%
+ \filtersometxt}
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+
+%D For the old method of \type{put_text("some text")} using textext:
+%D not used/supported any more, but still here for testing purposes
+%D (to be removed in the future)
+\forceMPTEXcheck{put_text}
+%\runMPTEXgraphicstrue
+
+\newcounter\GNUPLOTnumber
+
+%D \macros
+%D {startGNUPLOTinclusions, resetGNUPLOTinclusions}
+%D
+%D For those who want to have two or more graphs with similar options,
+%D these options may be included inside \type{\startMPinclusions ... \stopMPinclusions}
+%D and will be place on the top of the created \GNUPLOT\ script.
+%D
+%D \starttyping
+%D \startMPinclusions
+%D set xlabel '$x$'
+%D set ylabel '$y$'
+%D set format y "%.1f"
+%D \stopMPinclusions
+%D
+%D \startGNUPLOTscript{sin}
+%D plot sin(x)
+%D \stopGNUPLOTscript
+%D \startGNUPLOTscript{cos}
+%D plot cos(x)
+%D \stopGNUPLOTscript
+%D \stoptyping
+
+%D The code is not 100\% robust. Different characters and/or expansions may cause problems.
+%D \type{\%} takes care for not ignoring what comes after \type{%}.
+%D That might be only start of the game.
+\long\def\startGNUPLOTinclusions
+ {\bgroup
+ \obeylines
+ \catcode`\%=\@@letter
+ \catcode`\|=\@@letter
+ \dostartGNUPLOTinclusions}
+
+\long\def\dostartGNUPLOTinclusions#1\stopGNUPLOTinclusions
+ {\gdef\GNUPLOTinclusions{#1}%
+ \egroup}
+
+\def\resetGNUPLOTinclusions{\let\GNUPLOTinclusions\empty}
+
+\resetGNUPLOTinclusions
+
+%D On the other hand, one can probably achieve the same effect
+%D when drawing two plots inside the same script, like that:
+%D
+%D \starttyping
+%D \startGNUPLOTscript{sin and cos}
+%D set xlabel '$x$'
+%D set ylabel '$y$'
+%D set format y "%.1f"
+%D plot sin(x)
+%D plot cos(x)
+%D \stopGNUPLOTscript
+%D \stoptyping
+%D
+%D and then recall the graphics using \type{\useGNUPLOTgraphic[sin and cos][1]}.
+
+%D \macros
+%D {startGNUPLOTscript}
+%D
+%D \starttyping
+%D \startGNUPLOTscript{some name}
+%D plot sin(x)
+%D \stopGNUPLOTscript
+%D \stoptyping
+
+%\long\def\startGNUPLOTscript#1%
+% {\bgroup
+% \obeylines
+% \catcode`\%=\@@letter
+% \dostartGNUPLOTscript{#1}}
+
+\def\startGNUPLOTscript
+ {\bgroup\dosingleempty\dostartGNUPLOTscript}
+
+\def\redostartGNUPLOTscript#1
+ {\obeylines
+ \catcode`\%=\@@letter
+ \catcode`\|=\@@letter
+ \catcode`\$=\@@letter
+ \dodostartGNUPLOTscript{#1}%
+%\dostartGNUPLOTscript[#2]
+}
+
+\def\dostartGNUPLOTscript[#1]%
+ {\iffirstargument
+ \obeylines
+ \catcode`\%=\@@letter
+ \catcode`\|=\@@letter
+ \catcode`\$=\@@letter
+ \dodostartGNUPLOTscript{#1}%
+ \else
+ \redostartGNUPLOTscript
+ \fi
+}
+
+% FIXME:
+% Math labels still don't work properly
+% plot x t '$\frac{2}{\sqrt{\pi}}e^{-x^2}$'
+% will fail for example.
+%
+% Taco suggested to put \detokenize in front of the argument,
+% but then I run into problems with newlines.
+% I've lost too many nerves with ^^M already.
+% This item should be somewhere on top of priority list,
+% but I'm no TeXacker.
+%
+\long\def\dodostartGNUPLOTscript#1#2\stopGNUPLOTscript
+ {\doglobal\increment\GNUPLOTnumber
+ \letgvalue{gps:n:#1}\GNUPLOTnumber
+ \setgvalue{gps:d:\GNUPLOTnumber}{#2}%
+% \setgvalue{gps:d:\GNUPLOTnumber}{\detokenize{#2}}%
+ \egroup}
+
+\long\def\dodostartGNUPLOTscript#1#2\stopGNUPLOTscript
+ {\doglobal\increment\GNUPLOTnumber
+ \letgvalue{gps:n:#1}\GNUPLOTnumber
+ \setgvalue{gps:d:\GNUPLOTnumber}{#2}%
+% \setgvalue{gps:d:\GNUPLOTnumber}{\detokenize{#2}}%
+ \egroup}
+
+
+\newtoks\everyGNUPLOTscript
+
+%D We need to preserve newline characters (\TeX\ doesn't distinguish them from spaces).
+%D Finding the proper solution has costed quite some nerves: most solutions resulted in \type{^M}.
+
+\appendtoks
+ \obeylines
+ \def\obeyedline{\outputnewlinechar}%
+\to \everyGNUPLOTscript
+
+%D Content of GNUPLOTscript has to be handled literally:
+%D backslash (\letterbackslash) and percent (\%) may not interfere with \TeX.
+
+\appendtoks
+ \let\%\letterpercent
+ \def\ {\letterbackslash\outputnewlinechar}%
+ \catcode`\$=\@@letter
+\to \everyGNUPLOTscript
+
+% When are the graphics processed/read?
+%
+% - \gps:n:{name} (gnuplot script:name:{name}) holds the number of gnuplot script;
+% - that number was defined if we created the plot using \startGNUPLOTscript{name}
+% - and most probably undefined if we only issued \processGNUPLOTfile[name][filename]
+% => if, at the time of issuing \processGNUPLOTfile[name][filename], \gps:n:{name} is not defined,
+% it should be defined at that time
+% - \gpe:{name}:{terminal} (gnuplot graphic executed:{name}:{terminal})
+% is defined if we executed the command for that specific name and for that terminal
+% (once it will probably be 0 for a failed run and 1 for a successful one)
+
+% \useGNUPLOTgraphic[name] has three different ways of working:
+% - it can be called after \processGNUPLOTfile[name][filename]
+% which defined MP graphics that are now used
+% - it can be called for the first time under the current terminal
+% in that case it compiles the graphic and includes it
+% - it can be called for the second, third, ... time
+% in which case it only includes files without compiling it
+
+%D \macros
+%D {useGNUPLOTgraphic}
+
+% 5 ways of calling it:
+% - \useGNUPLOTgraphic{name}
+% - \useGNUPLOTgraphic[name]
+% - \useGNUPLOTgraphic[name][1,2,5]
+% - \useGNUPLOTgraphic[name][width=.8\textwidth]
+% - \useGNUPLOTgraphic[name][1,2,5][width=.8\textwidth]
+
+% this code takes care of reading arguments
+\def\useGNUPLOTgraphic
+ {\dotripleempty\douseGNUPLOTgraphic}
+
+\def\douseGNUPLOTgraphic[#1][#2][#3]%
+ {\doifelse{#3}{}{%
+ % < 3 arguments
+ \doifelse{#2}{}%
+ % 1 argument
+ % as in \useGNUPLOTgraphic[name]
+ {\dodouseGNUPLOTgraphic[#1][][]}%
+ % % as in \useGNUPLOTgraphic{name}
+ % {\redouseGNUPLOTgraphic[][][]}%
+ % 2 arguments
+ {\doifassignmentelse{#2}%
+ % as in \useGNUPLOTgraphic[name][width=.8\textwidth]
+ {\dodouseGNUPLOTgraphic[#1][][#2]}%
+ % as in \useGNUPLOTgraphic[name][1,2,5]
+ {\dodouseGNUPLOTgraphic[#1][#2][]}%
+ }%
+ }%
+ % as in \useGNUPLOTgraphic[name][1,2,5][width=.8\textwidth]
+ {\dodouseGNUPLOTgraphic[#1][#2][#3]}%
+ }
+
+\def\redouseGNUPLOTgraphic[#1][#2][#3]#4%
+ {\dodouseGNUPLOTgraphic[#4][][]}
+
+% and this code actually does something with it
+
+%D \doifundefined {string} {...}
+%D \doifdefined {string} {...}
+%D \doifundefinedelse {string} {then ...} {else ...}
+%D \doifdefinedelse {string} {then ...} {else ...}
+
+% \doifGNUPLOTscriptdefined{name}{...}
+
+% if gnuplot script with {name} and current terminal has already been processed
+% \doifGNUPLOTscriptprocessed{name}{...}
+
+% \letGNUPLOTscriptprocessed[optional terminal]{name} signals that the gnuplot script named {name}
+% has already been processed with the current terminal
+% TODO: currently it is always defined to be one as soon as one tries to process it,
+% even if en error is produced; in future it would be helpful if it would be set to zero
+% if it was unsuccessfully executed;
+% that is needed, since scripts are processed only when one first asks for including the graphic
+\def\letGNUPLOTscriptprocessed
+ {\dosingleempty\doletGNUPLOTscriptprocessed}
+%\def\doletGNUPLOTscriptprocessed[#1]#2%
+%{\letgvalue{gpe:#1:\@@GNUPLOTterminal}\plusone}
+\def\doletGNUPLOTscriptprocessed[#1]#2%
+ {\iffirstargument
+ % terminal has been specified
+ \letgvalue{gpe:#2:#1}\plusone
+ \else
+ % no terminal specified - use the current one
+ \letgvalue{gpe:#2:\@@GNUPLOTterminal}\plusone
+ \fi}
+
+% Although that should preferably not happen, one might come to an idea of defining
+% a gnuplot script with the same name as already defined.
+% In that case the old script cannot be referenced any more, but we can still try
+% to do out best to make it work anyway. We have to do two things:
+% - claim that script with that name hasn't been defined yet, so that processing will happen again
+% (TODO: do it in a more elegant way for all known terminals)
+% - undefine any metapost graphics (TODO: I have no idea yet how it can be done)
+%
+% \resetGNUPLOTscriptprocessed{name}
+\def\resetGNUPLOTscriptprocessed#1%
+ {\bgroup
+ % claim that the script with {name} (#1) hasn't been processed with {terminal} (##1) yet
+ \def\undefineGNUPLOTscriptforterminal##1{\letbeundefined{gpe:#1:##1}}%
+ % TODO: the list of available terminals should be generated automatically
+ \processcommalist[context,postscript,ps,eps,pdf,metapost,mp,png]\undefineGNUPLOTscriptforterminal
+ \resetGNUPLOTgraphics{#1}%
+ \egroup}
+
+% \resetGNUPLOTgraphics{name} undefines any gnuplot graphic defined with \startGNUPLOTgraphic[name][number]
+\def\resetGNUPLOTgraphics#1%
+ {\doloop
+ {\doifMPgraphicelse{gpg:#1:\recurselevel}%
+ % TODO: be aware - @@MPG is low-level ConTeXt variable which might change without notice,
+ % it would be better to call this \undefineMPgraphic{gpg:#1:\recurselevel} or something similar
+ {\letbeundefined{@@MPGgpg:#1:\recurselevel}}%
+ {\exitloop}}%
+ }%
+
+% TODO: this can probably be done in a better way
+\def\doifGNUPLOTscriptprocessed#1#2%
+ {\doifdefined {gpe:#1:\@@GNUPLOTterminal}{#2}}
+\def\doifGNUPLOTscriptprocessedelse#1#2#3%
+ {\doifdefinedelse {gpe:#1:\@@GNUPLOTterminal}{#2}{#3}}
+\def\doifGNUPLOTscriptnotprocessed#1#2%
+ {\doifundefined {gpe:#1:\@@GNUPLOTterminal}{#2}}
+\def\doifGNUPLOTscriptnotprocessedelse#1#2#3%
+ {\doifundefinedelse{gpe:#1:\@@GNUPLOTterminal}{#2}{#3}}
+
+
+% private
+% \writeandprocessGNUPLOTscript{name}
+\def\writeandprocessGNUPLOTscript#1%
+ % TODO: if gps:n:#1 (holding the script content) is not defined,
+ % error or warning should be issued
+ %
+ % only process the script if it has been defined and not processed before for the current terminal
+ {\doifdefined{gps:n:#1}{\doifGNUPLOTscriptnotprocessed{#1}{%
+ % \gpe:{name}:{terminal} is defined
+ %\setgvalue{gpe:#1:\@@GNUPLOTterminal}{#2}
+ \letGNUPLOTscriptprocessed{#1}
+ % call to gnuplot and processing/converting the graphics is only needed in the first ConTeXt run
+ \doifmode{*\v!first}{% (perhaps also: if files haven't changed)
+ \bgroup
+ % catcodes trickery & alike
+ \the\everyGNUPLOTscript
+ % open file for writing
+ \immediate\openout\scratchwrite=\GNUPLOTfile.plt
+ % TODO: terminal-specific options (default or provided by the user)
+ \immediate\write\scratchwrite{\letterhash\space Do not modify this file - all changes will be overwritten}%
+ \immediate\write\scratchwrite{\letterhash\space Change \jobname.tex instead.}%
+ \immediate\write\scratchwrite{set terminal \@@GNUPLOToutput\space\@@GNUPLOToptions}%
+ % add common inclusions in scripts for multiple similar plots
+ \doifnotempty
+ {\GNUPLOTinclusions}{\immediate\write\scratchwrite{\GNUPLOTinclusions}}%
+ \immediate\write\scratchwrite{set output "\@@GNUPLOTresult"}%
+ % write main contents of the script, like "plot sin(x)"
+ \immediate\write\scratchwrite{\getvalue{gps:d:\GNUPLOTnumber}}%
+ \immediate\closeout\scratchwrite
+ \egroup
+ % TODO:
+ % - check the state of write18 and warn the user if it's disabled,
+ % otherwise just everyone will start complaining that the module doens't work
+ % - check if execution was successful; possible pitfalls:
+ % - gnuplot doesn't exist as a binary
+ % - gnuplot doesn't support context terminal
+ % or some other error in script which results in empty output file
+ %
+ % run gnuplot & execute the script that has just been written
+ \executesystemcommand{texmfstart --ifchanged=\GNUPLOTfile.plt\space
+ --direct \@@GNUPLOTprogram\space\GNUPLOTfile.plt}%
+ \convertGNUPLOTgraphic
+ }%
+ % for ConTeXt terminal only - read the result
+ \doif{\@@GNUPLOTterminal}{context}{\processGNUPLOTfile[#1][\@@GNUPLOTresult]}%
+ }}}
+
+% \dodouseGNUPLOTgraphic[name][numbers][options]
+\def\dodouseGNUPLOTgraphic[#1][#2][#3]%
+ {\bgroup
+ \doifdefined{gps:n:#1}
+ {\edef\GNUPLOTnumber{\getvalue{gps:n:#1}}%
+ \edef\GNUPLOTfile {\bufferprefix gnuplot-\GNUPLOTnumber}%
+ \writeandprocessGNUPLOTscript{#1}%
+ % "ctxtools --purge" should delete the gnuplot script and other intermediate files
+ % (but it seems that they are deleted automatically already; preferred or not?)
+% \registertempfile{\GNUPLOTfile.plt}
+% \registertempfile{\@@GNUPLOTresult}
+% \registertempfile{\@@GNUPLOTfinalresult}
+ \doifelse{\@@GNUPLOTterminal}{context}%
+ % for ConTeXt terminal only
+ {\doifelse{#2}{}%
+ % if no explicit figure number was specified, include all the figures
+ {\doloop
+ {\doifMPgraphicelse{gpg:#1:\recurselevel}%
+ {\scale[#3]{\reuseMPgraphic{gpg:#1:\recurselevel}}}%
+ {\exitloop}}}%
+ % if numbers were specified, include the figures specified in the list only
+ {\begingroup
+ \def\useGNUPLOTgraphicN##1{\doifMPgraphicelse
+ {gpg:#1:##1}%
+ {\scale[#3]{\reuseMPgraphic{gpg:#1:##1}}}%
+ % if graphic doesn't exist: draw a dummy frame instead and warn the user
+ {\scale[#3]{\framed[frame=on,width=5in,height=3in,align={middle,lohi}]{GNUPLOT graphic #1, Nr. ##1 doesn't exist}}}}%
+ \processcommalist[#2]\useGNUPLOTgraphicN
+ \endgroup
+ }%
+ }%
+ % for all the other terminals
+ % TODO: add more safety switches (if pages don't exist for example)
+ {\doifelse{#2}{}%
+ % if no explicite figure number was specified, include all the pages
+ % TODO: properly handle METAPOST & PNG (only works for (E)PS & PDF) !!!
+ {\getfiguredimensions[\@@GNUPLOTresult]%
+ \dorecurse{\noffigurepages}{\externalfigure[\@@GNUPLOTfinalresult][page=\recurselevel,#3]}}%
+ % if numbers were specified, include the pages specified in the list only
+ {\begingroup
+ \def\useGNUPLOTgraphicN##1{\externalfigure[\@@GNUPLOTfinalresult][page=##1,#3]}%
+ \processcommalist[#2]\useGNUPLOTgraphicN
+ \endgroup
+ }%
+ }%
+ }%
+ \egroup}
+
+%D \macros
+%D {setupGNUPLOT}
+
+\def\setupGNUPLOT
+% {\dodoubleempty\getparameters[@@GNUPLOT]}
+ {\dosingleargument\dosetupGNUPLOT}
+
+\def\dosetupGNUPLOT[#1]%
+ {\getparameters[@@GNUPLOT][#1]%
+ % define all the necessary points according to the option "pointset"
+ %
+ % XXX: no idea why this is needed, but otherwise it complains that @@GNUPLOTpointset is undefined
+ \edef\currentGNUPLOTpointset{\@@GNUPLOTpointset}%
+ \startTeXtexts
+ \doloop{\doifelseconversionnumber{\@@GNUPLOTpointset}{\recurselevel}%
+ % +500 is a hack (hopefully the plot doesn't contain more than 500 labels)
+ % otherwise the points would be overwritten by labels with another \TeXtext:
+ % it might need a fix in ConTeXt core
+ {\TeXtext{\numexpr\recurselevel+500\relax}{{\convertnumber{\currentGNUPLOTpointset}{\recurselevel}}}}%
+ {\exitloop}}%
+ \stopTeXtexts
+ % \gp:num:pointswithtex is passed to metapost, so that it knows
+ % how many points are defined and chooses the proper point
+ % form a set of the defined ones
+ %
+ % for safety reasons define \gp:num:pointswithtex to be equal to 1 (it can only increase later), otherwise:
+ % - (something mod 0) won't work
+ % - if conversion is not defined, the number will retain its old value (not desirable)
+ \edef\gp:num:pointswithtex{1}%
+ \doloop{\doifelseconversionnumber{\@@GNUPLOTpointset}{\recurselevel}%
+ {\edef\gp:num:pointswithtex{\recurselevel}}%
+ {\exitloop}}%
+ % TODO:
+ % - issue a warning if user wants to use points with TeX,
+ % but pointset= is undefined (if the first point doesn't exist)
+ % - no idea what happens if conversion is infinite,
+ % so try to stop at some reasonable value (100?)
+ % - current implementation redefines the points even if only terminal type
+ % has been set to some other value (which is a stupid approach, but I
+ % wanted to have a working version first and will consider efficiency later)
+ % - it may be that the old points remain defined if conversion changes
+ % (perhaps they should be undefined again?)
+ }
+
+% Hans has written this piece of code, but:
+% - "start" and "/MIN" caused problems
+% - pgnuplot is not much more "portable" than gnuplot
+% best thing to do is to create a "gnuplot.bat" somewhere in PATH
+%
+%\def\processGNUPLOTscript
+% {\doifelse\operatingsystem{mswin}
+% {\executesystemcommand{start /MIN pgnuplot \GNUPLOTfile.plt}} % start is needed else gp fails
+% {\executesystemcommand{gnuplot \GNUPLOTfile.plt}}}
+%\def\processGNUPLOTscript
+% {\executesystemcommand{gnuplot \GNUPLOTfile.plt}}
+
+% TODO: check if write18 is enabled; if not, issue a command and warn the user that running the module might be pointless or that he/she has to run gnuplot on the produced files manually
+\def\convertGNUPLOTgraphic
+ {\doifsomething\@@GNUPLOThandle{\executesystemcommand{\@@GNUPLOThandle}}}
+
+%D \macros
+%D {processGNUPLOTfile}
+
+%D It's needed to input a file resulting from a gnuplot run (with ConTeXt terminal).
+%D It reads the file and "saves" the metapost graphics defined in that file,
+%D so that they can be used with \usegnuplotgraphic (low level: \reuseMPgraphic) later
+%D
+% \processGNUPLOTfile[NAME][filename]
+\def\processGNUPLOTfile
+ {\dodoubleargument\doprocessGNUPLOTfile}
+
+\def\doprocessGNUPLOTfile[#1][#2]%
+ {% we first define two commands: \startGNUPLOTgraphic & \stopGNUPLOTgraphic to read the files in;
+ % files that gnuplot creates in non-standalone mode look approximately like this:
+ %
+ % \startGNUPLOTgraphic[1]
+ % ... metapost commands to draw the graph ...
+ % \stopGNUPLOTgraphic
+ % \startGNUPLOTgraphic[2]
+ % ... metapost commands to draw the graph ...
+ % \stopGNUPLOTgraphic
+ % ...
+ %
+ % while reading the file in, metapost graphics named "gpg:{name}:{number}" are defined
+ %
+ % (we might need some additional arguments later on, but for now the figure number should suffice)
+ \def\startGNUPLOTgraphic
+ {\obeyMPlines % <- no longer a problem
+ \def\obeyedline{}% <- thanks to this
+ \dosingleargument\dostartGNUPLOTgraphic}%
+ \long\def\dostartGNUPLOTgraphic[##1]##2\stopGNUPLOTgraphic
+ {\startreusableMPgraphic{gpg:#1:##1}##2\stopreusableMPgraphic}%
+ %
+ % if gps:n:{name} (which is a number) is not defined,
+ % then we first have to increase the \GNUPLOTnumber counter and associate this name with the new number
+
+ % , then we should now also define
+ % gpe:{number}:context which should signal later on that the graphic
+% \doifdefined{gps:n:#1}
+ % input the file
+ % TODO: error / warning if the files doesn't exist
+ \readlocfile{#2}{}{}% the third argument should be: if file not found
+ % this file is known
+ % TODO \letgvalue{gpf:#1}\plusone
+ }
+
+%D \macros
+%D {startGNUPLOTpage}
+%D
+%D Used for standalone \GNUPLOT\ figures & written out by gnuplot in standalone mode.
+%D
+%D Instead of having to \type{\useGNUPLOTgraphic}, a figure is inserted directly using
+%D \type{\startMPpage ... }\type{\stopMPpage}.
+%D
+%D A high-level command is provided if some more advance features will
+%D be needed in the future and to be able to ensure backward compatibility.
+
+%D We need to preserve line breaks, otherwise metapost runs into troubles for longer input.
+\def\startGNUPLOTpage
+ {\obeyMPlines\dostartGNUPLOTpage}
+
+\long\def\dostartGNUPLOTpage#1\stopGNUPLOTpage
+ {\startMPpage#1\stopMPpage}
+
+
+% TODO: currently, the following definitions are used,
+% but the ones below would be preferred
+
+\def\defineGNUPLOThandle#1#2#3#4#5#6% name; output; suffix; conversion-method; gnuplot's result; final result
+ {\setvalue{@@GNUPLOT-#1}{{#2}{#3}{#4}{#5}{#6}}}
+
+\def\@@GNUPLOToutput{\filterfromvalue{@@GNUPLOT-\@@GNUPLOTterminal}51}
+\def\@@GNUPLOTsuffix{\filterfromvalue{@@GNUPLOT-\@@GNUPLOTterminal}52}
+\def\@@GNUPLOThandle{\filterfromvalue{@@GNUPLOT-\@@GNUPLOTterminal}53}
+\def\@@GNUPLOTresult{\filterfromvalue{@@GNUPLOT-\@@GNUPLOTterminal}54}
+\def\@@GNUPLOTfinalresult{\filterfromvalue{@@GNUPLOT-\@@GNUPLOTterminal}55}
+
+% name "set term" suffix conversion (system command) gnuplot's result final result
+% (suffix is probably not needed any more since full names were introduced)
+\defineGNUPLOThandle
+ {postscript}{postscript color}{ps}{texmfstart pstopdf --method=raw \GNUPLOTfile-ps.ps}
+ {\GNUPLOTfile-ps.ps}{\GNUPLOTfile-ps.pdf}
+\defineGNUPLOThandle
+ {ps}{postscript color}{ps}{texmfstart pstopdf -dAutoRotatePages=/PageByPage --method=raw \GNUPLOTfile-ps.ps}
+ {\GNUPLOTfile-ps.ps}{\GNUPLOTfile-ps.pdf}
+\defineGNUPLOThandle
+ {eps}{postscript color eps}{ps}{texmfstart pstopdf -dEPSCrop \GNUPLOTfile-eps.eps}
+ {\GNUPLOTfile-eps.eps}{\GNUPLOTfile-eps.pdf}
+\defineGNUPLOThandle
+ {pdf}{pdf}{pdf}{}
+ {\GNUPLOTfile-pdf.pdf}{\GNUPLOTfile-pdf.pdf}
+\defineGNUPLOThandle
+ {metapost}{mp}{mp}{texmfstart mptopdf \GNUPLOTfile-mp.mp}
+ {\GNUPLOTfile-mp.mp}{\GNUPLOTfile-mp-0.pdf}
+\defineGNUPLOThandle
+ {mp}{mp}{mp}{texmfstart mptopdf \GNUPLOTfile-mp.mp}
+ {\GNUPLOTfile-mp.mp}{\GNUPLOTfile-mp-0.pdf}
+\defineGNUPLOThandle
+ {png}{png}{png}{}
+ {\GNUPLOTfile-png.png}{\GNUPLOTfile-png.png}
+\defineGNUPLOThandle
+ {context}{context textscale \@@GNUPLOT@term@context@textscale}{tex}{}
+ {\GNUPLOTfile-ctx.tex}{\GNUPLOTfile-ctx.tex}
+% \doifnotempty{\@@GNUPLOT@term@context@textscale}{textscale \@@GNUPLOT@term@context@textscale}
+
+\def\defineGNUPLOTterminal
+ {\dodoubleargument\dodefineGNUPLOTterminal}
+
+\def\dodefineGNUPLOTterminal[#1][#2]%
+ {\doifassignmentelse{#2}%
+ % define a proper terminal
+ {}% TODO
+ % only define a synonym for that terminal
+ {}% TODO
+ }
+
+%D {\sl terminal}: argument to be passed to gnuplot in the form of "set term {\sl terminal}"
+%D {\sl defaultoptions}: options to be passed to gnuplot after terminal name:
+%D set term {\sl teminal} {\sl defaultoptions}
+%D not to be touched by users
+%D {\sl suffix}: filename suffix
+%D {\sl result}: the file to which gnuplot should output the result
+%D set output {\sl result}
+%D {\sl convertwith}: command for conversion from gnuplot-generated file to a file that can be read by \CONTEXT; may be empty
+%D {\sl finalresult}: file resulting after the conversion to be read by \CONTEXT
+
+%D \POSTSCRIPT\ terminal
+\defineGNUPLOTterminal
+ [postscript]
+ [terminal=postscript,
+ defaultoptions=color, % TODO: only if \setupcolors[state=start]
+ suffix=ps,
+ result=\GNUPLOTfile-ps.ps,
+ % TODO: -dAutoRotatePages=/PageByPage or remove that option from the default ones
+ convertwith={texmfstart pstopdf --method=raw \GNUPLOTfile-ps.ps},
+ finalresult=\GNUPLOTfile-ps.pdf,
+ ]
+%D Define \type{ps} as a synonym for \type{postscript} terminal
+\defineGNUPLOTterminal
+ [ps]
+ [postscript]
+
+%D \EPS\ terminal:
+%D - same terminal as for \POSTSCRIPT, but slightly different handling
+\defineGNUPLOTterminal
+ [eps]
+ [terminal=postscript,
+ defaultoptions=eps color,
+ suffix=eps,
+ result=\GNUPLOTfile-eps.eps,
+ % TODO: -dEPSCrop
+ convertwith={texmfstart pstopdf -dEPSCrop \GNUPLOTfile-eps.eps},
+ finalresult=\GNUPLOTfile-eps.pdf,
+ ]
+
+%D \PDF\ terminal
+\defineGNUPLOTterminal
+ [pdf]
+ [terminal=pdf,
+ defaultoptions=,
+ suffix=pdf,
+ result=\GNUPLOTfile-pdf.pdf,
+ convertwith=,
+ finalresult=\GNUPLOTfile-pdf.pdf,
+ ]
+
+%D \METAPOST\ terminal:
+%D - deprecated: use the \CONTEXT\ terminal instead,
+%D which was built starting from the \METAPOST\ one,
+%D but improved in many aspects
+\defineGNUPLOTterminal
+ [mp]
+ [terminal=mp,
+ defaultoptions=,
+ suffix=mp,
+ result=\GNUPLOTfile-mp.mp,
+ convertwith={texmfstart mptopdf \GNUPLOTfile-mp.mp},
+ % TODO: support for multiple graphics
+ % one would need a switch in mptopdf, so that a single pdf would be created instead of multiple ones
+ finalresult=\GNUPLOTfile-mp-0.pdf,
+ ]
+
+\defineGNUPLOTterminal
+ [metapost]
+ [mp]
+
+%D png terminal:
+%D - bitmap
+%D - no conversion needed
+%D - new version pretty advanced
+\defineGNUPLOTterminal
+ [png]
+ [terminal=png,
+ defaultoptions=,
+ suffix=png,
+ result=\GNUPLOTfile-png.png,
+ convertwith=,
+ finalresult=\GNUPLOTfile-png.png,
+ ]
+
+%D \CONTEXT\ terminal (native)
+\defineGNUPLOTterminal
+ [context]
+ [terminal=context,
+ defaultoptions=,
+ suffix=tex,
+ result=\GNUPLOTfile-ctx.tex,
+ convertwith=,
+ finalresult=\GNUPLOTfile-ctx.tex,
+ ]
+
+\def\setupGNUPLOTterminal
+ {\dodoubleargument\dosetupGNUPLOTterminal}
+
+\def\dosetupGNUPLOTterminal[#1][#2]%
+ {% TODO
+ \getparameters[@@GNUPLOT@term@#1@][#2]
+ % TODO: width & height
+ % linejoin, linecap - I have to improve this !!!
+ % \edef\gp:term:context:linejoin{\@@GNUPLOT@term@context@linejoin}
+ % \edef\gp:term:context:linecap{\@@GNUPLOT@term@context@linecap}
+ % dashed or solid lines?
+ \doifsamestringelse{\@@GNUPLOT@term@context@dashed}{yes}% yes or no
+ {\edef\@@GNUPLOT@term@context@is@dashed{true}}%
+ {\edef\@@GNUPLOT@term@context@is@dashed{false}}%
+ % {\edef\gp:term:context:dashed{true}}%
+ % {\edef\gp:term:context:dashed{false}}%
+ % % dashlength scale
+ % \edef\gp:term:context:dashlength{\@@GNUPLOT@term@context@dashlength}
+ % % linewidth scale
+ % \edef\gp:term:context:linewidth{\@@GNUPLOT@term@context@linewidth}
+ }
+
+\setupGNUPLOTterminal
+ [context]
+ [width=default, % *default* (5in) | <dimension>
+ height=default, % *default* (3in) | <dimension>
+ linejoin=rounded, % mitered | *rounded* | beveled
+ linecap=butt, % *butt* | rounded (in gnuplot: round) | squared
+ dashed=yes, % *yes* | no
+ dashlength=1, % scaling factor for dash lengths
+ linewidth=1, % scaling factor for line widths (1.0 means 0.4bp)
+ textscale=1, % scaling factor for text labels
+ points=metapost] % *metapost* | tex (Should points be drawn with MetaPost or TeX?)
+
+% TODO: better scaling
+\defineconversion
+ [gnuplot:pointset]
+ [{\scale[scale=800]{\mathematics{+}}},
+ {\scale[scale=800]{\mathematics{\times}}},
+ \mathematics{\ast},
+ {\scale[scale=700]{\mathematics{\square}}},
+ {\scale[scale=700]{\mathematics{\blacksquare}}},
+ \mathematics{\circ},
+ \mathematics{\bullet},
+ {\scale[scale=900]{\mathematics{\triangleup}}},
+ {\scale[scale=900]{\mathematics{\blacktriangle}}},
+ {\scale[scale=900]{\mathematics{\triangledown}}},
+ {\scale[scale=900]{\mathematics{\blacktriangledown}}},
+ {\scale[scale=800]{\mathematics{\lozenge}}},
+ {\scale[scale=800]{\mathematics{\blacklozenge}}}%,
+% {\rotate[rotation=45]{\mathematics{\square}}},
+% {\rotate[rotation=45]{\mathematics{\blacksquare}}},
+ ]
+
+%\defineGNUPLOTcolor[red] [r=1]
+%\defineGNUPLOTcolor[green] [g=1]
+%\defineGNUPLOTcolor[blue] [b=1]
+%\defineGNUPLOTcolor[magenta][r=1,b=1]
+%\defineGNUPLOTcolor[cyan] [g=1,b=1]
+%\defineGNUPLOTcolor[yellow] [r=1,g=1]
+%\defineGNUPLOTcolor[black] [s=0]
+%\defineGNUPLOTcolor[orange] [r=1,g=.3,b=0]
+%\defineGNUPLOTcolor[gray50] [s=.5]
+
+%\defineGNUPLOTcolors
+% [default] % from PostScript
+% [red,green,blue,magenta,cyan,yellow,black,orange,gray50]
+
+% TODO: testset is here only temporary & for testing
+\setupGNUPLOT[program=gnuplot,\c!terminal=context,\c!options=,\c!pointset=gnuplot:pointset] % colors=postscript
+
+%D Some additional typescripts which enable us using font "Arial" and "Helvetica"
+
+%D Pretend the font to be serif as well, so that no "ss" switch is needed
+\starttypescript [serif] [helvetica] [name]
+ \definefontsynonym [Serif] [Helvetica]
+ \definefontsynonym [SerifBold] [Helvetica-Bold]
+ \definefontsynonym [SerifItalic] [Helvetica-Oblique]
+ \definefontsynonym [SerifSlanted] [Helvetica-Oblique]
+ \definefontsynonym [SerifBoldItalic] [Helvetica-BoldOblique]
+ \definefontsynonym [SerifBoldSlanted] [Helvetica-BoldOblique]
+ \definefontsynonym [SerifCaps] [Helvetica]
+\stoptypescript
+
+\starttypescript [gnuplot] [texnansi,ec]
+ \definetypeface [Helvetica] [rm] [serif] [helvetica] [default] [encoding=\typescripttwo]
+ \definetypeface [Helvetica] [ss] [sans] [helvetica] [default] [encoding=\typescripttwo]
+ \definetypeface [Arial] [rm] [serif] [helvetica] [default] [encoding=\typescripttwo]
+ \definetypeface [Arial] [ss] [sans] [helvetica] [default] [encoding=\typescripttwo]
+\stoptypescript
+
+% TODO: fix for XeTeX
+\usetypescript[gnuplot][ec]
+
+\stopmodule
+
+\protect \doifnotmode{demo}{\endinput}
+
+
+\starttext
+
+\startGNUPLOTscript[exp]
+set key bottom
+set format x "%.1f"
+set format y "%.1f"
+set style fill solid 0.25 noborder
+plot [0:3] 2/sqrt(pi)*exp(-x**2) t '$\frac{2}{\sqrt{\pi}}e^{-x^2}$' with filledcurves x1 lt 3, erf(x) lc 3 lw 2
+\stopGNUPLOTscript
+
+\useGNUPLOTgraphic[exp][width=.7\textwidth]
+
+
+\startGNUPLOTinclusions
+ set title "trigonometry"
+\stopGNUPLOTinclusions
+
+\startGNUPLOTscript[sin]
+ plot sin(x)
+\stopGNUPLOTscript
+
+\startGNUPLOTscript[cos]
+ plot cos(x)
+\stopGNUPLOTscript
+
+\useGNUPLOTgraphic[sin] \endgraf
+\useGNUPLOTgraphic[cos] \endgraf
+\useGNUPLOTgraphic[cos] \endgraf
+
+\setupGNUPLOT[terminal=ps] \useGNUPLOTgraphic[sin][object=no,height=2cm] \blank
+%setupGNUPLOT[terminal=pdf] \useGNUPLOTgraphic[sin][object=no,height=2cm] \blank
+%setupGNUPLOT[terminal=png] \useGNUPLOTgraphic[sin][object=no,height=2cm] \blank
+\setupGNUPLOT[terminal=mp] \useGNUPLOTgraphic[sin][object=no,height=2cm,options=color] \blank
+
+\stoptext
+