newImage 640 480
winShow
winTitle Affine Transform Demo (ooRexx)
shape MYP Polygon (-20,0,+20,0) (20,10,20,-20) 4
color GREEN
fillShape MYP
translate 50 50
scale 1.2 1.2
fillShape MYP
translate 50 5
color BLUE
fillShape MYP
rotate 15.0
color RED
fillShape MYP
translate 50 5
color BLUE
fillShape MYP
rotate 15.0
color RED
fillShape MYP
translate 50 5
color BLUE
fillShape MYP
rotate 15.0
color RED
fillShape MYP
translate 50 5
color BLUE
fillShape MYP
rotate 15.0
color RED
fillShape MYP
translate 50 5
color BLUE
fillShape MYP
rotate 15.0
color RED
fillShape MYP
sleep 3.0
