src: Add frameCount support

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

Author: gaocegege

src/rprocessing/RLangPApplet.java

@@ -328,14 +328,13 @@ private boolean isMixMode() {
    */
   protected void wrapProcessingVariables() {
     log("Wrap Processing built-in variables into R top context.");
-    this.renjinEngine.put("width", width);
-    this.renjinEngine.put("height", height);
-    this.renjinEngine.put("displayWidth", displayWidth);
-    this.renjinEngine.put("displayHeight", displayHeight);
-    this.renjinEngine.put("focused", focused);
-    this.renjinEngine.put("keyPressed", keyPressed);
-    this.renjinEngine.put("frameRate", frameRate);
     // TODO: Find some ways to push constants into R.
+    // this.renjinEngine.put("width", width);
+    // this.renjinEngine.put("height", height);
+    // this.renjinEngine.put("displayWidth", displayWidth);
+    // this.renjinEngine.put("displayHeight", displayHeight);
+    // this.renjinEngine.put("focused", focused);
+    // this.renjinEngine.put("keyPressed", keyPressed);
   }
 
   /**

src/rprocessing/r/core.R

@@ -43,7 +43,7 @@ curveVertex = processing$curveVertex
 delay = processing$delay
 directionalLight = processing$directionalLight
 displayDensity = processing$displayDensity
-draw = processing$draw
+# draw = processing$draw
 ellipse = processing$ellipse
 ellipseMode = processing$ellipseMode
 emissive = processing$emissive
@@ -154,8 +154,8 @@ selectFolder = processing$selectFolder
 selectInput = processing$selectInput
 selectOutput = processing$selectOutput
 set = processing$set
-settings = processing$settings
-setup = processing$setup
+# settings = processing$settings
+# setup = processing$setup
 shader = processing$shader
 shape = processing$shape
 shapeMode = processing$shapeMode
@@ -190,3 +190,6 @@ translate = processing$translate
 triangle = processing$triangle
 updatePixels = processing$updatePixels
 vertex = processing$vertex
+
+# Hack
+frameCount = processing$frameCount