hg/stx-goodies-libcairo: Cairo__ClockView.st@7f07a8c31e6d (annotated)

15 c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/libcairo' }"
c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Cairo }"
c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	SimpleView subclass:#ClockView
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	6	instanceVariableNames:'cr updater'
15 c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'Cairo-Examples'
c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	13	!ClockView methodsFor:'accessing-dimensions'!
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	14
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	15	preferredExtent
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	16
18 fae6edf1bdbd - Cairo::TextExampleView Jan Vrany <jan.vrany@fit.cvut.cz> parents: 17 diff changeset	17	^400 @ 400
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	18
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	19	"Created: / 17-06-2012 / 22:37:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	20	! !
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	21
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	22	!ClockView methodsFor:'event handling'!
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	23
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	24	destroy
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	25
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	26	updater notNil ifTrue:[updater terminate].
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	27	super destroy.
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	28
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	29	"Created: / 17-06-2012 / 22:41:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	30	!
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	31
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	32	mapped
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	33
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	34	updater isNil ifTrue:[
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	35	updater := [ [ Delay waitForSeconds: 1. self invalidate ] loop ] newProcess.
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	36	updater resume.
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	37	].
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	38	super mapped.
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	39
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	40	"Created: / 17-06-2012 / 22:40:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	41	!
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	42
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	43	unmapped
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	44
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	45	updater notNil ifTrue:[updater terminate].
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	46	super unmapped.
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	47
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	48	"Created: / 17-06-2012 / 22:42:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	49	! !
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	50
15 c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	!ClockView methodsFor:'redrawing'!
c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52
c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	redraw
c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	55	\| image image_cr time hours mins secs \|
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	56
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	57	self clippingRectangle:
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	58	(Smalltalk::Rectangle left:1 top:1 width:self width height:self height).
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	59	cr isNil ifTrue:[
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	60	cr := self cairo.
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	61	].
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	62	image_cr := Cairo::GraphicsContext on: (image := Cairo::Surface forImageFormatARGB32width: self width height: self height).
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	63
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	64	"/ scale to unit square and translate (0, 0) to be (0.5, 0.5), i.e.
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	65	"/ the center of the window
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	66	image_cr save.
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	67	image_cr scale: self extent.
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	68	image_cr translate: (0.5 @ 0.5).
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	69	image_cr lineWidth: 0.05.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	70
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	71	image_cr paint: (Color red: 33 green: 61 blue: 11).
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	72	image_cr paint.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	73
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	74	image_cr arcX: 0 y: 0 radius: 0.42 from: 0 to: (2 * (Float pi)).
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	75	image_cr paint: Color white.
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	76	image_cr fillAndPreserve.
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	77	image_cr paint: Color black.
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	78	image_cr strokeAndPreserve.
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	79	image_cr clip.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	80
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	81	"Now, clock ticks"
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	82
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	83	0 to: 11 do:[:i\|
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	84	\| inset \|
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	85
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	86	inset := 0.05.
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	87	image_cr save.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	88
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	89	image_cr lineCap: Cairo::LineCap LINE_CAP_ROUND.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	90	(i \\ 3) ~~ 0 ifTrue:[
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	91	inset := inset * 0.8.
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	92	image_cr lineWidth: 0.03.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	93	].
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	94
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	95	image_cr moveToX: (0.42 - inset) * ( i * (Float pi / 6)) cos
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	96	y: (0.42 - inset) * ( i * (Float pi / 6)) sin.
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	97
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	98	image_cr lineToX: (0.42 ) * ( i * (Float pi / 6)) cos
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	99	y: (0.42 ) * ( i * (Float pi / 6)) sin.
16 a810555a635c - Cairo::Surface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	100
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	101	image_cr stroke.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	102
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	103	image_cr restore.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	104	].
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	105
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	106	"/ Not, the current time"
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	107
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	108	time := Time now.
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	109	hours := (time hours > 12 ifTrue:[time hours - 12] ifFalse:[time hours])
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	110	* (Float pi / 6).
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	111	mins := time minutes * (Float pi / 30).
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	112	secs := time seconds * (Float pi / 30).
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	113
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	114	image_cr save.
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	115	image_cr lineCap: Cairo::LineCap LINE_CAP_ROUND.
16 a810555a635c - Cairo::Surface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	116
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	117	"/ draw the seconds hand
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	118	image_cr save.
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	119	image_cr lineWidth: 0.016.
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	120	image_cr paint: ((Color red: 70 green: 70 blue: 70) alpha: 0.8).
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	121	image_cr moveToX: 0.0 y: 0.0.
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	122	image_cr lineToX: (secs sin * (0.42 * 0.9))
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	123	y: (-1 * (secs cos * (0.42 * 0.9))).
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	124	image_cr stroke.
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	125	image_cr restore.
16 a810555a635c - Cairo::Surface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	126
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	127	"/ draw th minutes
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	128	image_cr paint: ((Color red: 11 green: 33 blue: 61) alpha: 0.7).
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	129	image_cr moveToX: 0.0 y: 0.0.
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	130	image_cr lineToX: ((mins + (secs / 60)) sin * (0.42 * 0.8))
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	131	y: (-1 * ((mins + (secs / 60)) cos * (0.42 * 0.8))).
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	132	image_cr stroke.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	133
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	134	"/ draw the hours hand
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	135	image_cr paint: ((Color red: 33 green: 61 blue: 11) alpha: 0.6).
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	136	image_cr moveToX: 0.0 y: 0.0.
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	137	image_cr lineToX: ((hours + (mins / 12)) sin * (0.42 * 0.5))
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	138	y: (-1 * ((hours + (mins / 12)) cos * (0.42 * 0.5))).
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	139	image_cr stroke.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	140
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	141
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	142	image_cr restore.
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	143	image_cr arcX: 0 y: 0 radius: 0.01 from: 0 to: (2 * (Float pi)).
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	144	image_cr fill.
15 c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145
16 a810555a635c - Cairo::Surface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	146
a810555a635c - Cairo::Surface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	147
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	148
15 c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	150	image_cr restore.
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	151
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	152	cr setSourceSurface: image.
7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	153	cr paint.
16 a810555a635c - Cairo::Surface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	154
15 c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155	"Created: / 16-06-2012 / 23:25:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	156	"Modified: / 24-12-2014 / 23:56:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	157	!
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	158
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	159	redrawX: x y: y width: w height: h
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	160
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	161	self redraw
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	162
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	163	"Created: / 17-06-2012 / 21:33:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
15 c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	! !
c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165
c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166	!ClockView class methodsFor:'documentation'!
c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167
23 38ee47dbd976 Added version_HG to make Mercurial happy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18 diff changeset	168	version_HG
38ee47dbd976 Added version_HG to make Mercurial happy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18 diff changeset	169	^ '$Changeset: <not expanded> $'
15 c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	170	! !
26 7f07a8c31e6d Fixed flickring of Cairo::ClockView by rendering into an off-screen image. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 24 diff changeset	171

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 24 Dec 2014 23:59:59 +0100
changeset 26	7f07a8c31e6d
parent 24	6c74dd51bff4
child 28	1bd3d147cd77
permissions	-rw-r--r--