# 
# Pindade värvimine 
#
# Viimati muudetud - 2. september 2005
# Koostanud: Märt Möls
#

# Millega png-pilte vaadata
vaataja="C:\\Program Files\\Mozilla Firefox\\firefox.exe"

# Kuhu pildfailid salvestada
tee="C:\\kursus\\R\\temp\\lisamine\\"

algus=function(pilt, xs, ys){
assign("teenimi", paste(tee,pilt,sep=""), env=.GlobalEnv)
assign("teenimi2", paste('"',vaataja,'" ',tee,pilt,sep=""), env=.GlobalEnv)
png(filename = teenimi, width = xs, height = ys, pointsize = 12, bg = "white")
}

# ---------------------------------------------------
#
# 	Esimene pilt - kasutusnäide
#
# ---------------------------------------------------


algus("pilt90.png", 400, 300)

par(mar=c(3,3,1,1))
plot(NA,NA,xlab="",ylab="", main="", xlim=c(0,5), ylim=c(0,4))
grid()

rect(0.5,2.5, 3, 3.5, density=14)
polygon(c(2,4,5), c(0,3,1), col="orange", border="chocolate4", lwd=3)

nurk=seq(3*pi/2,5*pi/2,length=30)
x=2+sin(nurk)
y=1+cos(nurk)
polygon(x,y, col="gold", border="darkgoldenrod4", lwd=4)

dev.off()
system(teenimi2)



# ---------------------------------------------------
#
# 	Teine pilt - Graafiku alune pindala
#
# ---------------------------------------------------


algus("pilt91.png", 400, 300)

x=seq(-4,4,0.05)
y=dnorm(x, mean=0, sd=1)

par(mar=c(4,4,4,1))
plot(x,y, type="l", xlim=c(-3,3), xaxs="i",yaxs="i", main="standardse normaaljaotuse \n tihedusfunktsioon", ylab="f(x)", ylim=c(0,0.45))

xala=seq(-1.96,1.96, length=60)
yala=dnorm(xala, mean=0, sd=1)
polygon(c(xala[1],xala,xala[60]), c(0,yala,0), density=20, angle=25)
rect(-0.5, 0.11, 0.5, 0.17, col="white", border="white")
text(0, 0.14, "95%", adj=c(0.5,0.5))

dev.off()
system(teenimi2)



# ---------------------------------------------------
#
# 	Kolmas pilt - Kasutamine mujal
#
# ---------------------------------------------------


algus("pilt92.png", 400, 300)

x=rnorm(80)
hist(x, density=c(12,30), angle=seq(30,180, 20), main="Histogramm")

dev.off()
system(teenimi2)



# ---------------------------------------------------
#
# 	Neljas pilt - legend
#
# ---------------------------------------------------


algus("pilt93.png", 400, 300)

x=seq(0,100,0.5)
y1=dnorm(x, mean=25, sd=6)
y2=dnorm(x, mean=55, sd=10)
# y3=dnorm(x, mean=85, sd=14)

plot(x,y1, type="l", main="Haiged ja terved", xlim=c(0,100), ylab="tihedus")
polygon(c(0,x,100),c(0,y1,0), density=20, angle=30)
polygon(c(0,x,100),c(0,y2,0), density=20, angle=130)
# polygon(c(0,x,100),c(0,y3,0), col="yellow", border="gold4")

legend(65,0.06, c("haiged","terved"), density=c(20,20), angle=c(30,130), title="legend")

dev.off()
system(teenimi2)


# ---------------------------------------------------
#
# 	Viies pilt - erinevad viirutustihedused
#
# ---------------------------------------------------


algus("pilt94.png", 400, 300)

x=rep(1, 10)

tihedus=c(5,10,15,20,25,30,40,50,60,100)
names(x)=tihedus

par(mar=c(4,0.5,1,0.5))
barplot(x, density=tihedus, ylab="", yaxt="n")

dev.off()
system(teenimi2)