hemesh: Add a new example (#247)

Signed-off-by: Ce Gao <[email protected]>

Author: gaocegege

examples/Libraries/He_Mesh/Noise/Noise.rpde

@@ -0,0 +1,36 @@
+n1 <- 0
+n2 <- 0
+n3 <- 0
+
+settings <- function() {
+    size(800, 800)
+    importLibrary("hemesh")
+}
+
+setup <- function() {
+    # Perlin Noise, implementation from Processing core
+    n1 = WB_PNoise$new()$setDetail(as.integer(8), 0.5)
+    n1$setScale(0.005)
+    
+    # Simplex noise
+    n2 = WB_SNoise$new()
+    n2$setScale(0.01)
+    
+    # Open simplex noise
+    n3 = WB_OSNoise$new()
+    n3$setScale(0.02)
+}
+
+draw <- function() {
+    background(255)
+    stroke(0)
+    for (i in 0:width) {
+        point(i, 200 - 100 * n1$value1D(i + frameCount))
+        point(i, 400 - 100 * n2$value1D(i + frameCount))
+        point(i, 600 - 100 * n3$value1D(i + frameCount))
+    }
+    stroke(255, 0, 0)
+    line(0, 200, width, 200)
+    line(0, 400, width, 400)
+    line(0, 600, width, 600)
+}

examples/Libraries/He_Mesh/demo.rpde

@@ -0,0 +1,90 @@
+mesh <- 0
+tree <- 0
+render <- 0
+rnds <- 0
+randomRay <- 0
+bias <- 0
+growing <- 0
+counter <- 0
+
+settings <- function() {
+    # Please install the peasycam before you run the example.
+    importLibrary("hemesh")
+    fullScreen(P3D)
+    smooth(as.integer(8))
+}
+
+setup <- function() {
+    render <- WB_Render$new(processing)
+    rnds <- WB_RandomOnSphere$new()
+    creator <- HEC_Beethoven$new()
+    creator$setScale(5)$setZAngle(PI/3)
+    mesh <- HE_Mesh$new(creator)
+    mesh$simplify(HES_TriDec$new()$setGoal(0.5))
+    tree <- WB_AABBTree$new(mesh, as.integer(10))
+    
+    growing <- TRUE
+    counter <- 0
+    bias <- rnds$nextVector()
+}
+
+createMesh <- function() {
+    creator <- HEC_Beethoven$new()
+    creator$setScale(5)$setZAngle(PI/3)
+    mesh <- HE_Mesh$new(creator)
+    mesh$simplify(HES_TriDec$new()$setGoal(0.5))
+    tree <- WB_AABBTree$new(mesh, as.integer(10))
+    
+    growing <- TRUE
+    counter <- 0
+    bias <- rnds$nextVector()
+}
+
+
+draw <- function() {
+    background(20)
+    directionalLight(255, 255, 255, 1, 1, -1)
+    directionalLight(127, 127, 127, -1, -1, 1)
+    translate(width/2, height/2, 0)
+    rotateY(map(mouseX, 0, width, -PI, PI))
+    rotateX(map(mouseY, 0, height, PI, -PI))
+    
+    # hint(DISABLE_DEPTH_TEST)
+    noLights()
+    fill(255)
+    noStroke()
+    pushMatrix()
+    scale(1.8)
+    render$drawFaces(mesh)
+    popMatrix()
+    
+    # # hint(ENABLE_DEPTH_TEST) directionalLight(255, 255, 255, 1, 1,
+    # -1) directionalLight(127, 127, 127, -1, -1, 1) scale(1.6)
+    # fill(255) noStroke() render$drawFaces(mesh) noFill() stroke(0,
+    # 50) render$drawEdges(mesh)
+    
+    
+    # if (growing) { for (i in 0:5) { grow() counter <- counter + 1 }
+    # }
+    
+    # if (counter == 500) { mesh$subdivide(HES_CatmullClark$new())
+    # growing <- false counter <- counter + 1 }
+}
+
+grow <- function() {
+    rayOrigin <- WB_Point$new(bias)$mulSelf(-500)
+    rayDirection <- bias$add(random(-0.3, 0.3), random(-0.3, 0.3), 
+        random(-0.3, 0.3))
+    randomRay <- WB_Ray$new(rayOrigin, rayDirection)
+    fi <- HET_MeshOp$getFurthestIntersection(tree, randomRay)
+    point <- 0
+    # if (!is.null(fi)) { print(fi$point) point <- fi$point
+    # point$addMulSelf(120, randomRay$getDirection())
+    # HEM_TriSplit$splitFaceTri(mesh, fi$face, point) tree <-
+    # WB_AABBTree$new(mesh, 10) stroke(255,0,0)
+    # render$drawRay(randomRay,1500) }
+}
+
+mousePressed <- function() {
+    createMesh()
+}