ipl/gpacks/weaving/testdraw.icn


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

link wopen

procedure main()

   ims := read()

   ims ? {
      size := tab(upto(','))
      }
   WOpen("size=" || size || "," || size) | stop("*** cannot open file")

   DrawImage(0, 0, ims) | stop("*** DrawImage() failed")

   WriteImage("testscan.gif")

   ZDone()

end