![[image]](http://mowser.com/img?url=https%3A%2F%2Fsecure.gravatar.com%2Favatar%2F2376ce5458717364a63682dcf313d8c3%3Fs%3D140%26d%3Dhttps%3A%2F%2Fa248.e.akamai.net%2Fassets.github.com%252Fimages%252Fgravatars%252Fgravatar-140.png)
gist: 28157 
Private Gist
All pages are served over SSL and all pushing and pulling is done over SSH. No one may fork, clone, or view it unless they are given this private URL.
Every gist with this icon (
) is private.
Public Gist
Anyone may fork, clone, or view it.
Every repository with this icon () is public.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
#light
open System
open Cairo
open Gtk
Gtk.Application.Init()
let window = new Gtk.Window("F# Cairo")
let vBox = new Gtk.VBox()
let drawingArea = new Gtk.DrawingArea()
let buttonHBox = new Gtk.HBox()
let closeButton = new Gtk.Button()
let SketchCircle (cc:Cairo.Context, xc, yc, xr, yr) =
cc.Save()
let m = cc.Matrix
cc.Translate(xc, yc)
cc.Scale(1., yr/xr)
cc.MoveTo(xr, 0.)
cc.Arc(0., 0., xr, 0., 2.*Math.PI)
cc.ClosePath()
cc.Matrix <- m
cc.Restore()
let FillChecks (cc:Cairo.Context, x, y, w, h) =
let checkSize = 32
cc.Save()
use check = cc.Target.CreateSimilar(Cairo.Content.Color, 2*checkSize, 2*checkSize)
use cr2 = new Cairo.Context(check)
cr2.Operator <- Cairo.Operator.Source
cr2.Color <- new Cairo.Color(0.4, 0.4, 0.4)
cr2.Rectangle(0., 0., 2.*(float)checkSize, 2.*(float)checkSize)
cr2.Fill()
cr2.Color <- new Cairo.Color(0.7, 0.7, 0.7)
cr2.Rectangle(x, y, (float)checkSize, (float)checkSize)
cr2.Fill()
cr2.Rectangle(x + (float)checkSize, y + (float)checkSize, (float)checkSize, (float)checkSize)
cr2.Fill()
use checkPattern = new Cairo.SurfacePattern(check)
checkPattern.Extend <- Cairo.Extend.Repeat
cc.Source <- checkPattern
cc.Rectangle(0., 0., w, h)
cc.Fill()
cc.Restore()
let Draw3Circles (cc:Cairo.Context, xc, yc, radius, alfa) =
cc.Save()
let subradius = radius * (2./3. - 0.1)
cc.Color <- new Cairo.Color(1., 0., 0., alfa)
SketchCircle(cc, xc + radius / 3. * Math.Cos(Math.PI * 0.5), yc - radius / 3. * Math.Sin (Math.PI * 0.5), subradius, subradius)
cc.Fill()
cc.Color <- new Cairo.Color(0., 1., 0., alfa)
SketchCircle(cc, xc + radius / 3. * Math.Cos(Math.PI * (0.5 + 2. / 0.3)), yc - radius / 3. * Math.Sin (Math.PI * (0.5 + 2. / 0.3)), subradius, subradius)
cc.Fill()
cc.Color <- new Cairo.Color(0., 0., 1., alfa)
SketchCircle(cc, xc + radius / 3. * Math.Cos(Math.PI * (0.5 + 4. / 0.3)), yc - radius / 3. * Math.Sin (Math.PI * (0.5 + 4. / 0.3)), subradius, subradius)
cc.Fill()
cc.Restore()
let Draw (cc:Cairo.Context, w, h) =
let radius = 0.5 * Math.Min(w, h) - 10.
let xc = w / 2.
let yc = h / 2.
use overlay = cc.Target.CreateSimilar (Cairo.Content.ColorAlpha, (int)w , (int)h)
use punch = cc.Target.CreateSimilar (Cairo.Content.Alpha, (int)w , (int)h)
use circles = cc.Target.CreateSimilar (Cairo.Content.ColorAlpha, (int)w , (int)h)
FillChecks(cc, 0., 0., w, h)
cc.Save()
use cr_overlay = new Cairo.Context(overlay)
cr_overlay.Color <- new Cairo.Color(0., 0., 0.)
SketchCircle(cr_overlay, xc, yc, radius, radius)
cr_overlay.Fill()
use cr_temp = new Cairo.Context(punch)
Draw3Circles(cr_temp, xc, yc, radius, 1.)
cr_overlay.Operator <- Cairo.Operator.DestOut
cr_overlay.SetSourceSurface (punch, 0, 0)
cr_overlay.Paint()
use cr_circles = new Cairo.Context(circles)
cr_circles.Operator <- Cairo.Operator.Over
Draw3Circles(cr_circles, xc, yc, radius, 0.5)
cr_overlay.Operator <- Cairo.Operator.Add
cr_overlay.SetSourceSurface(circles, 0, 0)
cr_overlay.Paint()
cc.SetSourceSurface(overlay, 0, 0)
cc.Paint()
cc.Restore()
let Knockout(da:Gtk.DrawingArea) =
use drawable = da.GdkWindow
let w,h = da.Allocation.Width, da.Allocation.Height
use cairoContext = Gdk.CairoHelper.Create (drawable)
Draw(cairoContext, (float)w, (float)h)
window.WindowPosition <- Gtk.WindowPosition.Center
window.SetDefaultSize(400, 400)
window.Destroyed.Add(fun _ -> Application.Quit() )
drawingArea.ExposeEvent.Add(fun _ -> Knockout(drawingArea))
drawingArea.ButtonReleaseEvent.Add(fun _ -> () )
closeButton.Label <- " Close "
closeButton.Clicked.Add(fun _ -> Application.Quit() )
vBox.BorderWidth <- (uint32) 12
vBox.Spacing <- 12
vBox.PackStart(drawingArea, true, true, (uint32) 0)
buttonHBox.PackEnd(closeButton, false, false, (uint32) 0)
vBox.PackStart(buttonHBox, false, false, (uint32) 0)
window.Add(vBox)
window.ShowAll()
Gtk.Application.Run()
Please log in to comment.
