hg/stx-goodies-libcairo: Cairo__Matrix.st@28dfc583beb5 (annotated)

1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/libcairo' }"
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Cairo }"
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
40 28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	5	CStructure variableByteSubclass:#Matrix
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
12 e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	9	category:'Cairo-Objects'
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
7 392289f92fab - DLL path is set automatically. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	12
40 28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	13	!Matrix class methodsFor:'initialization'!
12 e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	14
40 28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	15	initialize
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	16	"Invoked at system start or when the class is dynamically loaded."
12 e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	17
40 28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	18	fields := #(
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	19	xx
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	20	yx
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	21	xy
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	22	yy
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	23	x0
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	24	y0
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	25	)
12 e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	26
40 28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	27	"/ please change as required (and remove this comment)
12 e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	28
40 28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	29	"Modified: / 18-02-2016 / 09:08:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	30	! !
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	31
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	32	!Matrix class methodsFor:'instance creation'!
12 e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	33
40 28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	34	identity
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	35	\| m \|
12 e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	36
40 28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	37	m := self new.
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	38	CPrimitives cairo_matrix_init_identity: m.
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	39	^ m
12 e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	40
40 28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	41	"Created: / 17-02-2016 / 20:14:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
12 e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	42	!
e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	43
40 28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	44	scale: aNumberOrPoint
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	45	\| sx sy m \|
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	46	aNumberOrPoint isPoint ifTrue:[
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	47	sx := aNumberOrPoint x asFloat.
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	48	sy := aNumberOrPoint y asFloat.
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	49	] ifFalse:[
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	50	sx := sy := aNumberOrPoint asFloat.
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	51	].
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	52	m := self new.
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	53	CPrimitives cairo_matrix_init_scale: m _: sx _: sy.
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	54	^ m.
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55
40 28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	56	"Created: / 18-02-2016 / 00:17:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	57	! !
12 e5f0c18af8a9 - Cairo::Format Jan Vrany <jan.vrany@fit.cvut.cz> parents: 11 diff changeset	58
40 28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	59	!Matrix class methodsFor:'accessing'!
6 c1f387b40e3a regenerated using newer version of CFace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	60
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	61	sizeof
6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	62	"Returns size of undelaying structure in bytes"
6 c1f387b40e3a regenerated using newer version of CFace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	63
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	64	^48
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	65	! !
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	66
6 c1f387b40e3a regenerated using newer version of CFace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	67	!Matrix methodsFor:'accessing'!
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	68
6 c1f387b40e3a regenerated using newer version of CFace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	69	x0
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	70	"Returns double"
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	71
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	72	^self doubleAt:1 + 32
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	73	!
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	74
6 c1f387b40e3a regenerated using newer version of CFace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	75	x0: value
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	76
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	77	self doubleAt:1 + 32 put:value
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	78	!
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79
6 c1f387b40e3a regenerated using newer version of CFace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	80	xx
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	81	"Returns double"
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	83	^self doubleAt:1 + 0
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84	!
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	85
6 c1f387b40e3a regenerated using newer version of CFace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	86	xx: value
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	88	self doubleAt:1 + 0 put:value
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89	!
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90
6 c1f387b40e3a regenerated using newer version of CFace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	91	xy
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	92	"Returns double"
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	94	^self doubleAt:1 + 16
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	!
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96
6 c1f387b40e3a regenerated using newer version of CFace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	97	xy: value
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	98
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	99	self doubleAt:1 + 16 put:value
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100	!
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101
6 c1f387b40e3a regenerated using newer version of CFace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	102	y0
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	103	"Returns double"
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	105	^self doubleAt:1 + 40
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106	!
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	107
6 c1f387b40e3a regenerated using newer version of CFace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	108	y0: value
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	110	self doubleAt:1 + 40 put:value
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111	!
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	112
6 c1f387b40e3a regenerated using newer version of CFace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	113	yx
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	114	"Returns double"
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	116	^self doubleAt:1 + 8
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117	!
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118
6 c1f387b40e3a regenerated using newer version of CFace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	119	yx: value
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	121	self doubleAt:1 + 8 put:value
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	!
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123
6 c1f387b40e3a regenerated using newer version of CFace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	124	yy
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	125	"Returns double"
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	127	^self doubleAt:1 + 24
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128	!
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129
6 c1f387b40e3a regenerated using newer version of CFace Jan Vrany <jan.vrany@fit.cvut.cz> parents: 5 diff changeset	130	yy: value
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	132	self doubleAt:1 + 24 put:value
1 2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133	! !
2439fb18f3dc Initial commit. Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134
7 392289f92fab - DLL path is set automatically. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	135	!Matrix class methodsFor:'documentation'!
392289f92fab - DLL path is set automatically. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	136
392289f92fab - DLL path is set automatically. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	137	version
392289f92fab - DLL path is set automatically. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	138	^'$Id$'
11 fdc697f4f190 - Cairo::SvgVersion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	139	!
fdc697f4f190 - Cairo::SvgVersion Jan Vrany <jan.vrany@fit.cvut.cz> parents: 7 diff changeset	140
23 38ee47dbd976 Added version_HG to make Mercurial happy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	141	version_HG
38ee47dbd976 Added version_HG to make Mercurial happy Jan Vrany <jan.vrany@fit.cvut.cz> parents: 20 diff changeset	142	^ '$Changeset: <not expanded> $'
7 392289f92fab - DLL path is set automatically. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 6 diff changeset	143	! !
29 6ba06265e543 Bindinge updated to recent Cairo version. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 23 diff changeset	144
40 28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	145
28dfc583beb5 #displayString: in CairoGraphicsContext revamped Jan Vrany <jan.vrany@fit.cvut.cz> parents: 29 diff changeset	146	Matrix initialize!

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 17 Feb 2016 06:43:31 +0000
changeset 40	28dfc583beb5
parent 29	6ba06265e543
child 63	054f0513ea65
permissions	-rw-r--r--