Remove hack of built-in constants (#154)

* build.xml: Add OS specific code

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

* core.R: Add more built-in constants

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

* examples: Remove hack of built-in constants

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

Author: gaocegege

examples/Basics/ThreeDimensionalCube/ThreeDimensionalCube.rpde

@@ -1,5 +1,3 @@
-PI <- 3.1415
-
 settings <- function() {
     size(500, 500, "processing.opengl.PGraphics3D")
 }

examples/reference/ambientLight/ambientLight1/ambientLight1.rpde

@@ -1,5 +1,3 @@
-PI <- pi
-
 settings <- function() {
     size(100, 100, P3D)
 }

examples/reference/applyMatrix/applyMatrix0/applyMatrix0.rpde

@@ -1,5 +1,3 @@
-PI <- pi
-
 settings <- function() {
     size(100, 100, P3D)
 }

examples/reference/arc/arc1/arc1.rpde

@@ -1,11 +1,5 @@
 # arc 1 https://processing.org/reference/arc_.html
 
-# TODO: replace with built-in constants
-PI <- 3.1415
-HALF_PI <- PI/2
-QUARTER_PI <- PI/4
-TWO_PI <- PI * 2
-
 arc(50, 55, 50, 50, 0, HALF_PI)
 noFill()
 arc(50, 55, 60, 60, HALF_PI, PI)

examples/reference/arc/arc2/arc2.rpde

@@ -1,12 +1,3 @@
 # arc 2 https://processing.org/reference/arc_.html
 
-# TODO: replace with built-in constants
-PI <- 3.1415
-QUARTER_PI <- PI/4
-
-# TODO: Fix double to int casts
-OPEN <- as.integer(1)
-CHORD <- as.integer(2)
-PIE <- as.integer(3)
-
 arc(50, 50, 80, 80, 0, PI + QUARTER_PI, OPEN)

examples/reference/arc/arc3/arc3.rpde

@@ -1,12 +1,3 @@
 # arc 3 https://processing.org/reference/arc_.html
 
-# TODO: replace with built-in constants
-PI <- 3.1415
-QUARTER_PI <- PI/4
-
-# TODO: Fix double to int casts
-OPEN <- as.integer(1)
-CHORD <- as.integer(2)
-PIE <- as.integer(3)
-
 arc(50, 50, 80, 80, 0, PI + QUARTER_PI, CHORD)

examples/reference/arc/arc4/arc4.rpde

@@ -1,14 +1,3 @@
 # arc 4 https://processing.org/reference/arc_.html
 
-# TODO: replace with built-in constants
-PI <- 3.1415
-HALF_PI <- PI/2
-QUARTER_PI <- PI/4
-TWO_PI <- PI * 2
-
-# TODO: Fix double to int casts
-OPEN <- as.integer(1)
-CHORD <- as.integer(2)
-PIE <- as.integer(3)
-
 arc(50, 50, 80, 80, 0, PI + QUARTER_PI, PIE)

examples/reference/beginCamera/beginCamera0/beginCamera0.rpde

@@ -1,5 +1,3 @@
-PI <- pi
-
 settings <- function() {
     size(100, 100, P3D)
 }

examples/reference/beginContour/beginContour1/beginContour1.rpde

@@ -1,7 +1,5 @@
 # beginContour 1 https://processing.org/reference/beginContour_.html
 
-CLOSE <- as.integer(2)
-
 size(100, 100)
 translate(50, 50)
 stroke(255, 0, 0)

examples/reference/beginShape/beginShape1/beginShape1.rpde

@@ -1,10 +1,5 @@
 # beginShape 1 https://processing.org/reference/beginShape_.html
 
-OPEN <- as.integer(1)
-CLOSE <- as.integer(2)
-POINTS <- as.integer(3)
-LINES <- as.integer(5)
-
 beginShape()
 vertex(30, 20)
 vertex(85, 20)