view release on metacpan or  search on metacpan

Demos/Gnuplot_demo.pm  view on Meta::CPAN

228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
  $w->plot( {tit=>'heat map',       clut=>'heat1'}, with=>'image', $im );
  $w->plot( {tit=>'3d perspective', trid=>1},       with=>'pm3d',  $im );
  $w->end_multi;
 
|;
 
 
 
act q|
  # You can indpendently specify color and position on surface plots,
  # and can overlay multiple types of plot -- even in 3D.
  # 
  $rv = rvals(101,101)/5;             $im = cos($rv)/($rv+2.5);
  $grad = sumover $im->range([[-1,0],[1,0]],[$im->dims],'e') * pdl(-1,1);
 
  $im2 = $im->indexND(ndcoords(26,26)*4);  # subsample $im
 
  $w->reset;
  $w->options( trid=>1,   hidden=>'front',  colorbox=>0,  clut=>'heat1'  );
 
  $w->multiplot(layout=>[2,2]);