graphics and picture environment

[William Mahavier]

Experts,

David Farmer has been kind enough to assist me in converting a few sets of notes to .mbx and we have been quite successful thus far with him creating the first pass and me tweaking to meet my needs.  However, the most recent set of notes has dozens of images generated via the picture environment.   One of the more elementary samples is included below.   How do I best handle this situation?   Do I use some software to generate graphics and include them or is there a way that PreTeXT can handle the picture environment?   I apologize for the vagueness of the question in advance.

Ted

The following illustrations are \textbf{Venn diagrams} for the sets just defined.

   \setlength{\unitlength}{1mm}

   \begin{picture}(160,30)(20,0)

   \put(15,0){%A-int-B

   \put(0,0){\line(1,0){30}} \put(0,20){\line(1,0){30}}

   \put(0,0){\line(0,1){20}} \put(30,0){\line(0,1){20}}

   \put(10,10){\circle{15}} \put(20,10){\circle{15}}

   %

   \put(9,9){$\A$}\put(19,9){$\B$}

   %

   \multiput(14,11)(1,0){3}{\circle*{.5}}

   \multiput(14,12)(1,0){3}{\circle*{.5}}

   \multiput(14,13)(1,0){3}{\circle*{.5}}

   \multiput(15,14)(1,0){1}{\circle*{.5}}

   %

   \multiput(14,10)(1,0){4}{\circle*{.5}}

   %

   \multiput(14,9)(1,0){3}{\circle*{.5}}

   \multiput(14,8)(1,0){3}{\circle*{.5}}

   \multiput(14,7)(1,0){3}{\circle*{.5}}

   \multiput(15,6)(1,0){1}{\circle*{.5}}}

   \put(50,0){%A-union-B

   \put(0,0){\line(1,0){30}} \put(0,20){\line(1,0){30}}

   \put(0,0){\line(0,1){20}} \put(30,0){\line(0,1){20}}

   \put(10,10){\circle{15}} \put(20,10){\circle{15}}

   %

   \put(9,9){$\A$}\put(19,9){$\B$}

   %

   \multiput(4,11)(1,0){13}{\circle*{.5}}

   \multiput(4,12)(1,0){13}{\circle*{.5}}

   \multiput(4,13)(1,0){13}{\circle*{.5}}

   \multiput(5,14)(1,0){11}{\circle*{.5}}

   \multiput(6,15)(1,0){9}{\circle*{.5}}

   \multiput(7,16)(1,0){7}{\circle*{.5}}

   \multiput(10,17)(1,0){1}{\circle*{.5}}

   %

   \multiput(3,10)(1,0){14}{\circle*{.5}}

   %

   \multiput(4,9)(1,0){13}{\circle*{.5}}

   \multiput(4,8)(1,0){13}{\circle*{.5}}

   \multiput(4,7)(1,0){13}{\circle*{.5}}

   \multiput(5,6)(1,0){11}{\circle*{.5}}

   \multiput(6,5)(1,0){9}{\circle*{.5}}

   \multiput(7,4)(1,0){7}{\circle*{.5}}

   \multiput(10,3)(1,0){1}{\circle*{.5}}

   %

   \multiput(26,11)(-1,0){9}{\circle*{.5}}

   \multiput(26,12)(-1,0){10}{\circle*{.5}}

   \multiput(26,13)(-1,0){10}{\circle*{.5}}

   \multiput(25,14)(-1,0){10}{\circle*{.5}}

   \multiput(24,15)(-1,0){9}{\circle*{.5}}

   \multiput(23,16)(-1,0){7}{\circle*{.5}}

   \multiput(20,17)(-1,0){1}{\circle*{.5}}

   %

   \multiput(27,10)(-1,0){10}{\circle*{.5}}

   %

   \multiput(26,9)(-1,0){9}{\circle*{.5}}

   \multiput(26,8)(-1,0){10}{\circle*{.5}}

   \multiput(26,7)(-1,0){10}{\circle*{.5}}

   \multiput(25,6)(-1,0){10}{\circle*{.5}}

   \multiput(24,5)(-1,0){9}{\circle*{.5}}

   \multiput(23,4)(-1,0){7}{\circle*{.5}}

   \multiput(20,3)(-1,0){1}{\circle*{.5}} }

   \put(85,0){%A~B

   \put(0,0){\line(1,0){30}} \put(0,20){\line(1,0){30}}

   \put(0,0){\line(0,1){20}} \put(30,0){\line(0,1){20}}

   \put(10,10){\circle{15}} \put(20,10){\circle{15}}

   %

   \put(9,9){$\A$}\put(19,9){$\B$}

   %

   \multiput(4,11)(1,0){9}{\circle*{.5}}

   \multiput(4,12)(1,0){10}{\circle*{.5}}

   \multiput(4,13)(1,0){10}{\circle*{.5}}

   \multiput(5,14)(1,0){10}{\circle*{.5}}

   \multiput(6,15)(1,0){9}{\circle*{.5}}

   \multiput(7,16)(1,0){7}{\circle*{.5}}

   \multiput(10,17)(1,0){1}{\circle*{.5}}

   %

   \multiput(3,10)(1,0){10}{\circle*{.5}}

   %

   \multiput(4,9)(1,0){9}{\circle*{.5}}

   \multiput(4,8)(1,0){10}{\circle*{.5}}

   \multiput(4,7)(1,0){10}{\circle*{.5}}

   \multiput(5,6)(1,0){10}{\circle*{.5}}

   \multiput(6,5)(1,0){9}{\circle*{.5}}

   \multiput(7,4)(1,0){7}{\circle*{.5}}

   \multiput(10,3)(1,0){1}{\circle*{.5}} }

   \put(120,0){%~B

   \put(0,0){\line(1,0){30}} \put(0,20){\line(1,0){30}}

   \put(0,0){\line(0,1){20}} \put(30,0){\line(0,1){20}}

   \put(10,10){\circle{15}} \put(20,10){\circle{15}}

   %

   \put(9,9){$\A$}\put(19,9){$\B$}

   %

   \multiput(0,0)(1,0){30}{\circle*{.5}}

   \multiput(0,1)(1,0){30}{\circle*{.5}}

   \multiput(0,2)(1,0){30}{\circle*{.5}}

   \multiput(0,3)(1,0){30}{\circle*{.5}}

   \multiput(0,4)(1,0){17}{\circle*{.5}}

   \multiput(0,5)(1,0){16}{\circle*{.5}}

   \multiput(0,6)(1,0){15}{\circle*{.5}}

   \multiput(0,7)(1,0){14}{\circle*{.5}}

   \multiput(0,8)(1,0){14}{\circle*{.5}}

   \multiput(0,9)(1,0){14}{\circle*{.5}}

   %

   \multiput(0,10)(1,0){14}{\circle*{.5}}

   %

   \multiput(0,11)(1,0){14}{\circle*{.5}}

   \multiput(0,12)(1,0){14}{\circle*{.5}}

   \multiput(0,13)(1,0){14}{\circle*{.5}}

   \multiput(0,14)(1,0){15}{\circle*{.5}}

   \multiput(0,15)(1,0){16}{\circle*{.5}}

   \multiput(0,16)(1,0){17}{\circle*{.5}}

   \multiput(0,17)(1,0){30}{\circle*{.5}}

   \multiput(0,18)(1,0){30}{\circle*{.5}}

   \multiput(0,19)(1,0){30}{\circle*{.5}}

   %

   \multiput(27,11)(1,0){3}{\circle*{.5}}

   \multiput(27,12)(1,0){3}{\circle*{.5}}

   \multiput(27,13)(1,0){3}{\circle*{.5}}

   \multiput(26,14)(1,0){4}{\circle*{.5}}

   \multiput(25,15)(1,0){5}{\circle*{.5}}

   \multiput(24,16)(1,0){6}{\circle*{.5}}

   %

   \multiput(28,10)(1,0){2}{\circle*{.5}}

   %

   \multiput(27,9)(1,0){3}{\circle*{.5}}

   \multiput(27,8)(1,0){3}{\circle*{.5}}

   \multiput(27,7)(1,0){3}{\circle*{.5}}

   \multiput(26,6)(1,0){4}{\circle*{.5}}

   \multiput(25,5)(1,0){5}{\circle*{.5}}

   \multiput(24,4)(1,0){6}{\circle*{.5}}}

   \end{picture}