DISLIN Examples / Perl
Demonstration of CURVE / Perl
#!/usr/local/bin/perl use Dislin; $n = 101; $pi = 3.1415926; $f = $pi / 180.; $step = 360. / ($n - 1); for ($i = 0; $i < $n; $i++) { $xray[$i] = $i * $step; $x = $xray[$i] * $f; $y1ray[$i] = sin ($x); $y2ray[$i] = cos ($x); } Dislin::scrmod ('revers'); Dislin::metafl ('xwin'); Dislin::disini (); Dislin::complx (); Dislin::pagera (); Dislin::axspos (450, 1800); Dislin::axslen (2200, 1200); Dislin::name ('X-axis', 'X'); Dislin::name ('Y-axis', 'Y'); Dislin::labdig (-1, 'X'); Dislin::ticks (9, 'X'); Dislin::ticks (10, 'Y'); Dislin::titlin ('Demonstration of CURVE', 1); Dislin::titlin ('SIN (X), COS (X)', 3); $ic = Dislin::intrgb (0.95, 0.95, 0.95); Dislin::axsbgd ($ic); Dislin::graf (0., 360., 0., 90., -1., 1., -1., 0.5); Dislin::setrgb (0.7, 0.7, 0.7); Dislin::grid (1, 1); Dislin::color ('fore'); Dislin::height (50); Dislin::title (); Dislin::color ('red'); Dislin::curve (\@xray, \@y1ray, $n); Dislin::color ('green'); Dislin::curve (\@xray, \@y2ray, $n); Dislin::disfin ();
Polar Plots / Perl
#!/usr/bin/perl use Dislin; $n = 300; $m = 10; $pi = 3.1415926; $f = $pi / 180.; $step = 360. / ($n - 1); for ($i = 0; $i < $n; $i++) { $a = ($i * $step) * $f; $xray[$i] = $i * $step; $x = $xray[$i] * $f; $y1[$i] = $a; $x1[$i] = sin (5 * $a); } for ($i = 0; $i < $m; $i++) { $x2[$i] = $i + 1; $y2[$i] = $i + 1; } Dislin::scrmod ('revers'); Dislin::setpag ('da4p'); Dislin::metafl ('cons'); Dislin::disini (); Dislin::hwfont (); Dislin::pagera (); Dislin::titlin ('Polar Plots', 2); Dislin::ticks (3, 'Y'); Dislin::axends ('NOENDS', 'X'); Dislin::labdig (-1, 'Y'); Dislin::axslen (1000, 1000); Dislin::axsorg (1050, 900); $ic = Dislin::intrgb (0.95, 0.95, 0.95); Dislin::axsbgd ($ic); Dislin::grafp (1.,0., 0.2, 0., 30.); Dislin::color ('blue'); Dislin::curve (\@x1, \@y1, $n); Dislin::color ('fore') Dislin::htitle (50); Dislin::title (); Dislin::endgrf (); Dislin::labdig (-1, 'X'); Dislin::axsorg (1050, 2250); Dislin::labtyp ('VERT', 'Y'); Dislin::grafp (10.,0.,2.,0.,30.); Dislin::barwth (-5.); Dislin::polcrv ('FBARS'); Dislin::color ('blue'); Dislin::curve (\@x2, \@y2, $m); Dislin::disfin ();
Symbols / Perl
#!/usr/local/bin/perl use Dislin; $ctit = 'Symbols'; Dislin::scrmod ('revers'); Dislin::setpag ('da4p'); Dislin::metafl ('cons'); Dislin::disini (); Dislin::pagera (); Dislin::complx (); Dislin::height (60); $nl = Dislin::nlmess ($ctit); Dislin::messag ($ctit, (2100 - $nl)/2, 200); Dislin::height (50); Dislin::hsymbl (120); $ny = 150; for ($i = 0; $i < 22; $i++) { if (($i % 4) == 0) { $ny = $ny + 400; $nxp = 550; } else { $nxp = $nxp + 350; } $nl = Dislin::nlnumb ($i, -1); Dislin::number ($i, -1, $nxp - $nl/2, $ny + 150); Dislin::symbol ($i, $nxp, $ny); } Dislin::disfin ();
Interpolation Methods / Perl
#!/usr/local/bin/perl use Dislin; $ctit = 'Interpolation Methods'; @xray = (0., 1., 3., 4.5, 6., 8., 9., 11., 12., 12.5, 13., 15., 16., 17., 19., 20.); @yray = (2., 4., 4.5, 3., 1., 7., 2., 3., 5., 2., 2.5, 2., 4., 6., 5.5, 4.); @cpol = ('SPLINE', 'BARS', 'STEP', 'LINEAR'); Dislin::scrmod ('revers'); Dislin::setpag ('da4p'); Dislin::metafl ('xwin'); Dislin::disini (); Dislin::pagera (); Dislin::complx (); Dislin::incmrk (1); Dislin::hsymbl (25); Dislin::titlin ($ctit, 1); Dislin::axslen (1500, 500); Dislin::setgrf ('LINE', 'LINE', 'LINE', 'LINE'); $ic = Dislin::intrgb (1.0, 1.0, 0.0); Dislin::axsbgd ($ic); $nya = 2700; for ($i = 0; $i < 4; $i++) { Dislin::axspos (350, $nya - $i * 500); Dislin::polcrv ($cpol[$i]); Dislin::marker (0); Dislin::graf (0., 20., 0., 5., 0., 10., 0., 5.); $nx = Dislin::nxposn (1.); $ny = Dislin::nyposn (8.); Dislin::messag ($cpol[$i], $nx, $ny); Dislin.color ("red"); Dislin::curve (\@xray, \@yray, 16); Dislin.color ("fore"); if ($i == 3) { Dislin::height (50); Dislin::title (); } Dislin::endgrf (); } Dislin::disfin ();
Bar Graphs / Perl
#!/usr/local/bin/perl use Dislin; @x = (1., 2., 3., 4., 5., 6., 7., 8., 9.); @y = (0., 0., 0., 0., 0., 0., 0., 0., 0.); @y1 = (1., 1.5, 2.5, 1.3, 2.0, 1.2, 0.7, 1.4, 1.1); @y2 = (2., 2.7, 3.5, 2.1, 3.2, 1.9, 2.0, 2.3, 1.8); @y3 = (4., 3.5, 4.5, 3.7, 4., 2.9, 3.0, 3.2, 2.6); $nya = 2700; $ctit = 'Bar Graphs (BARS)'; Dislin::scrmod ('revers'); Dislin::setpag ('da4p'); Dislin::metafl ('cons'); Dislin::disini (); Dislin::pagera (); Dislin::complx (); Dislin::ticks (1, 'x'); Dislin::intax (); Dislin::axslen (1600, 700); Dislin::titlin ($ctit, 3); Dislin::legini ($cbuf, 3, 8); Dislin::leglin ($cbuf, 'FIRST', 1); Dislin::leglin ($cbuf, 'SECOND', 2); Dislin::leglin ($cbuf, 'THIRD', 3); Dislin::legtit (' '); Dislin::shdpat (5); for ($i = 1; $i <= 3; $i++) { if ($i > 1) { Dislin::labels ('none','x'); } Dislin::axspos (300, $nya-($i-1)*800); Dislin::graf (0., 10., 0., 1., 0., 5., 0., 1.); if ($i == 1) { Dislin::bargrp (3, 0.15); Dislin::color ('red'); Dislin::bars (\@x, \@y, \@y1, 9); Dislin::color ('green'); Dislin::bars (\@x, \@y, \@y2, 9); Dislin::color ('blue'); Dislin::bars (\@x, \@y, \@y3, 9); Dislin::color ('fore'); Dislin::reset ('bargrp'); } elsif ($i == 2) { Dislin::height (30); Dislin::labels ('delta','bars'); Dislin::labpos ('center','bars'); Dislin::color ('red'); Dislin::bars (\@x, \@y, \@y1, 9); Dislin::color ('green'); Dislin::bars (\@x, \@y1, \@y2, 9); Dislin::color ('blue'); Dislin::bars (\@x, \@y2, \@y3, 9); Dislin::color ('fore'); Dislin::reset ('height'); } elsif ($i == 3) { Dislin::labels ('second', 'bars'); Dislin::labpos ('outside', 'bars'); Dislin::color ('red'); Dislin::bars (\@x, \@y, \@y1, 9); Dislin::color ('fore'); } if ($i != 3) { Dislin::legend ($cbuf,7); } if ($i == 3) { Dislin::height (50); Dislin::title (); } Dislin::endgrf (); } Dislin::disfin ();
Pie Charts / Perl
#!/usr/local/bin/perl use Dislin; @xray = (1., 2.5, 2., 2.7, 1.8); $ctit = 'Pie Charts (PIEGRF)'; Dislin::scrmod ('revers'); Dislin::setpag ('da4p'); Dislin::metafl ('cons'); Dislin::disini (); Dislin::pagera (); Dislin::complx (); Dislin::chnpie ('BOTH'); Dislin::axslen (1600, 1000); Dislin::titlin ($ctit, 2); Dislin::legini ($cbuf, 5, 8); Dislin::leglin ($cbuf, 'FIRST', 1); Dislin::leglin ($cbuf, 'SECOND', 2); Dislin::leglin ($cbuf, 'THIRD', 3); Dislin::leglin ($cbuf, 'FOURTH', 4); Dislin::leglin ($cbuf, 'FIFTH', 5); # Selecting shading patterns Dislin::patcyc (1, 7); Dislin::patcyc (2, 4); Dislin::patcyc (3, 13); Dislin::patcyc (4, 3); Dislin::patcyc (5, 5); Dislin::axspos (250, 2800); Dislin::piegrf ($cbuf, 1, \@xray, 5); Dislin::endgrf (); Dislin::axspos (250, 1600); Dislin::labels ('DATA', 'PIE'); Dislin::labpos ('EXTERNAL', 'PIE'); Dislin::piegrf ($cbuf, 1, \@xray, 5); Dislin::height (50); Dislin::title (); Dislin::disfin ();
3-D Bar Graph / 3-D Pie Chart / Perl
#!/usr/local/bin/perl use Dislin; @xray = (2., 4., 6., 8., 10.); @y1ray = (0., 0., 0., 0., 0.); @y2ray = (3.2, 1.5, 2.0, 1.0, 3.0); @ic1ray = (50, 150, 100, 200, 175); @ic2ray = (50, 150, 100, 200, 175); Dislin::scrmod ('revers'); Dislin::metafl ('cons'); Dislin::setpag ('da4p'); Dislin::disini (); Dislin::pagera (); Dislin::hwfont (); Dislin::titlin ('3-D Bar Graph / 3-D Pie Chart', 2); Dislin::htitle (40); Dislin::shdpat (16); Dislin::axslen (1500, 1000); Dislin::axspos (300, 1400); Dislin::barwth (0.5); Dislin::bartyp ('3dvert'); Dislin::labels ('second', 'bars'); Dislin::labpos ('outside', 'bars'); Dislin::labclr (255, 'bars'); Dislin::graf (0., 12., 0., 2., 0., 5., 0., 1.); Dislin::title (); Dislin::color ('red'); Dislin::bars (\@xray, \@y1ray, \@y2ray, 5); Dislin::endgrf (); Dislin::shdpat (16); Dislin::labels ('data', 'pie'); Dislin::labclr (255, 'pie'); Dislin::chnpie ('none'); Dislin::pieclr (\@ic1ray, \@ic2ray, 5); Dislin::pietyp ('3d'); Dislin::axspos (300, 2700); Dislin::piegrf ($cbuf, 0, \@y2ray, 5); Dislin::disfin ();
3-D Bars / BARS3D / Perl
#!/usr/bin/perl use Dislin; $n = 18; @xray = (1., 3., 8., 1.5, 9., 6.3, 5.8, 2.3, 8.1, 3.5, 2.2, 8.7, 9.2, 4.8, 3.4, 6.9, 7.5, 3.8); @yray = (5., 8., 3.5, 2., 7., 1.,4.3, 7.2, 6.0, 8.5, 4.1, 5.0, 7.3, 2.8, 1.6, 8.9, 9.5, 3.2); @z1ray = (0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0., 0.); @z2ray = (4., 5., 3., 2., 3.5, 4.5, 2., 1.6, 3.8, 4.7, 2.1, 3.5, 1.9, 4.2, 4.9, 2.8, 3.6, 4.3); @icray = (30, 30, 30, 30, 30, 30, 100, 100, 100, 100, 100, 100, 170, 170, 170, 170, 170, 170); for ($i = 0; $i < $n; $i++) { $xwray[$i] = 0.5; $ywray[$i] = 0.5; } Dislin::scrmod ('revers'); Dislin::metafl ('xwin'); Dislin::setpag ('da4p'); Dislin::disini (); Dislin::hwfont (); Dislin::pagera (); Dislin::axspos (200, 2600); Dislin::axslen (1800, 1800); Dislin::name ('X-axis', 'X'); Dislin::name ('Y-axis', 'Y'); Dislin::name ('Z-axis', 'Z'); Dislin::titlin ('3-D Bars / BARS3D',3); Dislin::labl3d ('hori'); Dislin::graf3d (0.,10.,0.,2.,0.,10.,0.,2.,0.,5.,0.,1.); Dislin::grid3d (1,1, 'bottom'); Dislin::bars3d (\@xray, \@yray, \@z1ray, \@z2ray, \@xwray, \@ywray, \@icray, $n); Dislin::legini ($cbuf, 3, 20); Dislin::legtit (' '); Dislin::legpos (1350, 1150); Dislin::leglin ($cbuf, 'First', 1); Dislin::leglin ($cbuf, 'Second', 2); Dislin::leglin ($cbuf, 'Third', 3); Dislin::legend ($cbuf, 3); Dislin::height (50); Dislin::title (); Dislin::disfin ();
Shading Patterns / Perl
#!/usr/local/bin/perl use Dislin; @ix = (0, 300, 300, 0); @iy = (0, 0, 400, 400); @ixp = (0, 0, 0, 0); @iyp = (0, 0, 0, 0); $ctit = "Shading patterns (AREAF)"; Dislin::scrmod ('revers'); Dislin::metafl ("cons"); Dislin::disini (); Dislin::setvlt ("small"); Dislin::pagera (); Dislin::complx (); Dislin::height (50); $nl = Dislin::nlmess ($ctit); Dislin::messag ($ctit, (2970 - $nl)/2, 200); $nx0 = 335; $ny0 = 350; $iclr = 0; for ($i = 0; $i < 3; $i++) { $ny = $ny0 + $i * 600; for ($j = 0; $j < 6; $j++) { $nx = $nx0 + $j * 400; $ii = $i * 6 + $j; Dislin::shdpat ($ii); $iclr = $iclr + 1; Dislin::setclr ($iclr); for ($k = 0; $k < 4; $k++) { $ixp[$k] = $ix[$k] + $nx; $iyp[$k] = $iy[$k] + $ny; } Dislin::areaf (\@ixp, \@iyp, 4); $nl = Dislin::nlnumb ($ii, -1); $nx = $nx + (300 - $nl) / 2; Dislin::color ("foreground"); Dislin::number ($ii, -1, $nx, $ny + 460); } } Dislin::disfin ();
3-D Colour Plot / Perl
#!/usr/local/bin/perl use Dislin; $ctit1 = '3-D Colour Plot of the Function'; $ctit2 = 'F(X,Y) = 2 * SIN(X) * SIN (Y)'; $n = 50; $m = 50; $fpi = 3.1415927 / 180.; $stepx = 360. / ($n - 1); $stepy = 360. / ($m - 1); for ($i = 0; $i < $n; $i++) { $x[$i] = $i * $stepx; for ($j = 0; $j < $m; $j++) { $y[$j] = $j * $stepy; $zmat[$i][$j] = 2 * sin($x[$i] * $fpi) * sin($y[$j] * $fpi); } } Dislin::scrmod ('revers'); Dislin::metafl ('cons'); Dislin::disini (); Dislin::pagera (); Dislin::complx (); Dislin::titlin ($ctit1, 2); Dislin::titlin ($ctit2, 4); Dislin::name ('X-axis', 'X'); Dislin::name ('Y-axis', 'Y'); Dislin::name ('Z-axis', 'Z'); Dislin::intax (); Dislin::autres ($n, $m); Dislin::axspos (300, 1850); Dislin::ax3len (2200, 1400, 1400); Dislin::graf3 (0., 360., 0., 90., 0., 360., 0., 90., -2., 2., -2., 1.); Dislin::crvmat (\@zmat, $n, $m, 1, 1); Dislin::height (50); Dislin::title (); Dislin::disfin ();
Surface Plot / Perl
#!/usr/local/bin/perl use Dislin; $ctit1 = 'Surface Plot of the Function'; $ctit2 = 'F(X,Y) = 2 * SIN(X) * SIN (Y)'; $n = 60; $m = 50; $fpi = 3.1415927 / 180.; $stepx = 360. / ($n - 1); $stepy = 360. / ($m - 1); for ($i = 0; $i < $n; $i++) { $x[$i] = $i * $stepx; for ($j = 0; $j < $m; $j++) { $y[$j] = $j * $stepy; $zmat[$i][$j] = 2 * sin($x[$i] * $fpi) * sin($y[$j] * $fpi); } } Dislin::scrmod ('revers'); Dislin::metafl ('cons'); Dislin::setpag ('da4p'); Dislin::disini (); Dislin::pagera (); Dislin::complx (); Dislin::titlin ($ctit1, 2); Dislin::titlin ($ctit2, 4); Dislin::axspos (200, 2600); Dislin::axslen (1800, 1800); Dislin::name ('X-axis', 'X'); Dislin::name ('Y-axis', 'Y'); Dislin::name ('Z-axis', 'Z'); Dislin::view3d (-5., -5., 4., 'ABS'); Dislin::graf3d (0., 360., 0., 90., 0., 360., 0., 90., -3., 3., -3., 1.); Dislin::height (50); Dislin::title (); Dislin::color ('green'); Dislin::surmat (\@zmat, $n, $m, 1, 1); Dislin::disfin ();
Shaded Surface Plot / Perl
#!/usr/local/bin/perl use Dislin; $ctit1 = 'Shaded Surface Plot'; $ctit2 = 'F(X,Y) = 2 * SIN(X) * SIN (Y)'; $n = 50; $m = 50; $fpi = 3.1415927 / 180.; $stepx = 360. / ($n - 1); $stepy = 360. / ($m - 1); for ($i = 0; $i < $n; $i++) { $x[$i] = $i * $stepx; for ($j = 0; $j < $m; $j++) { $y[$j] = $j * $stepy; $zmat[$i][$j] = 2 * sin($x[$i] * $fpi) * sin($y[$j] * $fpi); } } Dislin::scrmod ('revers'); Dislin::metafl ('cons'); Dislin::setpag ('da4p'); Dislin::disini (); Dislin::pagera (); Dislin::complx (); Dislin::titlin ($ctit1, 2); Dislin::titlin ($ctit2, 4); Dislin::axspos (200, 2600); Dislin::axslen (1800, 1800); Dislin::name ('X-axis', 'X'); Dislin::name ('Y-axis', 'Y'); Dislin::name ('Z-axis', 'Z'); Dislin::view3d (-5., -5., 4., 'ABS'); Dislin::graf3d (0., 360., 0., 90., 0., 360., 0., 90., -3., 3., -3., 1.); Dislin::height (50); Dislin::title (); Dislin::shdmod ('smooth', 'surface'); Dislin::surshd (\@x, $n, \@y, $m, \@zmat); Dislin::disfin ();
Contour Plot / Perl
#!/usr/local/bin/perl use Dislin; $ctit1 = 'Contour Plot of the Function'; $ctit2 = 'F(X,Y) = 2 * SIN(X) * SIN (Y)'; $n = 60; $m = 50; $fpi = 3.1415927 / 180.; $stepx = 360. / ($n - 1); $stepy = 360. / ($m - 1); for ($i = 0; $i < $n; $i++) { $xray[$i] = $i * $stepx; for ($j = 0; $j < $m; $j++) { $yray[$j] = $j * $stepy; $zmat[$i][$j] = 2 * sin($xray[$i] * $fpi) * sin($yray[$j] * $fpi); } } Dislin::scrmod ('revers'); Dislin::metafl ('cons'); Dislin::setpag ('da4p'); Dislin::disini (); Dislin::pagera (); Dislin::complx (); Dislin::titlin ($ctit1, 2); Dislin::titlin ($ctit2, 4); Dislin::axspos (450, 2670); Dislin::name ('X-axis', 'X'); Dislin::name ('Y-axis', 'Y'); Dislin::graf (0., 360., 0., 90., 0., 360., 0., 90.); Dislin::height (30); for ($i = 0; $i < 9; $i++) { $zlev = -2. + $i * 0.5; if ($i == 4) { Dislin::labels ('NONE', 'CONTUR'); } else { Dislin::labels ('FLOAT', 'CONTUR'); } Dislin::setclr (($i+1) * 28); Dislin::contur (\@xray, $n, \@yray, $m, \@zmat, $zlev); } Dislin::color ('FORE'); Dislin::height (50); Dislin::title (); Dislin::disfin ();
Shaded Contour Plot / Perl
#!/usr/local/bin/perl use Dislin; $ctit1 = 'Shaded Contour Plot'; $ctit2 = 'F(X,Y) = (X[2$ - 1)[2$ + (Y[2$ - 1)[2$'; $n = 50; $m = 80; $stepx = 1.6 / ($n - 1); $stepy = 1.6 / ($m - 1); for ($i = 0; $i < $n; $i++) { $xray[$i] = $i * $stepx; $x = $xray[$i] * $xray[$i] - 1.; $x2 = $x * $x; for ($j = 0; $j < $m; $j++) { $yray[$j] = $j * $stepy; $y = $yray[$j] * $yray[$j] - 1.; $y2 = $y * $y; $zmat[$i][$j] = $x2 + $y2; } } Dislin::scrmod ('revers'); Dislin::metafl ('cons'); Dislin::setpag ('da4p'); Dislin::disini (); Dislin::pagera (); Dislin::complx (); Dislin::mixalf (); Dislin::titlin ($ctit1, 1); Dislin::titlin ($ctit2, 3); Dislin::name ('X-axis', 'X'); Dislin::name ('Y-axis', 'Y'); Dislin::axspos (450, 2670); Dislin::shdmod ('poly', 'contur'); Dislin::graf (0., 1.6, 0., 0.2, 0., 1.6, 0., 0.2); for ($i = 0; $i < 12; $i++) { $zlev[11-$i] = 0.1 + $i * 0.1; } Dislin::conshd (\@xray, $n, \@yray, $m, \@zmat, \@zlev, 12); Dislin::height (50); Dislin::title (); Dislin::disfin ();
Shaded Surface / Contour Plot / Perl
#!/usr/local/bin/perl use Dislin; $ctit1 = 'Shaded Surface / Contour Plot'; $ctit2 = 'F(X,Y) = 2 * SIN(X) * SIN (Y)'; $n = 50; $m = 50; $nlev = 20; $fpi = 3.1415927 / 180.; $stepx = 360. / ($n - 1); $stepy = 360. / ($m - 1); for ($i = 0; $i < $n; $i++) { $x[$i] = $i * $stepx; for ($j = 0; $j < $m; $j++) { $y[$j] = $j * $stepy; $zmat[$i][$j] = 2 * sin($x[$i] * $fpi) * sin($y[$j] * $fpi); } } Dislin::scrmod ('revers'); Dislin::metafl ('cons'); Dislin::setpag ('da4p'); Dislin::disini (); Dislin::pagera (); Dislin::hwfont (); Dislin::titlin ($ctit1, 2); Dislin::titlin ($ctit2, 4); Dislin::axspos (200, 2600); Dislin::axslen (1800, 1800); Dislin::name ('X-axis', 'X'); Dislin::name ('Y-axis', 'Y'); Dislin::name ('Z-axis', 'Z'); Dislin::graf3d (0., 360., 0., 90., 0., 360., 0., 90., -2., 2., -2., 1.); Dislin::height (50); Dislin::title (); Dislin::grfini (-1., -1., -1., 1., -1., -1., 1., 1., -1.); Dislin::nograf (); Dislin::graf (0., 360., 0., 90., 0., 360., 0., 90.); $step = 4. / $nlev; for ($i = 0; $i < $nlev; $i++) { $zlev[$i] = -2.0 + $i * $step; } Dislin::conshd (\@x, $n, \@y, $n, \@zmat, \@zlev, $nlev); Dislin::box2d (); Dislin::reset ('nograf'); Dislin::grffin (); Dislin::shdmod ('smooth', 'surface'); Dislin::surshd (\@x, $n, \@y, $m, \@zmat); Dislin::disfin ();
Spheres and Tubes / Perl
#!/usr/local/bin/perl use Dislin; @x = (10., 20., 10., 20., 5., 15., 25., 5., 15., 25., 5., 15., 25., 10., 20., 10., 20.); @y = (10., 10., 20., 20., 5., 5., 5., 15., 15., 15., 25., 25., 25., 10., 10., 20., 20.); @z = (5., 5., 5., 5., 15., 15., 15., 15., 15., 15., 15., 15., 15., 25., 25., 25., 25.); @idx = (1, 2, 1, 3, 3, 4, 2, 4, 5, 6, 6, 7, 8, 9, 9, 10, 11, 12, 12, 13, 5, 8, 8, 11, 6, 9, 9, 12, 7, 10, 10, 13, 14, 15, 16, 17, 14, 16, 15, 17, 1, 5, 2, 7, 3, 11, 4, 13, 5, 14, 7, 15, 11, 16, 13, 17); Dislin::setpag ('da4p'); Dislin::scrmod ('revers'); Dislin::metafl ('cons'); Dislin::disini (); Dislin::pagera (); Dislin::hwfont (); Dislin::light ('on'); Dislin::matop3 (0.02, 0.02, 0.02, 'specular'); Dislin::clip3d ('none'); Dislin::axspos (0, 2500); Dislin::axslen (2100, 2100); Dislin::htitle (50); Dislin::titlin ('Spheres and Tubes', 4); Dislin::name ('X-axis', 'x'); Dislin::name ('Y-axis', 'y'); Dislin::name ('Z-axis', 'z'); Dislin::labdig (-1, 'xyz'); Dislin::labl3d ('hori'); Dislin::graf3d (0., 30., 0., 5., 0., 30., 0., 5., 0., 30., 0., 5.); Dislin::title (); Dislin::shdmod ('smooth', 'surface'); $iret = Dislin::zbfini(); Dislin::matop3 (1.0, 0.0, 0.0, 'diffuse'); for ($i = 0; $i < 17; $i++) { Dislin::sphe3d ($x[$i], $y[$i], $z[$i], 2.0, 50, 25); } Dislin::matop3 (0.0, 1.0, 0.0, 'diffuse'); for ($i = 0; $i < 56; $i += 2) { $j1 = $idx[$i] - 1; $j2 = $idx[$i+1] - 1; Dislin::tube3d ($x[$j1], $y[$j1], $z[$j1], $x[$j2], $y[$j2], $z[$j2], 0.5, 5, 5); } Dislin::zbffin (); Dislin::disfin ();
Some Solids / Perl
#!/usr/local/bin/perl use Dislin; Dislin::setpag ('da4p'); Dislin::scrmod ('revers'); Dislin::metafl ('cons'); Dislin::disini (); Dislin::pagera (); Dislin::hwfont (); Dislin::light ('on'); Dislin::litop3(1,0.5,0.5,0.5,'ambient'); Dislin::clip3d ('none'); Dislin::axspos (0, 2500); Dislin::axslen (2100, 2100); Dislin::htitle (60); Dislin::titlin ('Some Solids', 4); Dislin::nograf (); Dislin::graf3d (-5., 5., -5., 2., -5., 5., -5., 2., -5., 5., -5., 2.); Dislin::title (); Dislin::shdmod ('smooth', 'surface'); $iret = Dislin::zbfini(); Dislin::matop3 (1.0, 0.5, 0.0, 'diffuse'); Dislin::tube3d (-3., -3., 8.0, 2., 3., 5.5, 1., 40, 20); Dislin::rot3d (-60., 0., 0.); Dislin::matop3 (1.0, 0.0, 1.0, 'diffuse'); Dislin::setfce ('bottom'); Dislin::matop3 (1.0, 0.0, 0.0, 'diffuse'); Dislin::cone3d (-3., -3., 3.5, 2., 3., 3., 40, 20); Dislin::setfce ('top'); Dislin::rot3d (0., 0., 0.); Dislin::matop3 (0.0, 1.0, 1.0, 'diffuse'); Dislin::plat3d (4., 4., 3., 3., 'icos'); Dislin::rot3d (0., 0., 0.); Dislin::matop3 (1.0, 1.0, 0.0, 'diffuse'); Dislin::sphe3d (0., 0., 0., 3., 40, 20); Dislin::rot3d (0., 0., -20.); Dislin::matop3 (0.0, 0.0, 1.0, 'diffuse'); Dislin::quad3d (-4., -4., -3., 3., 3., 3.); Dislin::rot3d (0., 0., 30.); Dislin::matop3 (1.0, 0.3, 0.3, 'diffuse'); Dislin::pyra3d (-2., -5., -10., 3., 5., 5., 4); Dislin::rot3d (0., 0., 0.); Dislin::matop3 (1.0, 0.0, 0.0, 'diffuse'); Dislin::torus3d (7., -3., -2., 1.5, 3.5, 1.5, 0., 360., 40, 20); Dislin::rot3d (0., 90., 0.); Dislin::matop3 (0.0, 1.0, 0.0, 'diffuse'); Dislin::torus3d (7., -5., -2., 1.5, 3.5, 1.5, 0., 360., 40, 20); Dislin::zbffin (); Dislin::disfin ();
Map Plot / Perl
#!/usr/local/bin/perl use Dislin; Dislin::scrmod ('revers'); Dislin::metafl ('xwin'); Dislin::disini (); Dislin::pagera (); Dislin::complx (); Dislin::axspos (400, 1850); Dislin::axslen (2400, 1400); Dislin::name ('Longitude', 'X'); Dislin::name ('Latitude', 'Y'); Dislin::titlin ('World Coastlines and Lakes', 3); Dislin::labels ('MAP', 'XY'); Dislin::digits (-1, 'XY'); Dislin::grafmp (-180., 180., -180., 90., -90., 90., -90., 30.); Dislin::gridmp (1, 1); Dislin::color ('green'); Dislin::world (); Dislin::color ('foreground'); Dislin::height (50); Dislin::title (); Dislin::disfin ();
TeX Instructions for Mathematical Formulas / Perl
#!/usr/local/bin/perl use Dislin; Dislin::scrmod ('revers'); Dislin::metafl ('cons') Dislin::setpag ('da4p'); Dislin::disini (); Dislin::pagera (); Dislin::complx (); Dislin::height (40); $cstr = 'TeX Instructions for Mathematical Formulas'; $nl = Dislin::nlmess ($cstr); Dislin::messag ($cstr, (2100 - $nl)/2, 100); Dislin::texmod ('on'); Dislin::messag ('$\\frac{1}{x+y}$', 150, 400); Dislin::messag ('$\\frac{a^2 - b^2}{a+b} = a - b$', 1200, 400); Dislin::messag ('$r = \\sqrt{x^2 + y^2}', 150, 700); Dislin::messag ('$\\cos \\phi = \\frac{x}{\\sqrt{x^2 + y^2}}$', 1200, 700); Dislin::messag ('$\\Gamma(x) = \\int_0^\\infty e^{-t}t^{x-1}dt$', 150, 1000); Dislin::messag ('$\\lim_{x \\to \\infty} (1 + \\frac{1}{x})^x = e$', 1200, 1000); Dislin::messag ('$\\mu = \\sum_{i=1}^n x_i p_i$', 150, 1300); Dislin::messag ('$\\mu = \\int_{-\\infty}^ \\infty x f(x) dx$', 1200, 1300); Dislin::messag ('$\\overline{x} = \\frac{1}{n} \\sum_{i=1}^n x_i$', 150, 1600); Dislin::messag ('$s^2 = \\frac{1}{n-1} \\sum_{i=1}^n (x_i - \\overline{x})^2$', 1200, 1600); Dislin::messag ('$\\sqrt[n]{\\frac{x^n - y^n}{1 + u^{2n}}}$', 150, 1900); Dislin::messag ('$\\sqrt[3]{-q + \\sqrt{q^2 + p^3}}$', 1200, 1900); Dislin::messag ('$\\int \\frac{dx}{1+x^2} = \\arctan x + C$', 150, 2200); Dislin::messag ('$\\int \\frac{dx}{\\sqrt{1+x^2}} = {\\rm arsinh} x + C$', 1200, 2200); Dislin::messag ('$\\overline{P_1P_2} = \\sqrt{(x_2-x_1)^2 + (y_2-y_1)^2}$', 150,2500); Dislin::messag ('$x = \\frac{x_1 + \\lambda x_2}{1 + \\lambda}$', 1200, 2500); Dislin::disfin ();
Web Example/Perl
#!/usr/bin/perl use Dislin; print "Content-type: image/png\n\n"; $ctit1 = 'Surface Plot of the Function'; $ctit2 = 'F(X,Y) = 2 * SIN(X) * SIN (Y)'; $n = 60; $m = 50; $fpi = 3.1415927 / 180.; $stepx = 360. / ($n - 1); $stepy = 360. / ($m - 1); for ($i = 0; $i < $n; $i++) { $x[$i] = $i * $stepx; for ($j = 0; $j < $m; $j++) { $y[$j] = $j * $stepy; $zmat[$i][$j] = 2 * sin($x[$i] * $fpi) * sin($y[$j] * $fpi); } } Dislin::scrmod ('revers'); Dislin::metafl ('virt'); # defines a virtual image in memory Dislin::setpag ('da4p'); Dislin::disini (); Dislin::unit (0); Dislin::pagera (); Dislin::titlin ($ctit1, 2); Dislin::titlin ($ctit2, 4); Dislin::axspos (200, 2600); Dislin::axslen (1800, 1800); Dislin::name ('X-axis', 'X'); Dislin::name ('Y-axis', 'Y'); Dislin::name ('Z-axis', 'Z'); Dislin::view3d (-5., -5., 4., 'ABS'); Dislin::graf3d (0., 360., 0., 90., 0., 360., 0., 90., -3., 3., -3., 1.); Dislin::height (50); Dislin::titlin ($ctit2, 4); Dislin::axspos (200, 2600); Dislin::axslen (1800, 1800); Dislin::name ('X-axis', 'X'); Dislin::name ('Y-axis', 'Y'); Dislin::name ('Z-axis', 'Z'); Dislin::view3d (-5., -5., 4., 'ABS'); Dislin::graf3d (0., 360., 0., 90., 0., 360., 0., 90., -3., 3., -3., 1.); Dislin::height (50); Dislin::title (); Dislin::color ('green'); Dislin::surmat (\@zmat, $n, $m, 1, 1); $n=Dislin::rbfpng ($cbuf, 0); # request size of PNG file Dislin::rbfpng ($cbuf, $n); # copy image as PNG file to variable $cbuf Dislin::disfin (); print $cbuf;

News
Support for Python 3.11 and Windows
28. July 2023
Bug fix for the X11 distributions
22. July 2023
Upgrade 11.5.1
25. April 2023
Support for Linux 64-bit on IBM z series
30. October 2022
Support for MingW 64-bit UCRT runtime environment
28. September 2022
Release 11.5
15. March 2022
Release 11.4
15. March 2021
Support for Free Pascal 64-bit on Windows
22. July 2020
Upgrade 11.3.3
28. June 2020
Upgrade 11.3.2
19. May 2020
DISLIN Book Version 11 is available
8. March 2017
28. July 2023
Bug fix for the X11 distributions
22. July 2023
Upgrade 11.5.1
25. April 2023
Support for Linux 64-bit on IBM z series
30. October 2022
Support for MingW 64-bit UCRT runtime environment
28. September 2022
Release 11.5
15. March 2022
Release 11.4
15. March 2021
Support for Free Pascal 64-bit on Windows
22. July 2020
Upgrade 11.3.3
28. June 2020
Upgrade 11.3.2
19. May 2020
DISLIN Book Version 11 is available
8. March 2017