Issue with Smile
Issue with Smile
- Subject: Issue with Smile
- From: Deivy Petrescu <email@hidden>
- Date: Mon, 25 Sep 2017 21:39:17 -0400
I have Smile 3.8.0 build 970.
I wrote the following script:
<script>
set w to make new graphic window with properties {name:"Angular Speed",
frame:{0.0, 0.0, 950.0, 815.0}, never save:true}
repeat with j from 0 to 120
set r1 to 1
set r2 to 0.67
set r3 to 0.33
set r4 to 0.5
set d to 0.09
set theAngle to j * pi / 30
BeginFrontFigure(w)
SetUserTransformation({220, 0, 0, 220, 400, 400})
TextMoveTo({-0.7, 1.58})
SetTextFont("Monaco")
SetTextMode(0)
SetTextSize(14)
SetPenColor({0, 0, 0})
DrawString(" Angular Speed and Linear Speed")
TextMoveTo({-0.7, 1.28})
DrawString(" Circumference of Circle 1 = 2\\pi\\times 3 = 6\\pi")
TextMoveTo({-0.7, 1.38})
DrawString(" Circumference of Circle 2 = 2\\pi\\times 2 = 4\\pi")
TextMoveTo({-0.7, 1.48})
DrawString(" Circumference of Circle 3 = 2\\pi\\times 1 = 2\\pi")
DrawPath(2)
SetTextSize(10)
SetArrowSize({3, 8, 4})
SetPenColor({0, 0, 0})
CirclePath({0, 0}, r1)
CirclePath({0, 0}, r2)
CirclePath({0, 0}, r3)
DrawPath(2)
SetPenColor({0, 0, 1})
DrawVector({0, 0}, {r1 * (7 ^ 0.5) / 4, (r1 * 3) / 4})
TextMoveTo({r1 * (7 ^ 0.5) / 4 - d, (r1 * 3) / 4 + d})
DrawPath(2)
SetTextSize(14)
SetPenColor({0, 0, 0})
DrawString("Circle 1, Radius = 3")
DrawPath(2)
SetPenColor({0, 0, 1})
DrawVector({0, 0}, {-1 * r2 * (7 ^ 0.5) / 4, (r2 * 3) / 4})
DrawPath(2)
TextMoveTo({-1 * r2 * (7 ^ 0.5) / 4 - d, (r2 * 3) / 4 + 2 * d})
SetPenColor({0, 0, 0})
DrawString("Circle 2, Radius = 2 ")
DrawPath(2)
SetPenColor({0, 0, 1})
DrawVector({0, 0}, {0, (-1 * r3)})
DrawPath(2)
TextMoveTo({0 - d, -1 * r3 - d})
SetPenColor({0, 0, 0})
DrawString("Circle 3, Radius = 1")
DrawPath(2)
MoveTo({cos (theAngle), sin (theAngle)})
LineTo({0, 0})
set c to {point:{0, 0}, radius:r4, limits:{0, theAngle}}
geompath (c)
ArrowPath(theAngle + pi / 2)
SetPenColor({1, 0, 0})
CirclePath({r1 * (cos (theAngle)), r1 * (sin (theAngle))}, d / 4)
CirclePath({r2 * (cos (theAngle)), r2 * (sin (theAngle))}, d / 4)
CirclePath({r3 * (cos (theAngle)), r3 * (sin (theAngle))}, d / 4)
DrawPath(2)
EndFrontFigure()
set bounds of w to {0, 0, 950, 850}
smilepause 0.01
end repeat
smilepause 10
close w saving no
</script>
Works as expected on my Mac, but I just installed the latest version in the
school Mac and it displays the first “screen”, but there is no “animation”
I am sending this message to the AS list instead of the Satimage, because Smile
is a very powerful tool, under appreciated and I’d hate it to see its
development stop.
Deivy Petrescu
email@hidden
_______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
Archives: http://lists.apple.com/archives/applescript-users
This email sent to email@hidden