UNB/ CS/ David Bremner/ teaching/ old/ cs6375/ files/ separation2.rkt
#lang racket/base
(require plot)

(define p 
  (list  #(1 1)
         #(-1 -1)
         #(-1 1)
         #(1 -1)))

(define q 
  (list  #(0 2)
         #(0 -2)
         #(-2 0)
         #(2 -0)))

(define crossing (sqrt 5/2))


(plot (list (points p)
            (points q #:color 'red)
            (polar (lambda (t) (sqrt 3))))
      #:x-min -3
      #:y-min -3
      #:x-max 3
      #:y-max 3
      #:out-file "separation2.pdf")