/usr/share/doc/libplplot12/examples/d/x07d.d is in libplplot-dev 5.10.0+dfsg-1.
This file is owned by root:root, with mode 0o644.
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 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 | // $Id: x07d.d 12393 2013-06-27 19:49:07Z andrewross $
//
//
// Font demo.
//
import plplot;
import std.string;
int[20] base = [ 0, 100, 0, 100, 200, 500, 600, 700, 800, 900,
2000, 2100, 2200, 2300, 2400, 2500, 2600,
2700, 2800, 2900];
//--------------------------------------------------------------------------
// main
//
// Displays the entire "plsym" symbol (font) set.
//--------------------------------------------------------------------------
int main( char[][] args )
{
string text;
PLFLT[1] x, y;
// Parse and process command line arguments
plparseopts( args, PL_PARSE_FULL );
// Initialize plplot
plinit();
plfontld( 0 );
for ( size_t l = 0; l < 20; l++ )
{
if ( l == 2 )
plfontld( 1 );
pladv( 0 );
// Set up viewport and window
plcol0( 2 );
plvpor( 0.15, 0.95, 0.1, 0.9 );
plwind( 0.0, 1.0, 0.0, 1.0 );
// Draw the grid using plbox
plbox( "bcg", 0.1, 0, "bcg", 0.1, 0 );
// Write the digits below the frame
plcol0( 15 );
for ( size_t i = 0; i <= 9; i++ )
{
text = format( "%d", i );
plmtex( "b", 1.5, ( 0.1 * i + 0.05 ), 0.5, text );
}
size_t k = 0;
for ( size_t i = 0; i <= 9; i++ )
{
// Write the digits to the left of the frame
text = format( "%d", base[l] + 10 * i );
plmtex( "lv", 1.0, ( 0.95 - 0.1 * i ), 1.0, text );
for ( size_t j = 0; j <= 9; j++ )
{
x[0] = 0.1 * j + 0.05;
y[0] = 0.95 - 0.1 * i;
// Display the symbols
plsym( x, y, cast(PLINT) ( base[l] + k ) );
k = k + 1;
}
}
if ( l < 2 )
plmtex( "t", 1.5, 0.5, 0.5, "PLplot Example 7 - PLSYM symbols (compact)" );
else
plmtex( "t", 1.5, 0.5, 0.5, "PLplot Example 7 - PLSYM symbols (extended)" );
}
plend();
return 0;
}
|