"{ Package: 'stx:libbasic2' }"

LineSegment subclass:#Bezier2Segment
	instanceVariableNames:'via'
	classVariableNames:''
	poolDictionaries:''
	category:'Graphics-Geometry-Objects'
!

!Bezier2Segment class methodsFor:'documentation'!

documentation
"
    borrowed from Squeak2.4

    This class represents a quadratic bezier segment between two points

    Instance variables:
        via             <Point> The additional control point (OFF the curve)
"
! !

!Bezier2Segment class methodsFor:'instance creation'!

from:startPoint via:viaPoint to:endPoint 
    ^ self new from:startPoint to:endPoint via:viaPoint

! !

!Bezier2Segment methodsFor:'accessing'!

via
    "Return the control point"
    ^ via

! !

!Bezier2Segment methodsFor:'initialization'!

from:start to:end
    "Initialize the receiver as straight line"

    startPoint := start.
    endPoint := end.
    via := (start + end) // 2.

!

from:start to:end via:viaPoint
    "Initialize the receiver"

    startPoint := start.
    endPoint := end.
    via := viaPoint.
! !

!Bezier2Segment methodsFor:'testing'!

isBezier2Segment
    "return true, if the receiver is a quadratic bezier segment"

    ^ true


! !

!Bezier2Segment class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/libbasic2/Bezier2Segment.st,v 1.3 2003-08-29 17:32:22 cg Exp $'
! !