doc/info/figures/worldmap_geomap.mac

   1 load("docdraw.mac");
   2
   3
   4 load(worldmap)$
   5    ( bnd0: make_array(flonum,6),
   6      bnd0[0]:1.0, bnd0[1]:1.0, bnd0[2]:2.0,
   7      bnd0[3]:5.0, bnd0[4]:4.0, bnd0[5]:3.0 )$
   8    ( bnd1: make_array(flonum,8),
   9      bnd1[0]:4.0, bnd1[1]:3.0, bnd1[2]:5.0, bnd1[3]:4.0,
  10      bnd1[4]:6.0, bnd1[5]:4.0, bnd1[6]:5.0, bnd1[7]:1.0)$
  11    ( bnd2: make_array(flonum,6),
  12      bnd2[0]:5.0, bnd2[1]:1.0, bnd2[2]:3.0,
  13      bnd2[3]:0.0, bnd2[4]:1.0, bnd2[5]:1.0 )$
  14    ( bnd3: make_array(flonum,4),
  15      bnd3[0]:1.0, bnd3[1]:1.0, bnd3[2]:4.0, bnd3[3]:3.0)$
  16    ( bnd4: make_array(flonum,4),
  17      bnd4[0]:4.0, bnd4[1]:3.0, bnd4[2]:5.0, bnd4[3]:1.0)$
  18    ( boundaries_array: make_array(any,5),
  19      boundaries_array[0]: bnd0, boundaries_array[1]: bnd1,
  20      boundaries_array[2]: bnd2, boundaries_array[3]: bnd3,
  21      boundaries_array[4]: bnd4 )$
  22 docdraw2d("figures/worldmap_geomap",geomap([0,1,2,3,4]))$