'From Cuis 5.0 [latest update: #4171] on 24 May 2020 at 5:37:05 pm'!

!SVGElementMorph class methodsFor: 'examples' stamp: 'jmv 5/24/2020 17:36:01'!
examplesClinton
"
SVGElementMorph examplesClinton
"
| m base f |
Transcript clear.
base _ 'VectorGraphics/SVGSamples/'.
[
	m _ SVGMainMorph fromFileNamed: base, 'clinton.svg'
] on: SVGWarning do: [ :warning | warning print. warning resume ].
	f _ Form extent: 360@480 depth:32.
	m privateOwner: self runningWorld.
	m morphPosition: 0@0.
	(VectorCanvas onForm: f) fullDraw: m.
	Display fillColor: Color red.
	f displayOn: Display at: 0@0.
	f makeAllPixelsOpaque.
	f displayOn: Display at: 360@0.
	Display copy inspect.! !

