# Draw Gnuplot
# Data in (tmp "gp.csv")
# Result in (tmp "gp.{typ}")
(de gnuplot (Typ SizeX SizeY Flags Col)
   (out (tmp "gp.cmd")
      (if (== Typ 'eps)  # 'eps' or 'png'
         (prinl
            "set terminal postscript eps  size "
            SizeX
            ", "
            SizeY
            " enhanced color" )
         (prinl
            "set terminal png  font helvetica 9  size "
            SizeX
            ", "
            SizeY ) )
      (prinl "set encoding utf8")
      (prinl "set xlabel \"Netzteil [mA]\"")
      (prinl "set y2label \"Drehmoment [Nm]\"")
      (prinl "set ytics")
      (prinl "set ytics nomirror")
      (prinl "set y2tics")
      (prinl "set grid xtics")
      (prinl "set grid y2tics")
      (prinl "set key outside bottom")
      (prinl "set style data lines")
      (prinl "set output \"" (tmp "gp." Typ) "\"")
      (prin "plot \"" (tmp "gp.csv")
         "\" using 1:3  axes x1y2  lc rgb \"red\"  t \"Drehmoment [Nm]\"" )
      (mapc
         '((F L I)
            (and
               F
               I
               (prin ", \"" (tmp "gp.csv")
                  "\" using 1:" I
                  " lc rgb \"" (caddr L)
                  "\" t \"" (cadr L) "\"" ) ) )
         Flags
         Col
         (2 NIL 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18) )
      (prinl) )
   (call 'gnuplot (tmp "gp.cmd")) )