From 01e2089b8aad8c901ae6c4fe49bedfa0639e4d76 Mon Sep 17 00:00:00 2001
From: Raffaele <r.apetino@studenti.unipi.it>
Date: Tue, 16 Oct 2018 18:33:45 +0200
Subject: [PATCH] Update AnalogClock3.fsx

---
 AnalogClock3.fsx | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/AnalogClock3.fsx b/AnalogClock3.fsx
index 1d741a7..ffedac5 100644
--- a/AnalogClock3.fsx
+++ b/AnalogClock3.fsx
@@ -69,8 +69,6 @@ type AnalogClock () as this =
     let g = e.Graphics
     let d = (min this.ClientSize.Width this.ClientSize.Height) |> single
 
-    g.Transform <- wv.WV
-
     g.SmoothingMode <- Drawing2D.SmoothingMode.HighQuality
   
     let r = d / 2.f - 1.f
@@ -79,6 +77,7 @@ type AnalogClock () as this =
 
     let cw = wv.TransformPointV(PointF(cx, cy))
     wv.TranslateW(cw.X, cw.Y)
+    g.Transform <- wv.WV
     printfn "%A" cw 
     printfn "%f %f" cx cy 
     printfn "%A" (wv.TransformPointV(PointF(cx, cy)))
@@ -122,4 +121,4 @@ t.Tick.Add(fun _ ->
   rome.Time <- System.DateTime.Now
   ny.Time <- System.DateTime.Now - System.TimeSpan(6,0,0)
 )
-t.Start()
\ No newline at end of file
+t.Start()