From 1785161e4beaeb1b682fc4992b37858e7aaf19a5 Mon Sep 17 00:00:00 2001 From: "G. Kantor" Date: Tue, 21 Apr 2020 00:32:38 +0200 Subject: [PATCH 1/2] stepToVertex function --- R/generateSierpinski.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/generateSierpinski.R b/R/generateSierpinski.R index b09ad86..587fdf5 100644 --- a/R/generateSierpinski.R +++ b/R/generateSierpinski.R @@ -27,5 +27,5 @@ sampleVertex <- function(n) { # * step.size = 1 --> end up at `to` # * step.size = 0.5 --> halfway between `from` and `to` stepToVertex <- function(from, to, step.size) { - c(x=0, y=0) + from * (1 - step.size) + to * step.size } \ No newline at end of file From 692203b1e9519503b7154f7bb89914c0a6fbd1d2 Mon Sep 17 00:00:00 2001 From: "G. Kantor" Date: Tue, 21 Apr 2020 00:32:51 +0200 Subject: [PATCH 2/2] modification purely for tests --- R/generateSierpinski.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/generateSierpinski.R b/R/generateSierpinski.R index 587fdf5..4092420 100644 --- a/R/generateSierpinski.R +++ b/R/generateSierpinski.R @@ -17,7 +17,7 @@ generateSierpinski <- function(rows) { # n: number of vertices (e.g. n=3: Triangle) # Return a vector of length 2 with x and y coordinates sampleVertex <- function(n) { - c(x=0, y=0) + c(x=1, y=1) } # Create a point that is a step from `from` to `to`