Le script d'exemple ci-dessous montre comment utiliser LineTo avec une liste de points, ce qui est plus rapide que de le faire point par point.

Vous verrez aussi comment utiliser SetTransformation pour décaler l'origine : nous prenons ici pour origine le centre de la page.

(le résultat sur votre machine sera différent de l'illustration. Essayez de modifier npts et de redimensionner la fenêtre en gardant la touche ⌘ enfoncée.)

Import script

set npts to 86
set w to BeginFigure(0)
SetPenColor({1, 0.2, 0.2})
SetPenWidth(0.5)
set pts to {}
set {i, j, di, dj} to frame of w
SetTransformation({1, 0, 0, 1, di / 2, dj / 2})
repeat with n from 0 to npts
    set r to di * 0.45 * n / npts
    set end of pts to {r * (cos r), r * (sin r)}
end repeat
MoveTo(item 1 of pts)
LineTo(pts)
DrawPath(2)
EndFigure()