reference: Add all items in mouse (#193)

* reference: Add mouseClicked

Signed-off-by: Ce Gao <ce.gao@outlook.com>

* reference: Add mouseDragged

Signed-off-by: Ce Gao <ce.gao@outlook.com>

* reference: Add mouseMoved

Signed-off-by: Ce Gao <ce.gao@outlook.com>

* reference: Add mousePressed

Signed-off-by: Ce Gao <ce.gao@outlook.com>

* reference: Add inputmouse related items

Signed-off-by: Ce Gao <ce.gao@outlook.com>

* reference: Add mouseY

Signed-off-by: Ce Gao <ce.gao@outlook.com>

* reference: Add pmouseX

Signed-off-by: Ce Gao <ce.gao@outlook.com>

* reference: Add pmouseY

Signed-off-by: Ce Gao <ce.gao@outlook.com>

* RLangPApplet: Remove code for debug purpose

Signed-off-by: Ce Gao <ce.gao@outlook.com>

Author: gaocegege

examples/reference/mouseClicked/mouseClicked0/mouseClicked0.rpde

@@ -0,0 +1,17 @@
+# Click within the image to change the value of the rectangle after after the
+# mouse has been clicked
+
+value <- 0
+
+draw <- function() {
+    fill(value)
+    rect(25, 25, 50, 50)
+}
+
+mouseClicked <- function() {
+    if (value == 0) {
+        value = 255
+    } else {
+        value = 0
+    }
+}

examples/reference/mouseDragged/mouseDragged0/mouseDragged0.rpde

@@ -0,0 +1,16 @@
+# Drag (click and hold) your mouse across the image to change the value of the
+# rectangle
+
+value <- 0
+
+draw <- function() {
+    fill(value)
+    rect(25, 25, 50, 50)
+}
+
+mouseDragged <- function() {
+    value = value + 5
+    if (value > 255) {
+        value = 0
+    }
+}

examples/reference/mouseMoved/mouseMoved0/mouseMoved0.rpde

@@ -0,0 +1,15 @@
+# Move the mouse across the image to change its value
+
+value <- 0
+
+draw <- function() {
+    fill(value)
+    rect(25, 25, 50, 50)
+}
+
+mouseMoved <- function() {
+    value = value + 5
+    if (value > 255) {
+        value = 0
+    }
+}

examples/reference/mousePressed/mousePressed0/mousePressed0.rpde

@@ -0,0 +1,10 @@
+# Click within the image to change the value of the rectangle
+
+draw <- function() {
+    if (mousePressed == TRUE) {
+        fill(0)
+    } else {
+        fill(255)
+    }
+    rect(25, 25, 50, 50)
+}

examples/reference/mousePressed/mousePressed1/mousePressed1.rpde

@@ -0,0 +1,16 @@
+# Click within the image to change the value of the rectangle
+
+value <- 0
+
+draw <- function() {
+    fill(value)
+    rect(25, 25, 50, 50)
+}
+
+mousePressed <- function() {
+    if (value == 0) {
+        value <- 255
+    } else {
+        value <- 0
+    }
+}

examples/reference/mousePressed_var/.property.yml

@@ -0,0 +1,16 @@
+# Click within the image to change the value of the rectangle
+
+value <- 0
+
+draw <- function() {
+    fill(value)
+    rect(25, 25, 50, 50)
+}
+
+mouseReleased <- function() {
+    if (value == 0) {
+        value = 255
+    } else {
+        value = 0
+    }
+}

examples/reference/mouseReleased/mouseReleased0/mouseReleased0.rpde

@@ -0,0 +1,13 @@
+# Not Supported Now!
+
+setup <- function() {
+    size(100, 100)
+}
+
+draw <- function() {
+}
+
+mouseWheel <- function(event) {
+    e = event$getCount()
+    println(e)
+}

examples/reference/mouseWheel/mouseWheel0/mouseWheel0.rpde

@@ -0,0 +1,4 @@
+draw <- function() {
+    background(204)
+    line(mouseX, 20, mouseX, 80)
+}

examples/reference/mouseX/mouseX0/mouseX0.rpde

@@ -0,0 +1,4 @@
+draw <- function() {
+    background(204)
+    line(20, mouseY, 80, mouseY)
+}