doc/info/figures/draw_color3.mac

   1 load("docdraw.mac");
   2 H(p,p_0):=%i/(2*%pi*(p-p_0));
   3 docdraw2d(
   4     "figures/draw_color3",
   5     proportional_axes=xy,
   6     ip_grid=[150,150],
   7     grid=true,
   8     makelist(
   9         [
  10             color=printf(false,"#~2,'0x~2,'0x~2,'0x",i*10,0,0),
  11             key_pos=top_left,
  12             key = if mod(i,5)=0 then sconcat("H=",i,"A/M") else "",
  13             implicit(
  14                 cabs(H(x+%i*y,-1-%i)+H(x+%i*y,1+%i)-H(x+%i*y,1-%i)-H(x+%i*y,-1+%i))=i/10,
  15                 x,-3,3,
  16                 y,-3,3
  17             )
  18         ],
  19         i,1,25
  20     )
  21 )$