Merge pull request #297 from jgray-19/plot_improvements

Plot PNG files

Author: ldeniau

src/madl_plot.mad

@@ -283,8 +283,16 @@ local function setup_cmd (self)
     file:write("MAD_TERM = \"set term ${term} ${output} size ${wsizex},\z
       ${wsizey} enhanced font '${font},${fontsize}'\"\n" % self)
   elseif is_string(output) then
-    file:write("MAD_TERM = \"set term pdfcairo enhanced font \z
-      '${font},${fontsize}'; set out '${output}'\"\n" % self)
+    local ext = output:sub(-3, -1)
+    if ext == "png" then
+      file:write("MAD_TERM = \" set term png enhanced font '${font},\z
+        ${fontsize}' size ${wsizex},${wsizey}; set out '${output}'\"\n" % self)
+    elseif ext == "pdf" then
+      file:write("MAD_TERM = \"set term pdfcairo enhanced font \z
+        '${font},${fontsize}'; set out '${output}'\"\n" % self)
+    else
+      error("unsupported output file extension '".. ext .. "'")
+    end
   end
 
   file:write("@MAD_SET_TERM\n")