Patch title: Release 94 bulk changes
Abstract:
File: /pliant/graphic/sample/pattern.pli
Key:
    Removed line
    Added line
module "/pliant/language/compiler.pli"
module "/pliant/graphic/filter/escp2.pli"
module "/pliant/graphic/image/prototype.pli"
module "/pliant/graphic/image/pixmap.pli"
module "/pliant/graphic/color/gamut.pli"
module "/pliant/graphic/filter/io.pli"

constant dpi_x 1440
constant dpi_y 1440

function generator x y head level -> dot
  arg Int x y head level ; arg Int dot
  dot := 0
  var Int i := x\250
  var Int xx := x%250
  var Int j := y\250
  var Int yy := y%250
  var Int i := x\(dpi_x\720)\250
  var Int xx := x\(dpi_x\720)%250
  var Int j := y\(dpi_y\720)\250
  var Int yy := y\(dpi_y\720)%250
  if j=0
    if xx=125 or yy=125
      if head=i
        dot := 1
      if head=3 and xx>=50 and xx<=200 and yy>=50 and yy<200
        dot := 1
  eif j<4
    if i=head
      dot := j
  eif j=4
    if i=head
      if yy=(shunt xx<125 50 51)
        dot := 1
      if yy=50 and xx>=150
        dot := 1
      if xx=(shunt yy<125 50 51)
        dot := 1
      if xx=50 and yy>=150
        dot := 1
     
escp2_generator :> the_function generator Int Int Int Int -> Int

function test
  var Link:ImagePixmap img :> new ImagePixmap
  var Int dpi_x := 720 ; var Int dpi_y := 720
  var Int sx := 250*8 ; var Int sy := 250*5
  var Int sx := 250*(dpi_x\720)*12 ; var Int sy := 250*(dpi_x\720)*5
  img setup (image_prototype 0 0 sx/dpi_x*25.4 sy/dpi_y*25.4 sx sy color_gamut:"pantone:process_cyan+process_magenta+process_yellow+process_black") ""
  for (var Int y) 0 sy-1
    for (var Int x) 0 sx-1
      (img pixel x y) map uInt32 := 0
  img save "file:/tmp/test.escp2" "model [dq]Epson 2100[dq] offset 170 120"
  img save "file:/tmp/test.escp2" "model [dq]Epson 4000a[dq] no_escp2_microweave 1 roll cutter offset 5 5"

test