\documentstyle[12pt,piclatex]{article}
\pagestyle{empty}
% A4 page setting
\setlength{\textwidth}{16cm} 	\setlength{\textheight}{23cm}
\setlength{\oddsidemargin}{0pt} \setlength{\evensidemargin}{0pt}
\setlength{\topmargin}{0pt} 	\setlength{\parskip}{6pt}
\setlength{\parindent}{0pt} 	\everymath{\rm}

\begin{document}

This is an example of what may be achieved with PICTeX. The information
contained herein is with actual data from actual reports by myself, and 
thus must be considered proprietary. It may not be used for any other
purpose than as PICTeX example.
\typeout{There are five elaborate graphs in this example}
\typeout{This may take a while. Be patient. Wim van Dorst.}

Wim van Dorst (C) 1993,1995 Akzo Nobel Chemicals bv, The Netherlands. 
.\hrulefill.

\vspace{\baselineskip}
This gives an graphical overview of projects currently going on.
\typeout{First graph out of five}

{\footnotesize $$\beginpicture

\setcoordinatesystem units <4mm,6mm> 
\setplotarea x from 0 to 12, y from 0 to 5.5
\setlinear

\setsolid
\axis bottom label {Elapsed time 1993}
      ticks short in from 1 to 12 by 1 
      withvalues J F M A M J J A S O N D /
      length <0pt> from 0.5 to 11.5 by 1.0 /
\axis left label {\stack{Man,months}}
      ticks short numbered from 0 to 5 by 1 /

\plot      % project A: budget 3
  0.5 0.00 % aanvang 15 januari
  1 0.21   % jan 0.21
  2 0.83   % feb 0.83
  3 1.24   % mar 0.43
  4 1.72   % apr 0.47
  5 2.34   % mei 0.60
  6 3.08   % jun 0.74
  7 3.38   % jul 0.30
/
\plot      % Project B: budget 4
  0 0.00   % aanvang 1 januari
  1 0.50   % jan 0.50
  2 0.71   % feb 0.21
  3 0.91   % mar 0.20
  4 1.19   % apr 0.28
  5 1.48   % mei 0.29
  6 1.83   % jun 0.35
  7 2.21   % jul 0.38
/

\findlength {\plot 7 3.38   8 3.00  /} 
\setdashesnear <1mm> for <\totalarclength>
\plot 7 3.38  8 3.00 /
\put {Project-A}  [br] <0pt,1mm> at 7 3.00

\findlength {\plot 7 2.21   11 4.00  /} 
\setdashesnear <1mm> for <\totalarclength>
\plot 7 2.21  11 4.00 /
\put {Project-B} [b] <0pt,1mm> at 11 4.00
 
\setdots 
\plot 7 0.0  7 5.50 /
\put {Now} [l] <1mm,0pt>  at 7 5.00


\setcoordinatesystem units <4mm,6mm> point at -14 0
\setplotarea x from 0 to 12, y from 0 to 5.5
\normalgraphs
\setlinear

\setsolid
\axis bottom label {Elapsed time 1993}
      ticks short in from 1 to 12 by 1 
      withvalues J F M A M J J A S O N D /
      length <0pt> from 0.5 to 11.5 by 1.0 /
\axis left 
      ticks short numbered from 0 to 5 by 1 /

\plot      % Project C: budget 2
  1 0.00   % aanvang 1 februari
  2 0.14   % feb 0.14
  3 0.24   % mar 0.11
  4 0.30   % apr 0.05
  5 0.44   % mei 0.13
  6 0.57   % jun 0.13
  7 0.62   % jul 0.05
/
\plot      % Project D: budget 3
  2.5 0.00 % aanvang 15 maart
  3 0.01   % mar 0.01
  4 0.27   % apr 0.26
  5 0.39   % mei 0.13
  6 0.41   % jun 0.02
  7 0.48   % jul 0.08
/

\findlength {\plot 7 0.62   8 2.00  /} 
\setdashesnear <1mm> for <\totalarclength>
\plot 7 0.62  8 2.00 /
\put {P-C}    [rb] <1mm,0pt> at 7.5 2.00

\findlength {\plot 7 0.48   9 3.00  /} 
\setdashesnear <1mm> for <\totalarclength>
\plot 7 0.48  9 3.00 /
\put {P-D} [l] <1mm,0pt> at 9 3.00  

\setdots 
\plot 7 0.0  7 5.50 /
\put {Now} [l] <1mm,0pt>  at 6 5.00

\endpicture$$}

The following is a graph showing the lifetimes of various
English writers around the 18th century. (Ok, this wasn't work).
\typeout{Second graph out of five}

\vspace{\baselineskip}
{\footnotesize
\beginpicture

\setcoordinatesystem units <0.4mm,3mm> 
\setplotarea x from 1640 to 1910, y from 0 to 30
\setlinear
\setsolid
\axis bottom label {Lifetime and Year of Publication (Owned Books)}
      ticks numbered from 1650 to 1900 by 50 /

\plot 1650  0.0 1650 30.0 /
\plot 1700  0.0 1700 30.0 /
\plot 1750  0.0 1750 30.0 /
\plot 1800  2.5 1800 30.0 /
\plot 1850  0.0 1850  2.5 /
\plot 1850 10.5 1850 30.0 /
\plot 1900  0.0 1900 10.5 /
\plot 1900 19.5 1900 30.0 /
\vshade 1750 0 30 1850 0 30 /

\linethickness=1pt
\put {Daniel Defoe} <1mm,0pt> [l] at 1750 1
\putrule from 1661  1 to 1731  1   
\put {$\bullet$} at 1719 1
\put {$\bullet$} at 1722 1
\put {$\bullet$} at 1724 1
\put {$\bullet$} at 1726 1

\put {Jonathan Swift} <1mm,0pt> [l] at 1750 2
\putrule from 1667  2 to 1745  2   
\put {$\bullet$} at 1704 2
\put {$\bullet$} at 1708 2
\put {$\bullet$} at 1709 2
\put {$\bullet$} at 1710 2
\put {$\bullet$} at 1711 2
\put {$\bullet$} at 1713 2
\put {$\bullet$} at 1724 2
\put {$\bullet$} at 1726 2
\put {$\bullet$} at 1729 2

\put {Samuel Richardson} <1mm,0pt> [l] at 1800 3
\putrule from 1689  3 to 1761  3   
\put {$\bullet$} at 1753 3

\put {Henry Fielding} <1mm,0pt> [l] at 1800 4
\putrule from 1707  4 to 1754  4   
\put {$\bullet$} at 1741 4
\put {$\bullet$} at 1742 4

\put {Samuel Johnson} <1mm,0pt> [l] at 1800 5
\putrule from 1709  5 to 1784  5   
\put {$\bullet$} at 1759 5

\put {John Cleland} <1mm,0pt> [l] at 1800 6
\putrule from 1709  6 to 1789  6   
\put {$\bullet$} at 1748 6

\put {Horace Walpole} <1mm,0pt> [l] at 1800 7
\putrule from 1717  7 to 1797  7   
\put {$\bullet$} at 1764 7

\put {Tobias Smollett} <1mm,0pt> [l] at 1800 8
\putrule from 1721  8 to 1771  8   
\put {$\bullet$} at 1751 8

\put {Oliver Goldsmith} <1mm,0pt> [l] at 1800 9
\putrule from 1728  9 to 1774  9   
\put {$\bullet$} at 1766 9

\put {James Boswell} <1mm,0pt> [l] at 1800 10
\putrule from 1740 10 to 1795 10   
\put {$\bullet$} at 1791 10

\put {Fanny Burney} <1mm,0pt> [l] at 1850 11
\putrule from 1752 11 to 1840 11   
\put {$\bullet$} at 1778 11
\put {$\bullet$} at 1782 11 
\put {$\bullet$} at 1796 11
\put {$\bullet$} at 1814 11 

\put {Elizabeth Inchbald} <1mm,0pt> [l] at 1850 12
\putrule from 1753 12 to 1821 12   
\put {$\bullet$} at 1791 12

\put {William Godwin} <1mm,0pt> [l] at 1850 13
\putrule from 1756 13 to 1836 13   
\put {$\bullet$} at 1794 13

\put {William Beckford} <1mm,0pt> [l] at 1850 14
\putrule from 1760 14 to 1844 14   
\put {$\bullet$} at 1786 14 

\put {Ann Radcliffe} <1mm,0pt> [l] at 1850 15
\putrule from 1764 15 to 1823 15   
\put {$\bullet$} at 1791 15 
\put {$\bullet$} at 1794 15
\put {$\bullet$} at 1797 15

\put {Maria Edgeworth} <1mm,0pt> [l] at 1850 16
\putrule from 1767 16 to 1849 16   
\put {$\bullet$} at 1800 16
\put {$\bullet$} at 1812 16

\put {Walter Scott} <1mm,0pt> [l] at 1850 17
\putrule from 1771 17 to 1832 17   
\put {$\bullet$} at 1808 17 
\put {$\bullet$} at 1814 17
\put {$\bullet$} at 1818 17
\put {$\bullet$} at 1819 17
\put {$\bullet$} at 1824 17
\put {$\bullet$} at 1826 17
\put {$\bullet$} at 1827 17

\put {Jane Austen} <1mm,0pt> [l] at 1850 18
\putrule from 1775 18 to 1817 18   
\put {$\bullet$} at 1811 18
\put {$\bullet$} at 1813 18
\put {$\bullet$} at 1814 18
\put {$\bullet$} at 1816 18
\put {$\bullet$} at 1818 18

\put {Matthew Lewis} <1mm,0pt> [l] at 1850 19
\putrule from 1775 19 to 1818 19   
\put {$\bullet$} at 1796 19

\put {Thomas de Quincey} <1mm,0pt> [l] at 1900 20
\putrule from 1785 20 to 1859 20   
\put {$\bullet$} at 1821 20
\put {$\bullet$} at 1823 20
\put {$\bullet$} at 1845 20
\put {$\bullet$} at 1849 20

\put {Mary Shelley} <1mm,0pt> [l] at 1900 21
\putrule from 1797 21 to 1851 21   
\put {$\bullet$} at 1818 21

\put {Charles Darwin} <1mm,0pt> [l] at 1900 22
\putrule from 1809 22 to 1882 22   
\put {$\bullet$} at 1839 22

\put {Charles Dickens} <1mm,0pt> [l] at  1900 23
\putrule from 1812 23 to 1870 23   
\put {$\bullet$} at 1843 23
\put {$\bullet$} at 1844 23
\put {$\bullet$} at 1845 23
\put {$\bullet$} at 1846 23
\put {$\bullet$} at 1848 23
\put {$\bullet$} at 1850 23
\put {$\bullet$} at 1858 23

\put {Charlotte Bronte} <1mm,0pt> [l] at 1900 24
\putrule from 1816 24 to 1855 24   
\put {$\bullet$} at 1845 24
\put {$\bullet$} at 1847 24
\put {$\bullet$} at 1848 24
\put {$\bullet$} at 1853 24

\put {Emily Bronte} <1mm,0pt> [l] at 1900 25
\putrule from 1818 25 to 1848 25   
\put {$\bullet$} at 1847 25

\put {George Eliot} <1mm,0pt> [l] at 1900 26
\putrule from 1819 26 to 1880 26   
\put {$\bullet$} at  1859 26

\put {Anne Bronte} <1mm,0pt> [l] at 1900 27
\putrule from 1820 27 to 1849 27   
\put {$\bullet$} at 1848 27

\put {Wilkie Collins} <1mm,0pt> [l] at 1900 28
\putrule from 1824 28 to 1889 28   
\put {$\bullet$} at 1859 28 
\put {$\bullet$} at 1868 28

\put {Lewis Carrol} <1mm,0pt> [l] at 1900 29
\putrule from 1832 29 to 1898 29   
\put {$\bullet$} at 1865 29

\endpicture}

\clearpage
This is a chemical formula. To be honest, this is quite
laborious to get it really right.
\typeout{Third graph out of five}

$$\beginpicture     % Structural formula of \carma

\setcoordinatesystem units <10mm,10mm> % niet veranderen
\setplotarea x from 0 to 7, y from -1.5 to 1
\normalgraphs
\setlinear

\put {$H_3C$}   [br] at 1.6  0.5
\put {$H_3C$}   [tr] at 1.6 -0.5
\put {N---C}    [l]  at 2.0  0.0 
\put {O}        [bl] at 3.3  0.5
\put {$O^-$}    [tl] at 3.3 -0.5
\put {$H_2N^+$} [l]  at 5.0  0.0
\put {$CH_3$}   [bl] at 6.0  0.5
\put {$CH_3$}   [tl] at 6.0 -0.5

\plot 1.6   0.5   2.0   0.1 /
\plot 1.6  -0.5   2.0  -0.1 /
\plot 3.25  0.5   2.95  0.2 /
\plot 3.35  0.5   3.05  0.2 /
\plot 3.3  -0.5   3.0  -0.2 /
\plot 6.0   0.5   5.6   0.2 /
\plot 6.0  -0.5   5.6  -0.2 /

\put {dimethyl ammonium carbonate} at 3.7 -1.3

\endpicture$$

An example of marketing information. Note: Those of you able
to figure out which product this information is for are kindly
reminded that this information is proprietary.
\typeout{Fourth graph out of five}

$$\beginpicture
\setcoordinatesystem units <0.03mm,5mm>
\setplotarea x from 0 to 2500, y from -8 to 0
\axis top ticks short out numbered from 0 to 2500 by 500 /
%
\setbars breadth <4pt> baseline at x = 0 baselabels ([Br] <-4mm,-2pt>)
  endlabels ([l] <2mm,0pt>)
\linethickness=0.4pt
\plot   89 -1 "Pharmaceuticals" "{\small 89}"
       324 -3 "Explosives"      "{\small 324}"
       728 -4 "Solvents"        "{\small 728}"
       999 -5 "Various"         "{\small 999}"
      1774 -7 "Rubber"          "{\small 1774}"
      2491 -8 "Co-production"   "{\small 2491}"
       100 -10 " "               "Not likely yet"
/
%
\setbars breadth <0pt> baseline at x = 0 baselabels ([Br] <-4mm,-2pt>)
  endlabels ([l] <2mm,0pt>)
\linethickness=4pt
\plot  306 -2 "Surfactants"     "{\small 306}"
       500 -5 " "               " "            % Various
      1362 -6 "Agrochemicals"   "{\small 1362}"
       100 -11 " "              "Likely"
/
\endpicture$$

\typeout{Fifth and last graph}
$$\beginpicture
\setcoordinatesystem units <35mm,35mm>
\setplotarea x from -1.2 to 1.2, y from -1.2 to 1.2
%
% Actual pie chart
\circulararc 360 degrees from 1 0 center at 0 0 
\plot 0.00000 0.00000   1.00000  0.00000 / % 0 degrees == co-production
\plot 0.00000 0.00000   0.99760  0.06922 / % pharma
\plot 0.00000 0.00000   0.95312  0.30260 / % surfactants
\plot 0.00000 0.00000   0.84747  0.53084 / % explosives
\plot 0.00000 0.00000   0.43010  0.90278 / % solvents
\plot 0.00000 0.00000  -0.32681  0.94509 / % various
\plot 0.00000 0.00000  -0.98423  0.17691 / % agrochemicals
\plot 0.00000 0.00000  -0.35969 -0.93307 / % rubber
\setdashesnear <3mm> for <35mm>
\plot 0.00000 0.00000  -0.75975  0.65021 / % Phenoxies vs Phenylureas
%
% Name of applications
\put {Pharmaceuticals} [lb] at  1.01  0.00
\put {Surfactants}     [lb] at  0.99  0.18
\put {Explosives}      [lb] at  0.92  0.40
\put {Solvents}        [lb] at  0.73  0.75
\put {Various}         [b]  at  0.00  0.60
\put {Agrochemicals}   [rb] at -0.25  0.35
\put {Rubber}          [rt] at -0.45 -0.40
\put {Co-production}   [lt] at  0.30 -0.50
%
% Number of buyers in each piece
\put  {5} at  0.91  0.13     % Surfactants
\put  {1} at  0.88  0.36     % Explosives
\put  {2} at  0.46  0.76     % Solvents
\put {20} at  0.30  0.86     % Various, right half
\put {20} at -0.19  0.89     % Various, left half
\put {12} at -0.76  0.55     % Agrochemicals, Phenoxies
\put {12} at -0.61  0.65     % Agrochemicals, Phenylureas
\put  {6} at -0.39 -0.83     % Rubber
\put  {1} at -0.26 -0.89     % Co-production
%
% Shading of some parts
\setshadegrid span <2pt>
\setquadratic
\vshade -0.98423 0.17691 0.17691 <z,z,,>
        -0.90000 0.16117 0.43589
        -0.80000 0.14380 0.60000 /
\vshade -0.80000 0.14380 0.60000 <z,z,,>
        -0.66000 0.11863 0.75127
        -0.55000 0.09886 0.83516 /
\vshade -0.55000 0.09886 0.83516 <z,z,,>
        -0.40000 0.07190 0.91652
        -0.32681 0.05874 0.94509 / % Agrochemicals left, in three parts
\vshade  0.00000 0.00000 1.00000 <z,,,>
         0.21000 0.44079 0.97770
         0.43010 0.90278 0.90278 / % Various right half
\setlinear
\vshade -0.32681 0.05874 0.94509 <z,,,>
         0.00000 0.00000 0.00000 / % Agrochemicals right half
\vshade  0.00000 0.00000 0.00000 <,z,,>
         0.95312 0.06613 0.30260 / % Surfactants left half
\vshade  0.95312 0.06613 0.30260 <z,,,>
         0.99760 0.06922 0.06922 / % Surfactants right half (roughly)
%
% Target 200 ton
\setdots <1mm>
\plot 1.17576 -0.24000   0 0   1.12433 -0.41938 /
\put {200 ton} [l] at 1.15005 -0.32969
\plot -0.32681  0.94509  -0.39217 1.13411 /
\plot -0.42764  0.90395  -0.51317 1.08474 /
\put {140 ton} [rB] at   -0.45267 1.10943
%
% Left lower size cube
\setsolid
\plot -1.0 -1.0   -0.9 -1.0  -0.9 -0.9   -1.0 -0.9   -1.0 -1.0 /
\endpicture$$

For more information on the above pictures (example-wise) or on PICTeX
generally, feel free to drop me a line.  I am an ardent user of PICTex,
and glad to help where I can. \\
Met vriendelijke groeten, Wim van Dorst $<$WvD@Chem.AkzoNobel.nl$>$
\end{document}
