printf '^FT%d,%d', 0, $h; # field typeset x,y graphic origin is bottom-left
print '^XG000.GRF,1,1^FS'; # recall grapmic source/name,magnification_x,magnification_y
print '^PQ1,0,1,Y'; # print quantity total,pause/cut,replicates,no_pause
printf '^FT%d,%d', 0, $h; # field typeset x,y graphic origin is bottom-left
print '^XG000.GRF,1,1^FS'; # recall grapmic source/name,magnification_x,magnification_y
print '^PQ1,0,1,Y'; # print quantity total,pause/cut,replicates,no_pause