1 % m4 macro definitions

2 define(`__PEN_single', `pencircle scaled 1.5')

3 define(`__PEN_multi', `pencircle scaled 0.8')

4

5 verbatimtex

6 %&latex

7 \documentclass{minimal}

8 \usepackage[utf8x]{inputenc}

9 \renewcommand{\Im}{\mathop{\mathrm{Im}}\nolimits}

10 \renewcommand{\Re}{\mathop{\mathrm{Re}}\nolimits}

11 \begin{document}

12 etex;

13

14 input graph;

15

16 filenametemplate "__PLOT_PREFIX.mps";

17

18 beginfig(1);

19 draw begingraph(10cm, 6cm);

20 for file = __DATA:

21 color real_color, imag_color;

22 path real_plot, imag_plot;

23

24 real_color = blue*(0.5+uniformdeviate(5)/10)+green*uniformdeviate(2)/10+white*uniformdeviate(15)/100;

25 imag_color = red*(0.5+uniformdeviate(5)/10)+white*uniformdeviate(15)/100;

26

27 gdata(file, f,

28 augment.real_plot(f1, f2);

29 augment.imag_plot(f1, f3););

30

31 gdraw real_plot withpen __PEN withcolor real_color;

32 __LABEL(glabel.ulft(btex $\Re$ etex, 1) withcolor real_color*0.8;)

33

34 gdraw imag_plot withpen __PEN withcolor imag_color;

35 __LABEL(glabel.llft(btex $\Im$ etex, 1) withcolor imag_color*0.8;)

36

37 endfor;

38 pickup pencircle scaled 1.1;

39 frame.llft;

40 endgraph;

41 endfig;