Changeset 352 for trunk/samples

Timestamp:

12/10/2007 16:17:06 (9 months ago)

Author:

why

Message:

• samples/cloc.rb: making the stroke thin on the quarter ticks and adding some contrast to the readable time.
  

Files:

• trunk/samples/clock.rb (modified) (4 diffs)

trunk/samples/clock.rb

@@ -3 +3 @@
 # posted to the Shoes mailing list on 04 Dec 2007
 #
-Shoes.app :height => 250, :width => 250 do
-  @radius, @centerx, @centery = 90, 120, 130
+Shoes.app :height => 260, :width => 250 do
+  @radius, @centerx, @centery = 90, 126, 140
   stack :margin => 10 do
     animate(8) do
@@ -10 +10 @@
       clear do
         draw_background
-        para @time.strftime("%a %b %d, %Y %I:%M:%S"), :align => "center"
+        stack do
+          background black
+          para @time.strftime("%a"),
+            span(@time.strftime(" %b %d, %Y "), :stroke => "#ccc"), 
+            strong(@time.strftime("%I:%M"), :stroke => white), 
+            @time.strftime(".%S"), :align => "center", :stroke => "#666"
+        end
         clock_hand @time.sec + (@time.usec * 0.000001),2,30,red
         clock_hand @time.min + (@time.sec / 60.0),5
@@ -18 +24 @@
   end
   def draw_background
-    background rgb(240, 250, 210)
+    background rgb(230, 240, 200)
 
     fill white
@@ -28 +34 @@
 
     stroke black
-    line(@centerx, @centery - 100, @centerx, @centery - 95)
-    line(@centerx - 100, @centery, @centerx - 95, @centery)
-    line(@centerx + 95, @centery, @centerx + 100, @centery)
-    line(@centerx, @centery + 95, @centerx, @centery + 100)
+    strokewidth 1
+    line(@centerx, @centery - 102, @centerx, @centery - 95)
+    line(@centerx - 102, @centery, @centerx - 95, @centery)
+    line(@centerx + 95, @centery, @centerx + 102, @centery)
+    line(@centerx, @centery + 95, @centerx, @centery + 102)
   end
   def clock_hand(time, sw, unit=30, color=black)