hype gear example

Author: monkstone

external_library/java/hype/data/cog_lg.svg

@@ -0,0 +1,27 @@
+# encoding: utf-8
+load_library :hype
+include_package 'hype'
+java_import 'hype.extended.behavior.HRotate'
+attr_reader :box_x, :box_y, :box_z, :colors
+PALETTE = %w(#242424 #FF3300 #FF6600).freeze
+
+def settings
+  size(640, 640)
+end
+
+def setup
+  sketch_title 'HRotate Gears'
+  H.init(self)
+  @colors = web_to_color_array(PALETTE)
+  H.background(colors[0])
+  svg1 = HShape.new(data_path('cog_sm.svg'))
+  svg2 = HShape.new(data_path('cog_lg.svg'))
+  H.add(svg1).enableStyle(false).fill(colors[1]).anchorAt(H::CENTER).loc(223, 413)
+  HRotate.new(svg1, -0.5)
+  H.add(svg2).enableStyle(false).fill(colors[2]).anchorAt(H::CENTER).loc(690, 260)
+  HRotate.new(svg2, 0.3333)
+end
+
+def draw
+  H.draw_stage
+end