From 622ef398374323c969feb31b480e38a9cffc8378 Mon Sep 17 00:00:00 2001
From: Giorgio Calderone <giorgio.calderone@gmail.com>
Date: Mon, 16 Mar 2020 15:27:50 +0100
Subject: [PATCH] Added examples directory

---
 examples/hidden2.1.jl | 19 +++++++++++++++++++
 examples/hidden2.3.jl | 41 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 60 insertions(+)
 create mode 100644 examples/hidden2.1.jl
 create mode 100644 examples/hidden2.3.jl

diff --git a/examples/hidden2.1.jl b/examples/hidden2.1.jl
new file mode 100644
index 0000000..e30ea6e
--- /dev/null
+++ b/examples/hidden2.1.jl
@@ -0,0 +1,19 @@
+# Original example:
+# http://gnuplot.sourceforge.net/demo/hidden2.html
+
+using Gnuplot
+
+x = LinRange(-10, 10, 25)
+y = LinRange(-10, 10, 25)
+
+@gsp    "set xyplane at 0"
+@gsp :- "unset key"
+@gsp :- "set palette rgbformulae 31,-11,32"
+@gsp :- "set style fill solid 0.5"
+@gsp :- "set cbrange [-1:1]"
+@gsp :- title="Mixing pm3d surfaces with hidden-line plots"
+@gsp :- "set hidden3d front"
+
+f = [sin(-sqrt((x+5)^2+(y-7)^2)*0.5) for x in x, y in y]
+z = [x*x-y*y for x in x, y in y]
+@gsp :- x y f "w pm3d" x y z "w l lc rgb 'black'"
diff --git a/examples/hidden2.3.jl b/examples/hidden2.3.jl
new file mode 100644
index 0000000..70fba8e
--- /dev/null
+++ b/examples/hidden2.3.jl
@@ -0,0 +1,41 @@
+# Original example:
+# http://gnuplot.sourceforge.net/demo/hidden2.html
+
+using Gnuplot
+
+@gsp "set multiplot title 'Interlocking Tori'"
+U = LinRange(-pi, pi, 100); # 50
+V = LinRange(-pi, pi, 20);
+
+@gsp :- "unset key" :-
+@gsp :- "unset xtics" :-
+@gsp :- "unset ytics" :-
+@gsp :- "unset ztics" :-
+@gsp :- "set border 0" :-
+@gsp :- "set view 60, 30, 1.5, 0.9" :-
+@gsp :- "unset colorbox" :-
+@gsp :- "set colorbox vertical user origin 0.9, 0.15 size 0.02, 0.50" :-
+@gsp :- "set format cb '%.1f'" :-
+
+for loop in 1:2
+    if loop == 1
+        @gsp :- 1 title="PM3D surface\\nno depth sorting" :-
+        @gsp :- "set origin -0.02,0.0" :-
+        @gsp :- "set size 0.55, 0.9" :-
+        @gsp :- "set pm3d scansforward" :-  # scansbackward
+    else
+        @gsp :- 2 title="PM3D surface\\ndepth sorting" :-
+        @gsp :- "set origin 0.40,0.0" :-
+        @gsp :- "set size 0.55, 0.9" :-
+        @gsp :- "set pm3d depthorder" :-
+    end
+    x = [cos(u) + .5 * cos(u) * cos(v)      for u in U, v in V]; x = reshape(x, :)
+    y = [sin(u) + .5 * sin(u) * cos(v)      for u in U, v in V]; y = reshape(y, :)
+    z = [.5 * sin(v)                        for u in U, v in V];  # Note: this must be a 2D array
+    @gsp :-  x y z "w pm3d"
+
+    x = [1 + cos(u) + .5 * cos(u) * cos(v)  for u in U, v in V]; x = reshape(x, :)
+    y = [.5 * sin(v)                        for u in U, v in V]; y = reshape(y, :)
+    z = [sin(u) + .5 * sin(u) * cos(v)      for u in U, v in V];  # Note: this must be a 2D array
+    @gsp :- x y z "w pm3d"
+end