◂ Back to CompuLink-User-Group_Software-Library_COMUG-Disk-49-LADYBUG ◂ Disk Library Index
DUOPOLY.BUG  ·  BUG  ·  325 B  ·  1983-09-24  ·  from CompuLink-User-Group_Software-Library_COMUG-Disk-49-LADYBUG 
DEFINE "vector [[ :dir :len][setheading :dir][forward :len]]
DEFINE "duopoly [[ :side1 :angle1 :side2 :angle2][duopoly2 :side1 :angle1 :side2 :angle2 0]]
DEFINE "duopoly2 [[ :side1 :angle1 :side2 :angle2  :c][vector 0 + :c * :angle1 :side1][vector 0 + :c * :angle2 :side2][duopoly2 :side1 :angle1 :side2 :angle2 1 + :c]]