<?php
$tmpname = "/tmp/rlpdemo2";
$colors = array("0x000000ff", "0x0000ff00", "0x00ff0000", "0x00000000");
$v = array(100, 300, 200);
$nv = 3;

function draw_bars($file, $v, $n){
   global $colors;

   for($i = 1; $i <= $n; $i++) {
      fputs($file, "[" . $i . "=Bar]\nType= 259\nPos= " . $i . " " . $v[$i-1] . "\n");
      fputs($file, "Size= 60\nLine= 0.8 6 " . $colors[($i-1) & 0x3] . " 0x0\n");
      fputs($file, "Fill= 4 0x00ffffff 2\nFillLine= 0 1 " . $colors[($i-1) & 0x3] . " 0x0\n\n");
      }
   }

function draw_ticks($file) {
   global $nv;

   for($i = 0, $j = 5; $i < $nv; $i++, $j += 2) {
      fputs($file, "[" . $j . "=Label]\nDist= 0 4\nFlags= 0x00000022\n");
      fputs($file, "TxtDef= 0x0 0x00ffffff 4.000 0.000 0.000 1 1 0 0 \"value " . ($i+1) . "\"\n\n");
      fputs($file, "[" . ($j+1) . "=Tick]\nVal= " . ($i+1) . "\nFlags= 0x00000241\nLabel= " . $j . "\n\n");
      }
   }

header("Content-Type: image/png");
for($i = 0; $i < $nv; $i++) {
   $a = "val" . ($i+1);
   if(isset($_GET[$a])) $v[$i] = doubleval($_GET[$a]);
   }
$file = fopen($tmpname . ".rlp", "w");
fputs($file, ";RLP 1.0\n\n");
draw_bars($file, $v, $nv);
fputs($file, "[4=PlotScatt]\nBars=(3){1 2 3}\n\n");
draw_ticks($file);

fputs($file, "[11=Label]\nPos= 82.5 98\nDist= 0 8\nFlags= 0x00000020\n");
fputs($file, "TxtDef= 0x0 0x00ffffff 4.800 0.000 0.000 1 1 0 0 \"input field\"\n\n");

fputs($file, "[12=Axis]\nLbDist= 0 8\nTickLbDist= 0 4\nTicks=(3){6 8 10}\nLabel= 11\n");
fputs($file, "tlbDef= 0x0 0x00ffffff 4.000 0.000 0.000 1 1 0 0\n\n");

fputs($file, "[28=Axis]\nLbDist= -12 0\nTickLbDist= -4 0\nGridLine= 0.1 6 0x0 0xf8f8f8f8\n");
fputs($file, "tlbDef= 0x0 0x00ffffff 4.000 0.000 0.000 6 1 0 0\n\n");

fputs($file, "[29=Axis]\nAxisDef=0x00000230 1 3.2 25 10 0 140 10 0 1 0.2 0 0 0 0\n\n");

fputs($file, "[30=Axis]\nAxisDef=0x00000220 100 320 140 10 0 140 90 0 100 20 0 0 0 0\n\n");

fputs($file, "[31=Graph]\nType= 1\nGRect= 0 110 160 0\nDRect= 25 90 140 10\nBounds= 1 0 3 0\n");
fputs($file, "ColFrame= 0x00ffffff\nColFrameL= 0x00ffffff\nColRec= 0x00ffffff\n");
fputs($file, "Xaxis=0x00000242 0 4 25 90 0 140 90 0 0 1 0 0 0 0\n");
fputs($file, "Yaxis=0x00000296 0 0 25 10 0 25 90 0 10 50 0 0 0 0\n");
fputs($file, "DefXAxis= 0\nDefYAxis= 1\nAxes=(4){12 28 29 30}\nPlots=(1){4}\n");

fclose($file);

exec("exprlp -sq ". $tmpname . ".rlp " . $tmpname . ".svg");
exec("convert " . $tmpname . ".svg " . $tmpname . ".png");
readfile($tmpname . ".png");
?>