repo.or.cz
/
factor
/
jcg.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Move size-of to unmaintained until help-lint is fixed
[factor/jcg.git]
/
unmaintained
/
geom
/
dim
/
dim.factor
blob
1cac5d765ff92e6f397ba99d9745d468548c65af
1
2
USING: sequences mortar slot-accessors ;
3
4
IN: geom.dim
5
6
SYMBOL: <dim>
7
8
<dim> { "dim" } accessors define-independent-class
9
10
<dim> {
11
12
"width" !( dim -- width ) [ $dim first ]
13
14
"height" !( dim -- second ) [ $dim second ]
15
16
} add-methods