doc/info/docdraw.mac

   1 load("draw")$
   2 docdraw(name,[contents]):=
   3 (
   4     draw(
   5         append(
   6                 [
   7                         terminal=pngcairo,
   8                         dimensions=[800,600],
   9                         file_name=name
  10                 ],
  11                 contents
  12         )
  13     ),
  14     draw(
  15         append(
  16                 [
  17                         terminal=pdf,
  18                         dimensions=[1200,800],
  19                         file_name=name
  20                 ],
  21                 contents
  22         )
  23     )
  24 )$
  25 docdraw2d(name,[contents]):=docdraw(name,gr2d(contents))$
  26 docdraw3d(name,[contents]):=docdraw(name,gr3d(contents))$
  27 docplot(name,[contents]):=
  28 (
  29     apply(
  30         plot,
  31         append(
  32                 [
  33                         [png_file, name]
  34                 ],
  35                 contents
  36         )
  37     ),
  38     apply(
  39         plot,
  40         append(
  41                 [
  42                         [pdf_file, name]
  43                 ],
  44                 contents
  45         )
  46     )
  47 )$
  48
  49 doc_julia(name,[contents]):=
  50 (
  51     apply(
  52         julia,
  53         append(
  54                 contents,
  55                 [
  56                         [png_file, sconcat(name,".png")]
  57                 ]
  58         )
  59     ),
  60     apply(
  61         julia,
  62         append(
  63                 contents,
  64                 [
  65                         [pdf_file, sconcat(name,".pdf")]
  66                 ]
  67         )
  68     )
  69 )$
  70
  71 doc_mandelbrot(name,[contents]):=
  72 (
  73     apply(
  74         mandelbrot,
  75         append(
  76                 contents,
  77                 [
  78                         [png_file, sconcat(name,".png")]
  79                 ]
  80         )
  81     ),
  82     apply(
  83         mandelbrot,
  84         append(
  85                 contents,
  86                 [
  87                         [pdf_file, sconcat(name,".pdf")]
  88                 ]
  89         )
  90     )
  91 )$
  92
  93 doc_plot2d(name,[contents]):=
  94 (
  95     apply(
  96         plot2d,
  97         append(
  98                 contents,
  99                 [
 100                         [png_file, sconcat(name,".png")]
 101                 ]
 102         )
 103     ),
 104     apply(
 105         plot2d,
 106         append(
 107                 contents,
 108                 [
 109                         [pdf_file, sconcat(name,".pdf")]
 110                 ]
 111         )
 112     )
 113 )$
 114
 115 doc_plot3d(name,[contents]):=
 116 (
 117     apply(
 118         plot3d,
 119         append(
 120                 contents,
 121                 [
 122                         [png_file, sconcat(name,".png")]
 123                 ]
 124         )
 125     ),
 126     apply(
 127         plot3d,
 128         append(
 129                 contents,
 130                 [
 131                         [pdf_file, sconcat(name,".pdf")]
 132                 ]
 133         )
 134     )
 135 )$