[q-lang-cvs] q/modules/magick/examples magicktest.q,1.12,1.13

[<ag...@us...>]

Update of /cvsroot/q-lang/q/modules/magick/examples
In directory sc8-pr-cvs1:/tmp/cvs-serv21541/examples

Modified Files:
	magicktest.q 
Log Message:
bug fix in draw example

Index: magicktest.q
===================================================================
RCS file: /cvsroot/q-lang/q/modules/magick/examples/magicktest.q,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** magicktest.q	31 Dec 2003 06:18:39 -0000	1.12
--- magicktest.q	31 Dec 2003 06:27:57 -0000	1.13
***************
*** 162,166 ****
  = animate IMGS
  
!   where IMGS = map (IMGS!) SCENES, H:Int = image_height (hd IMGS),
      CMD = sprintf "fill white text 10,%d #%%d" (H-10),
      LABELS = map (sprintf CMD) SCENES, _ = zipwith draw IMGS LABELS,
--- 162,167 ----
  = animate IMGS
  
!   where IMGS = map (compose clone_image (IMGS!)) SCENES,
!     H:Int = image_height (hd IMGS),
      CMD = sprintf "fill white text 10,%d #%%d" (H-10),
      LABELS = map (sprintf CMD) SCENES, _ = zipwith draw IMGS LABELS,