hg/stx-goodies-libcairo: Cairo__ClockView.st@1bd3d147cd77 (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
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	6	instanceVariableNames:'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
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	54	self redrawWithCairo
15 c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	56	"Created: / 16-06-2012 / 23:25:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	57	"Modified: / 27-12-2014 / 00:32:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	58	!
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	59
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	60	redrawX: x y: y width: w height: h
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	61	self redrawWithCairoX: x y: y width: w height: h
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	62
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	63	"Created: / 17-06-2012 / 21:33:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	64	"Modified: / 27-12-2014 / 00:32:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	65	! !
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	66
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	67	!ClockView methodsFor:'redrawing - cairo'!
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	68
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	69	redrawWithCairo: cr
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	70
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	71	\| time hours mins secs \|
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	72
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	73	"/ 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	74	"/ the center of the window
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	75	cr save.
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	76	cr scale: self extent.
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	77	cr translate: (0.5 @ 0.5).
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	78	cr lineWidth: 0.05.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	79
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	80	cr paint: (Color red: 33 green: 61 blue: 11).
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	81	cr paint.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	82
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	83	cr arcX: 0 y: 0 radius: 0.42 from: 0 to: (2 * (Float pi)).
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	84	cr paint: Color white.
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	85	cr fillAndPreserve.
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	86	cr paint: Color black.
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	87	cr strokeAndPreserve.
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	88	cr clip.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	89
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	90	"Now, clock ticks"
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	91
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	92	0 to: 11 do:[:i\|
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	93	\| inset \|
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	94
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	95	inset := 0.05.
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	96	cr save.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	97
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	98	cr lineCap: Cairo::LineCap LINE_CAP_ROUND.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	99	(i \\ 3) ~~ 0 ifTrue:[
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	100	inset := inset * 0.8.
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	101	cr lineWidth: 0.03.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	102	].
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	103
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	104	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	105	y: (0.42 - inset) * ( i * (Float pi / 6)) sin.
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	106
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	107	cr lineToX: (0.42 ) * ( i * (Float pi / 6)) cos
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	108	y: (0.42 ) * ( i * (Float pi / 6)) sin.
16 a810555a635c - Cairo::Surface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	109
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	110	cr stroke.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	111
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	112	cr restore.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	113	].
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	114
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	115	"/ Not, the current time"
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	116
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	117	time := Time now.
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	118	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	119	* (Float pi / 6).
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	120	mins := time minutes * (Float pi / 30).
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	121	secs := time seconds * (Float pi / 30).
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	122
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	123	cr save.
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	124	cr lineCap: Cairo::LineCap LINE_CAP_ROUND.
16 a810555a635c - Cairo::Surface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	125
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	126	"/ draw the seconds hand
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	127	cr save.
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	128	cr lineWidth: 0.016.
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	129	cr paint: ((Color red: 70 green: 70 blue: 70) alpha: 0.8).
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	130	cr moveToX: 0.0 y: 0.0.
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	131	cr lineToX: (secs sin * (0.42 * 0.9))
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	132	y: (-1 * (secs cos * (0.42 * 0.9))).
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	133	cr stroke.
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	134	cr restore.
16 a810555a635c - Cairo::Surface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	135
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	136	"/ draw th minutes
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	137	cr paint: ((Color red: 11 green: 33 blue: 61) alpha: 0.7).
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	138	cr moveToX: 0.0 y: 0.0.
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	139	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	140	y: (-1 * ((mins + (secs / 60)) cos * (0.42 * 0.8))).
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	141	cr stroke.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	142
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	143	"/ draw the hours hand
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	144	cr paint: ((Color red: 33 green: 61 blue: 11) alpha: 0.6).
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	145	cr moveToX: 0.0 y: 0.0.
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	146	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	147	y: (-1 * ((hours + (mins / 12)) cos * (0.42 * 0.5))).
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	148	cr stroke.
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	149
5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	150
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	151	cr restore.
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	152	cr arcX: 0 y: 0 radius: 0.01 from: 0 to: (2 * (Float pi)).
1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	153	cr fill.
15 c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154
16 a810555a635c - Cairo::Surface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	155
a810555a635c - Cairo::Surface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	156
17 5f943c05c028 - Cairo::GraphicsContext Jan Vrany <jan.vrany@fit.cvut.cz> parents: 16 diff changeset	157
15 c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	159	cr restore.
16 a810555a635c - Cairo::Surface Jan Vrany <jan.vrany@fit.cvut.cz> parents: 15 diff changeset	160
28 1bd3d147cd77 Added utility methods to SimpleView... Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	161	"Created: / 27-12-2014 / 00:00:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
15 c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162	! !
c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163
c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	!ClockView class methodsFor:'documentation'!
c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165
23 38ee47dbd976 Added version_HG to make Mercurial happy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18 diff changeset	166	version_HG
38ee47dbd976 Added version_HG to make Mercurial happy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 18 diff changeset	167	^ '$Changeset: <not expanded> $'
15 c1db2c8aa2ed - stx_goodies_libcairo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168	! !
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	169

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Sat, 27 Dec 2014 00:45:13 +0100
changeset 28	1bd3d147cd77
parent 26	7f07a8c31e6d
child 29	6ba06265e543
permissions	-rw-r--r--