close all
sombrero()

# defaults
assert (get (gca, "rotate3d"), "off")
assert (get (gca, "pan"), "on")
assert (get (gcf, "numbertitle"), "on")

# try to enable rotate
rotate3d on
assert (get (gca, "rotate3d"), "on")
assert (get (gca, "pan"), "off")

# try to disable rotate3d and pan
rotate3d off
assert (get (gca, "rotate3d"), "off")
assert (get (gca, "pan"), "off")

# set rotate3d on to see if 2D plot disables it
rotate3d on

# 2D plot
plot (sin(0:0.04:10))
assert (get (gca, "rotate3d"), "off")
assert (get (gca, "pan"), "on")

# new 2D plot, should have pan = on haben
close all
plot (sin(0:0.04:10))
assert (get (gca, "rotate3d"), "off")
assert (get (gca, "pan"), "on")
 
# horizontaler subplot mit 2D und 3D gemischt
subplot (1, 2, 1);
sombrero ();
subplot (1, 2, 2);
x = -3:0.1:3;
plot (x, exp (x))

function keypress(hnd, event)
  disp ("cb keypress")
  fflush (stdout);
endfunction

function keyrelease(hnd, event)
  disp ("cb keyrelease")
  fflush (stdout);
endfunction

set(gcf, "keypressfcn", "keypress")
set(gcf, "keyreleasefcn", "keyrelease")

## FIXME: The keypress* hnd, event stuff doesn't work

figure (2)
peaks ();
set (gcf, "name", "This is a plot of peaks ()")

figure (3)
plot (sin (0:0.1:10), ";sin;")

## arrange the 3 figure windows horizontally
## Do we have already a script for this?

p = [100 150 560 420];
set(1, "position", p)
p(1) += p(3) + 20;
set(2, "position", p)
p(1) += p(3) + 20;
set(3, "position", p)

## FIXME: The y position (150) is not correct