Re: A Brief Look at History

On Mar 17, 3:54 pm, Doug Hoffman <no.spam> wrote:

> VARIABLE TOP ( y coordinates top of box)
> VARIABLE LEFT ( x " left side)
> VARIABLE BOTTOM ( y " bottom)
> VARIABLE RIGHT ( x " rightside)
> : [BOX] ( x1 y1 x2 y2)
>    BOTTOM ! RIGHT ! TOP ! LEFT !
>    LEFT @[EMAIL PROTECTED]
 TOP @[EMAIL PROTECTED]
 RIGHT @[EMAIL PROTECTED]
 TOP @[EMAIL PROTECTED]
 LINE
>    RIGHT @[EMAIL PROTECTED]
 TOP @[EMAIL PROTECTED]
 RIGHT @[EMAIL PROTECTED]
 BOTTOM @[EMAIL PROTECTED]
 LINE
>    RIGHT @[EMAIL PROTECTED]
 BOTTOM @[EMAIL PROTECTED]
 LEFT @[EMAIL PROTECTED]
 BOTTOM @[EMAIL PROTECTED]
 LINE
>    LEFT @[EMAIL PROTECTED]
 BOTTOM @[EMAIL PROTECTED]
 LEFT @[EMAIL PROTECTED]
 TOP @[EMAIL PROTECTED]
 LINE ;
>
> **END EXCERPT FROM TF


: from_corner { x y  xx yy -- }
  x y  xx y line
  x y  x yy line ;

: box { x y  xx yy -- }
  x y  xx yy  from_corner
  xx yy  x y  from_corner ;