• Open Menu Close Menu
  • Apple
  • Shopping Bag
  • Apple
  • Mac
  • iPad
  • iPhone
  • Watch
  • TV
  • Music
  • Support
  • Search apple.com
  • Shopping Bag

Lists

Open Menu Close Menu
  • Terms and Conditions
  • Lists hosted on this site
  • Email the Postmaster
  • Tips for posting to public mailing lists
Issue with Smile
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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

  • Prev by Date: Reading a version file from a website then downloading a newer version of an app
  • Next by Date: [ANN] Dialog Toolkit update and Dialog toolkit Plus
  • Previous by thread: Reading a version file from a website then downloading a newer version of an app
  • Next by thread: [ANN] Dialog Toolkit update and Dialog toolkit Plus
  • Index(es):
    • Date
    • Thread