Lines Matching +refs:snit +refs:type
16 package require snit ; # Object framework.
24 snit::type ::diagram::basic {
60 set dzero [snit::double ${selfns}::D0 -min 0]
61 set dmin [snit::double ${selfns}::D1 -min 0];# 0 exclusive.
62 set imin [snit::integer ${selfns}::I1 -min 1]
66 $core new attribute stroke linked {linewidth 1} type $imin
79 $core new attribute width linked [Link boxwidth 2 cm] type $dmin
80 $core new attribute height linked [Link boxheight 2 cm] type $dmin
81 $core new attribute slant linked {slant 90} type snit::double;# degrees - range normalization - transform ?
85 $core new attribute arc::radius linked [Link arcradius 1 cm] type $dmin
86 $core new attribute circle::radius linked [Link circleradius 1 cm] type $dmin
87 $core new attribute diameter key circle::radius type $dmin \
93 $core new attribute diamond::width type $dmin default $dd
94 $core new attribute diamond::height type $dmin default $dd
95 $core new attribute diamond::aspect type $dzero default $dd
99 $core new attribute drum::aspect type $dzero linked {drumaspect 0.35}
104 $core new attribute chop aggregate 1 type $dzero get [mymethod Chop]
106 $core new attribute smooth type snit::boolean linked {smooth 0} \
108 $core new attribute noturn type snit::boolean \
115 $core new attribute arc::from type diagram::point default $al
116 $core new attribute arc::to type diagram::point default $al
117 $core new attribute clockwise type snit::boolean linked {clockwise 0} \
119 $core new attribute counterclockwise key clockwise type snit::boolean \