Saturday, December 22, 2007

Bezier Similitude

support = Ondulation2[ :support=, LinearBezier[ :support=, [Point::O, Vector::X] ], :freq=, 3, :amp=, 0.5 ]
fuseau = FuseauApp[ :support=, support, :maxwidth=, 0.2 ]
[support, fuseau].samples( 100 ) do |p1, p2|
render.add_object( support.move( (p1..p2) ), Style.new( :stroke=, Color.black, :strokewidth=, 0.001 ) )
end