rm(list=ls())
require(DAAG)
#-------------------------------------------------------------------------------
# Texturdarstellungen mit dem package "soiltexture"
#-------------------------------------------------------------------------------
require(soiltexture)
#
# --- Ein leeres Texturdreieck ---
#
par(mfrow=c(1,1))
TT.plot( class.sys = "none")
pause()
#
# --- Texturdreiecke verschiedener Nationalitäten ---
par(mfrow=c(1,3))
TT.plot( class.sys = "USDA.TT")     # USDA
TT.plot( class.sys = "FAO50.TT")    # FAO
TT.plot( class.sys = "FR.GEPPA.TT") # French GEPPA
#
par(mfrow=c(1,1))
TT.plot( class.sys = "DE.BK94.TT",cex.lab=0.8)  # Deutsches System KA4
#
# mit Daten:
my.text <- data.frame(
    "CLAY"  = c(05,60,15,05,25,05,25,45,65,75,13,47),
    "SILT"  = c(05,08,15,25,55,85,65,45,15,15,17,43),
    "SAND"  = c(90,32,70,70,20,10,10,10,20,10,70,10),
    "OC"    = c(20,14,15,05,12,15,07,21,25,30,05,28)
)
TT.plot(class.sys="DE.BK94.TT",cex.lab=1.0,tri.data=my.text,pch=15,col="blue")
clrs <- c("red","red","red","red","red","red",
          "blue","blue","blue","blue","blue","blue")
n1 <- 16; n2 <- 15
symbls <- c(n1,n1,n1,n1,n1,n1,n2,n2,n2,n2,n2,n2)
TT.plot(class.sys="DE.BK94.TT",cex.lab=1.0,tri.data=my.text,pch=symbls,col=clrs,
        grid.show=F,lwd=2)