The Datafile PD-CD 3/PDCD_3.iso/utilities/utilsm/mkdrawf/Examples/src/Lissajous

Text File | 1994-12-14 | 318 b | 16 lines

Set $Pi 3.141592653589793
Set $Factor Over $Pi 400
Path {
  Fillcolour r255g0b0
  Style { WindingRule EvenOdd }
  For $i 0 801 {
    Set $j Times $i $Factor
    Set $p Cos Times 9 $j
    Set $q Sin Times 13 $j
    IfEqual $i 0 Move Else Line EndIf
      Plus 400 Times $p 300
      Plus 400 Times $q 300
  }
  Close
}