if no unit is given in the readString, assume seconds.
"
COPYRIGHT (c) 1996 by Claus Gittinger
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
"{ Package: 'stx:libbasic2' }"
Geometric subclass:#Curve
instanceVariableNames:'startPoint middlePoint endPoint'
classVariableNames:''
poolDictionaries:''
category:'Graphics-Geometry-Objects'
!
!Curve class methodsFor:'documentation'!
copyright
"
COPYRIGHT (c) 1996 by Claus Gittinger
All Rights Reserved
This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice. This software may not
be provided or otherwise made available to, or used by, any
other person. No title to or ownership of the software is
hereby transferred.
"
!
documentation
"
A Curve is a conic section determined by three points
that interpolates the first and the third and is tangent to the angle formed
by the three points at the first and third points.
[author:]
Claus Gittinger
[see also:]
Rectangle Polygon EllipticalArc Circle Spline Point LineSegment
ArrowedSpline Arrow
GraphicsContext
StrokingWrapper FillingWrapper
"
!
examples
"
filled & unfilled:
[exBegin]
|v c|
v := (View extent:100@100) openAndWait.
c := Curve start:(20@20) middle:(80@80) end:(20@80).
v paint:Color blue.
c displayFilledOn:v.
v paint:Color red.
c displayStrokedOn:v.
[exEnd]
with a grid (for demonstration):
[exBegin]
|v c|
v := (View extent:200@100) openAndWait.
v lineStyle:#dashed.
v displayLineFrom:(20@0) to:(20@200).
v displayLineFrom:(180@0) to:(180@200).
v displayLineFrom:(0@20) to:(200@20).
v displayLineFrom:(0@80) to:(200@80).
v lineStyle:#solid.
c := Curve start:(20@20) middle:(180@80) end:(20@80).
v paint:Color blue.
c displayFilledOn:v.
v paint:Color red.
c displayStrokedOn:v.
v paint:(Color black).
v displayLineFrom:(20@20) to:(180@80).
v displayLineFrom:(20@80) to:(180@80).
[exEnd]
"
! !
!Curve class methodsFor:'instance creation'!
from:startPoint to:endPoint through:middlePoint
"return a new curve, passing through the three given points"
^ self new start:startPoint middle:middlePoint end:endPoint
"Created: 8.5.1996 / 21:16:39 / cg"
!
start:startPoint middle:middlePoint end:endPoint
"return a new curve, passing through the three given points"
^ self new start:startPoint middle:middlePoint end:endPoint
"Created: 8.5.1996 / 21:19:30 / cg"
!
with:startPoint with:middlePoint with:endPoint
"return a new curve, passing through the three given points"
^ self new start:startPoint middle:middlePoint end:endPoint
"Created: 17.5.1996 / 10:22:47 / cg"
! !
!Curve methodsFor:'accessing'!
end
"return the endPoint"
^ endPoint
"Created: 8.5.1996 / 21:08:35 / cg"
!
start
"return the startPoint"
^ startPoint
"Created: 8.5.1996 / 21:08:44 / cg"
!
start:p1 middle:p2 end:p3
"set the startPoint, middlePoint and the endPoint"
startPoint := p1.
middlePoint := p2.
endPoint := p3.
"Created: 8.5.1996 / 21:09:40 / cg"
! !
!Curve methodsFor:'converting'!
asPointArray
"return an array containing my points."
^ Array with:startPoint with:middlePoint with:endPoint
"Created: 9.5.1996 / 01:07:07 / cg"
!
asPolygon
"return a polygon, approximating the spline"
^ Polygon vertices:(self computeLineSegments)
"Created: 9.5.1996 / 01:08:12 / cg"
! !
!Curve methodsFor:'displaying'!
displayFilledOn:aGC
"draw the receiver as a filled curve in a graphicsContext, aGC"
aGC fillPolygon:self computeLineSegments
"Created: 8.5.1996 / 21:24:15 / cg"
"Modified: 9.5.1996 / 01:08:34 / cg"
!
displayStrokedOn:aGC
"draw the receiver as a unfilled curve in a graphicsContext, aGC"
aGC displayPolygon:self computeLineSegments
"Modified: 9.5.1996 / 01:08:36 / cg"
! !
!Curve methodsFor:'helpers'!
computeLineSegments
"compute the lines which approxiamte this curve"
|lines pa pb
numberOfSegments "{ Class: SmallInteger }"|
lines := OrderedCollection new.
"/ Compute the number of line segments used to approximate the curve.
pa := middlePoint - startPoint.
pb := endPoint - middlePoint.
numberOfSegments := 5 max:pa x abs + pa y abs + pb x abs + pb y abs // 20.
"/ Add all of the points necessary for the path.
lines add:startPoint.
1 to:numberOfSegments do:[:seg |
lines add:
((pa * seg // numberOfSegments + startPoint) * (numberOfSegments - seg)
+ ((pb * (seg - 1) // numberOfSegments + middlePoint) * (seg - 1)))
// (numberOfSegments - 1)
].
lines add:endPoint.
^ lines
"Created: 9.5.1996 / 01:08:21 / cg"
! !
!Curve methodsFor:'queries'!
bounds
"return the smallest enclosing rectangle"
|min max|
min := (startPoint min: endPoint) min: middlePoint.
max := (startPoint max: endPoint) max: middlePoint.
^ min corner:max
"
(Curve from:10@10 to:50@100 through:50@50) bounds
(Curve from:10@10 to:50@100 through:100@50) bounds
"
"Modified: 8.5.1996 / 21:18:50 / cg"
!
canBeFilled
"return true, if the receiver can be drawn as a filled geometric.
Always true here."
^ true
! !
!Curve class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic2/Curve.st,v 1.7 2003-08-29 17:32:10 cg Exp $'
! !