globes.scene

pi = 3.14159

draw(plane(<0, 1, 0>, 25.01, red * 0.5, 0.2))

support_color = rgb(0.6, 0.5, 0.7)
support_reflection = 0.2

// Base
translate(0, -25, 0) do
  scale(1, 0.1, 1)
  translate(0, 20, 0)
    a = cube(30)

  base = csg(a, sphere(15), 'intersection', support_color, support_reflection)
end
draw(base)

// Support rod
translate(0, -20, 0) do
  scale(1, 100, 1)
    support = sphere(1)
  support = csg(support, cube(10), 'intersection', support_color, support_reflection)
end
draw(support)

translate(0, 5, 0)
rotate(0, (2*pi) * 0.2, 0)
rotate(0.3, 0, 0) do
  // Claw
  scale(0.05, 1, 1)
  translate(0, 0, 15)
    a = cube(40)
  b = csg(sphere(20), sphere(18), 'difference')
  claw = csg(b, a, 'intersection', support_color, support_reflection)

  // Globe
  worldmap = texture("worldmap.png")
  rotate(0, (pi * 2) * time, 0)
  globe = sphere(15, worldmap)

  // Glass globe
  glass = sphere(15, blue, 0, 0.8)

  // Axis rod
  scale(1, 100, 1)
    axis = sphere(1)
  axis = csg(axis, cube(40), 'intersection', support_color * 0.7, support_reflection)
end
draw(claw)
draw(globe)
//draw(glass)
draw(axis)

append light(<0, 0, -35>, white * 0.5, 100)

set camera(<0, 10, -85>)