%%HP: T(1)A(D)F(,);
DIR
  GR
     DEG INV 360 *
 SS
       SS 359
        FOR O O DUP
SIN 31 * 65 + RB
SWAP COS -31 * 31 +
RB 2 LIST SS
        STEP {
# 65d # 0d } G
      
    
  G
     ERASE 3 DEPTH
{ # 0d # 0d } PVIEW
      START 3 DEPTH
        FOR DAV DUP
DAV PICK LINE
        NEXT DROP
      NEXT DROP { }
PVIEW
    
  P
     DEG ERASE INV
360 *  SS
       { # 65d
# 0d } DUP SS 359 {
# 0d # 0d } PVIEW
        FOR O O DUP
SIN 31 * 65 + RB
SWAP COS -31 * 31 +
RB 2 LIST SWAP
OVER LINE SS
        STEP
       LINE { }
PVIEW
    
  PPAR {
(-65,5;-32)
(65,5;32) X 0 (0;0)
FUNCTION Y }
END

