[Vennerable-commits] r49 - pkg/Vennerable/tests

[noreply at r-forge.r-project.org]

Author: js229
Date: 2009-09-12 13:06:17 +0200 (Sat, 12 Sep 2009)
New Revision: 49

Added:
   pkg/Vennerable/tests/bugellipseear.R
   pkg/Vennerable/tests/bugjoiningcircles.R
   pkg/Vennerable/tests/facelabeltwocircles.R
Log:
new bugs...

Added: pkg/Vennerable/tests/bugellipseear.R
===================================================================
--- pkg/Vennerable/tests/bugellipseear.R	                        (rev 0)
+++ pkg/Vennerable/tests/bugellipseear.R	2009-09-12 11:06:17 UTC (rev 49)
@@ -0,0 +1,19 @@
+#sfiles <- list.files(full.names=TRUE,"C:\\JonathanSwinton\\Vennerable\\pkg\\Vennerable\\R")
+#for (sfile in sfiles) source(sfile)
+
+	phi <- 0.8; dex <- 1.7;dey <- 2.5; a<- 7.6; e<- 0.9
+	x0 <- c( -0.9, -5.0)
+	VE <- list()
+	dx <- 0.2
+	VE[[1]] <- newTissueFromEllipse (x0+c(0,0),-phi ,e,-a,Set=1,dx=dx)
+	VE[[2]] <- newTissueFromEllipse (x0+c(dex,0),phi ,e,a,Set=2,dx=dx)
+#undebug(newTissueFromEllipse )
+	VE[[3]] <- newTissueFromEllipse (x0+c(-dey,dey),-phi ,e,-a,Set=3,dx=dx)
+	VE[[4]] <- newTissueFromEllipse (x0+c(dex+dey,dey),phi ,e,a,Set=4,dx=dx)
+
+	TM <- VE[[1]]
+	TM2 <- addSetToDrawing(TM,VE[[2]],set2Name=paste("Set",2,sep=""))
+#undebug(.find.triangle.within.face)
+#undebug(.find.point.within.face)
+	TM3 <- addSetToDrawing(TM2,VE[[3]],set2Name=paste("Set",3,sep=""))
+ 
\ No newline at end of file

Added: pkg/Vennerable/tests/bugjoiningcircles.R
===================================================================
--- pkg/Vennerable/tests/bugjoiningcircles.R	                        (rev 0)
+++ pkg/Vennerable/tests/bugjoiningcircles.R	2009-09-12 11:06:17 UTC (rev 49)
@@ -0,0 +1,15 @@
+
+VD2 <- compute.Venn(Venn(n=2))
+VD3 <- newTissueFromCircle (centre.xy =c(2,0), radius=.6,Set=3)
+VD23 <- VD2
+VD23 at faceList <- c(VD2 at faceList,VD3 at faceList)
+VD23 at edgeList <- c(VD2 at edgeList,VD3 at edgeList)
+VD23 at setList <- c(VD2 at setList,VD3 at setList)
+grid.newpage()
+pushViewport(plotViewport(c(1,1,1,1)))
+makevp.eqsc(c(-2,3),c(-2,2));grid.xaxis();grid.yaxis()
+PlotSetBoundaries(VD23)
+
+drawing <- VD23
+innerFaceName <- "1"
+.create.edge.joining.faces(drawing,"DarkMatter","1")

Added: pkg/Vennerable/tests/facelabeltwocircles.R
===================================================================
--- pkg/Vennerable/tests/facelabeltwocircles.R	                        (rev 0)
+++ pkg/Vennerable/tests/facelabeltwocircles.R	2009-09-12 11:06:17 UTC (rev 49)
@@ -0,0 +1,4 @@
+
+V3.big <- Venn(SetNames=LETTERS[1:3],Weight=2^(1:8))
+Vmonth2.big <- V3.big[,c(1:2)]
+plot(Vmonth2.big)