/usr/share/doc/libgraphics-libplot-perl/examples/rothello is in libgraphics-libplot-perl 2.2.2-7.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | #!/usr/bin/perl
use Graphics::Libplot ':ALL';
# type of plotting device
$device = 'X';
if (@ARGV) {
$device = $ARGV[0];
# die "Uknown device: $ARGV[0]" unless $ARGV[0] =~ /^ps|X|fig$/;
}
$handle = $angle = 0;
# /* set Plotter parameters */
pl_parampl ("BITMAPSIZE", "300x300");
pl_parampl ("BG_COLOR", "blue"); # /* background color for window */
pl_parampl ("USE_DOUBLE_BUFFERING", "yes");
$handle = pl_newpl ($device, stdin, stdout, stderr);
pl_selectpl ($handle);
pl_openpl ();
pl_fspace (0.0, 0.0, 1.0, 1.0); # /* use normalized coordinates */
pl_pencolorname ("white");
pl_ffontsize (0.2);
pl_fontname ("NewCenturySchlbk-Roman");
pl_fmove (.50,.50); # /* move to center */
$x = 0;
while ($x++ < 1000) # /* loop endlessly */
{
pl_erase ();
pl_textangle($angle++); # /* set new rotation angle */
pl_alabel(ord 'c', ord 'c', "Hello"); # /* draw a centered `A' */
}
pl_closepl(); # /* close Plotter */
pl_selectpl (0); # /* select default Plotter */
pl_deletepl ($handle);
1; # OK
|