[q-lang-cvs] q/modules/magick/examples magicktest.q,1.10,1.11

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

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

Modified Files:
	magicktest.q 
Log Message:
added magick_color and image_label/set_image_label functions, updated examples and docs

Index: magicktest.q
===================================================================
RCS file: /cvsroot/q-lang/q/modules/magick/examples/magicktest.q,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** magicktest.q	31 Dec 2003 00:36:52 -0000	1.10
--- magicktest.q	31 Dec 2003 01:47:53 -0000	1.11
***************
*** 145,151 ****
  
    where IMGS = map (IMGS!) SCENES, LABELS = map (sprintf "#%d") SCENES,
!     _ = zipwith (flip set_image_attr "label") IMGS LABELS,
!     IMG = montage IMGS ("Gallery","5x4","120x120",(),10,true),
!     _ = zipwith (flip set_image_attr "label") IMGS (map (cst ()) LABELS);
  
  /****************************************************************************/
--- 145,150 ----
  
    where IMGS = map (IMGS!) SCENES, LABELS = map (sprintf "#%d") SCENES,
!     _ = zipwith set_image_label IMGS LABELS,
!     IMG = montage IMGS ("Gallery","5x4","120x120",(),10,true);
  
  /****************************************************************************/