open System.Windows.Forms
open System.Drawing
open System

let time= System.DateTime.Now



let f =new Form(Text="Paint1",TopMost=true)

f.Show()

let g=Graphics.FromHwnd(f.Handle)

let draw1 (g:Graphics) x y=(
    g.FillRectangle(Brushes.Red,x+20,y+10,10,10)
    g.FillRectangle(Brushes.Red,x+30,y+0,10,50)
)

let draw2 (g:Graphics) x y=(
    g.FillRectangle(Brushes.Red,x+0,y+10,10,10)
    g.FillRectangle(Brushes.Red,x+10,y+0,20,10)
    g.FillRectangle(Brushes.Red,x+30,y+10,10,20)
    g.FillRectangle(Brushes.Red,x+20,y+20,10,10)
    g.FillRectangle(Brushes.Red,x+10,y+30,10,10)
    g.FillRectangle(Brushes.Red,x+10,y+40,30,10)
)
let draw3 (g:Graphics) x y=(
    g.FillRectangle(Brushes.Red,x+10,y+0,20,10)
    g.FillRectangle(Brushes.Red,x+30,y+10,10,30)
    g.FillRectangle(Brushes.Red,x+20,y+20,10,10)
    g.FillRectangle(Brushes.Red,x+10,y+40,20,10)

)

let draw4 (g:Graphics) x y=(
    g.FillRectangle(Brushes.Red,x+0,y+0,10,20)
    g.FillRectangle(Brushes.Red,x+20,y+10,10,40)
    g.FillRectangle(Brushes.Red,x+10,y+20,30,10)


)

let draw5 (g:Graphics) x y=(
    g.FillRectangle(Brushes.Red,x+20,y+0,20,10)
    g.FillRectangle(Brushes.Red,x+10,y+10,10,20)
    g.FillRectangle(Brushes.Red,x+20,y+20,10,10)
    g.FillRectangle(Brushes.Red,x+30,y+30,10,10)
    g.FillRectangle(Brushes.Red,x+10,y+40,30,10)

)

let draw6 (g:Graphics) x y=(
    g.FillRectangle(Brushes.Red,x+10,y+0,20,10)
    g.FillRectangle(Brushes.Red,x+0,y+10,10,30)
    g.FillRectangle(Brushes.Red,x+10,y+20,20,10)
    g.FillRectangle(Brushes.Red,x+30,y+30,10,10)
    g.FillRectangle(Brushes.Red,x+10,y+40,20,10)

)
let draw7 (g:Graphics) x y=(
    g.FillRectangle(Brushes.Red,x+0,y+10,10,10)
    g.FillRectangle(Brushes.Red,x+10,y+0,20,10)
    g.FillRectangle(Brushes.Red,x+30,y+10,10,10)
    g.FillRectangle(Brushes.Red,x+20,y+20,10,10)
    g.FillRectangle(Brushes.Red,x+10,y+30,10,10)
    g.FillRectangle(Brushes.Red,x+0,y+40,10,10)

)

let draw8 (g:Graphics) x y=(
    g.FillRectangle(Brushes.Red,x+10,y+0,20,10)
    g.FillRectangle(Brushes.Red,x+10,y+20,20,10)
    g.FillRectangle(Brushes.Red,x+10,y+40,20,10)
    g.FillRectangle(Brushes.Red,x+0,y+10,10,10)
    g.FillRectangle(Brushes.Red,x+0,y+30,10,10)
    g.FillRectangle(Brushes.Red,x+30,y+10,10,10)
    g.FillRectangle(Brushes.Red,x+30,y+30,10,10)
)


let draw9 (g:Graphics) x y=(
    g.FillRectangle(Brushes.Red,x+10,y+0,20,10)
    g.FillRectangle(Brushes.Red,x+10,y+20,20,10)
    g.FillRectangle(Brushes.Red,x+10,y+40,20,10)
    g.FillRectangle(Brushes.Red,x+0,y+10,10,10)
    g.FillRectangle(Brushes.Red,x+30,y+10,10,30)

)

let draw0 (g:Graphics) x y=(
    g.FillRectangle(Brushes.Red,x+10,y+0,20,10)
    g.FillRectangle(Brushes.Red,x+10,y+40,20,10)
    g.FillRectangle(Brushes.Red,x+0,y+10,10,30)
    g.FillRectangle(Brushes.Red,x+30,y+10,10,30)


)

let draw2pti (g:Graphics) x y=(
    g.FillRectangle(Brushes.Red,x+10,y+10,10,10)
    g.FillRectangle(Brushes.Red,x+10,y+30,10,10)



)

let hrs=[|draw0;draw1;draw2;draw3;draw4;draw5;draw6;draw7;draw8;draw9|]

let paintHours (g:Graphics) =(
    let Hour1= time.Hour/10
    let Hour2= time.Hour-(Hour1*10)
    let minute1 =time.Minute/10
    let minute2 =time.Minute-(minute1*10)
    hrs.[Hour1] g 0 0
    hrs.[Hour2] g 50  0
    draw2pti g 100 0
    hrs.[minute1] g 130 0
    hrs.[minute2] g 180 0
)


f.Paint.Add(fun e->
    let g=e.Graphics
    paintHours g

)