uffmann-stitch.ey

#!./loaded

bin .print "<=" via
{ _ ==s len <=un16 s cat } /string deffd
{ ==divisor _ 0 lt { neg divisor div neg } { divisor div } ? * } '00.0 /idiv deffd

sys .argv len 3 neq { "Usage: ./uffmann-stitch.ey <μm stitch size (try 4000)> <output.vp3>" die } rep

sys .file "<-" via
"Scale μm: " 1 sys .argv * txt .consume .u 100 div _ ==scale 100 mul txt .produce .u cat dump
<-truncating <-creating <-writeonly 2 sys .argv * <-open


{ =*stitch
  [
# start line
    # [ 15 0 ]
    [ 5 neg 10 ]
    [ 0 10 ]
    [ 0 10 neg ]
    [ 5 10 neg ]
    [ 5 neg 10 ]
    [ 0 10 ]
    [ 0 10 neg ]
    [ 5 10 neg ]
    [ 5 0 ]
    [ 5 10 ]
    [ 0 10 ]
    [ 0 10 neg ]
    [ 5 0 ]
    [ 0 10 neg ]
    [ 0 15 ]
    [ 5 5 ]
    [ 5 0 ]
    [ 5 neg 0 ]
    [ 5 neg 5 neg ]
    [ 0 5 neg ]
    [ 10 0 ]
    [ 0 10 neg ]
    [ 0 15 ]
    [ 5 5 ]
    [ 5 0 ]
    [ 5 neg 0 ]
    [ 5 neg 5 neg ]
    [ 0 5 neg ]
    [ 5 0 ]
# m
    [ 0 10 neg ]
    [ 0 5 ]
    [ 5 5 ]
    [ 5 5 neg ]
    [ 0 5 neg ]
    [ 0 5 ]
    [ 5 5 ]
    [ 5 5 neg ]
    [ 0 5 neg ]
# a
    [ 10 0 ]
    [ 5 neg 5 ]
    [ 5 5 ]
    [ 5 5 neg ]
    [ 5 neg 5 neg ]
    [ 5 5 ]
    [ 0 5 ]
    [ 0 10 neg ]
    [ 5 0 ]
# n
    [ 0 10 ]
    [ 0 5 neg ]
    [ 5 5 ]
    [ 5 5 neg ]
    [ 0 5 neg ]
# connect line
    [ 5 0 ]
# n
    [ 0 10 ]
    [ 0 5 neg ]
    [ 5 5 ]
    [ 5 5 neg ]
    [ 0 5 neg ]
# trail line
    # [ 10 0 ]
  ] scale mul 10 idiv ==data
  data { 2 dearray neg stitch } each
  data reverse { 2 dearray -01 neg -01 stitch } each
} /produceUffmann deffd

{ =*stitch
  |stitch produceUffmann
  8 {
    0 335 scale mul 100 idiv stitch
    |stitch produceUffmann
  } rep
  0 80 scale mul 100 idiv stitch
  9 { 160 scale mul 100 idiv 0 stitch } rep
  0 80 scale neg mul 100 idiv stitch
  |stitch produceUffmann
  8 {
    0 335 neg scale mul 100 idiv stitch
    |stitch produceUffmann
  } rep
} /produceImage deffd

0 ==xStart 0 ==yStart
0 ==minX 0 ==maxX 0 ==minY 0 ==maxY

{ ""
  [ 10 246 0 ] str .fromArray cat # unknown
  ==data
  list ==collectedData
  {
    stitch data -01 cat =data
    data len 4096 gt {
      data collectedData .append1
      "" =data
    } rep
  } produceImage
  "" collectedData { cat } each data cat
} /rawStitchContent deffst

< xStart ==x yStart ==y
  { ==dy ==dx
    dx 128 neg gt dx 128 lt and
    dy 128 neg gt dy 128 lt and and {
      [ dx dy ] str .fromArray
    } {
      [ 128 1 ] str .fromArray dx <=sn16 dy <=sn16 [ 128 2 ] str .fromArray cat
    } ? *
    x dx add =x
    y dy add =y
    x minX lt { x =minX } rep
    y minY lt { y =minY } rep
    x maxX gt { x =maxX } rep
    y maxY gt { y =maxY } rep
  }
> -- /stitch deffd

rawStitchContent { }_ =*rawStitchContent
maxX minX sub ==xSize
maxY minY sub ==ySize

{ ""
  minX neg xSize 2 div sub 100 mul <=sn32 # start X-offset
  minY neg ySize 2 div sub 100 mul neg <=sn32 # start Y-offset
  [ 1 0 ] str .fromArray cat # unknown
  0 <=sn8 # red
  0 <=sn8 # green
  0 <=sn8 # blue
  [ 0 0 0 5 40 ] str .fromArray cat # unknown
  "1234" string # unknown numeric string
  "Color name" string # unknown what values are acceptable
  "Thread type" string # "Robison-Anton Rayon 40" in all generated files
  0 <=sn32 # start x offset for next color
  0 <=sn32 # start y offset for next color
  "\0" string
  rawStitchContent _ len "" -01 <=un32 -01 cat cat
} /stitchContent deffd

{ ""
  0 <=sn32 # origin X
  0 <=sn32 # origin Y
  [ 0 0 0 ] str .fromArray cat # unknown
  xSize 100 mul 2 div <=sn32
  ySize 100 mul 2 div <=sn32
  xSize 100 mul 2 div neg <=sn32
  ySize 100 mul 2 div neg <=sn32
  xSize 100 mul <=sn32
  ySize 100 mul <=sn32
  "Yet another comment" string
  25700 <=un16 # unknown
  4096 <=un32 # unknown
  0 <=un32 # unknown
  0 <=un32 # unknown
  4096 <=un32 # unknown
  "xxPP
\0" cat # stitch section header
  "Yet another vendor string" string
  1 <=un16 # number of colors
  [ 0 5 0 ] str .fromArray cat # unknown
  stitchContent _ len 1 add "" -01 <=un32 -01 cat cat
} /innerContent deffd

{ ""
  "File comments go here (or don't)" string
  xSize 100 mul 2 div <=sn32
  ySize 100 mul 2 div <=sn32
  xSize 100 mul 2 div neg <=sn32
  ySize 100 mul 2 div neg <=sn32
  [ 0 0 122 134 ] str .fromArray cat # TODO thread length (ahem)
  [ 0 ] str .fromArray cat # unknown
  1 <=un8 # number of colors
  [ 12 0 1 0 3 0 ] str .fromArray cat # unknown
  innerContent _ len "" -01 <=un32 -01 cat cat
} /mainContent deffd

"%vsm%\0"
"Stratum 0 Embroidery Hack\0" string
[ 0 2 0 ] str .fromArray cat # unknown
mainContent _ len "" -01 <=un32 -01 cat cat
<-writeall

<-close

# vim: syn=elymas