(DEFUN C:GRect (/ OSM1 BASE_X SIDE_1 SIDE_2 GR_PT1 GR_PT2 GR_PT3 GR_PT4)
   (setq OSM1 (getvar "OSMODE"))

   (initget 7)
   (setq BASE_X (getdist "\nBase Unit of Golden Rectangle: "))
   (setq SIDE_1 (* BASE_X 2)
         SIDE_2 (+ BASE_X (* BASE_X (sqrt 5))))

   (setq GR_PT1 (getpoint "\nLocate Start Point of Golden Rectangle: "))
   (setq GR_PT2 (polar GR_PT1 0.0 SIDE_2))
   (setq GR_PT3 (polar GR_PT2 (* 0.5 pi) SIDE_1))
   (setq GR_PT4 (polar GR_PT3 pi SIDE_2))
   (if (= (substr (getvar "acadver") 1 2) "14")
     (setvar "osmode" 16391)
     (setvar "osmode" 0)
   )
   (COMMAND "_.PLINE" GR_PT1 "_W" "0" "0" GR_PT2 GR_PT3 GR_PT4 "_C")
   (setvar "OSMODE" osm1)
   (PRINC)
)