home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / logo / labybug / duopoly.bug < prev    next >
Text File  |  1983-09-24  |  325b  |  4 lines

  1. DEFINE "vector [[ :dir :len][setheading :dir][forward :len]]
  2. DEFINE "duopoly [[ :side1 :angle1 :side2 :angle2][duopoly2 :side1 :angle1 :side2 :angle2 0]]
  3. DEFINE "duopoly2 [[ :side1 :angle1 :side2 :angle2  :c][vector 0 + :c * :angle1 :side1][vector 0 + :c * :angle2 :side2][duopoly2 :side1 :angle1 :side2 :angle2 1 + :c]]
  4.