/* TRIATEX.ADO
   A procedure for creating a texture triangle and plot of
   clay/sand values
   Francesco Danuso, Instituto di Productione Vegetale,
   Univ of Udine, Udine, Italy  Nov 1989
   [revised May 1991 by STB]
*/

program define triatex
version 2.1
disp _n(3)
disp "          TRIANGLE FOR SOIL TEXTURE "
disp "         (USDA Classification Scheme)" _n(2)
disp " File name for the graphic (ENTER=do not save): " _req(nofi)
disp " Symbol (O|S|T|o|d|p|.|i|[varname]): " _req(punto)

keep clay sand %vaby
append using triatex  	/* User can change default */
set textsize 120
label vari sand "Sand (%)"
label vari y1 "Clay (%)"
  mac def parte1 "y1 y2 y3 y4 y5 y6 y7 y8 clay cory sand"
  mac def parte5 "c(llllllll.) s(iiiiiiii%punto[etic])"
  mac def parte2 "xlab(0,20,40,60,80,100) ylab(0,20,40,60,80,100)"
  mac def parte3 "l1("Clay (%)") t1("             SOIL TEXTURE (USDA)")"
  mac def parte4 "pen(1111111112) noaxis xline(0) yline(0)"
  mac def parte6 ""
  if "%nofi"!="" {
    mac def parte6 "saving(%nofi)"
  }
gr %parte1, %parte2 %parte3 %parte4 %parte5 %parte6

end