;;; -*- Mode: LISP; Syntax: Common-Lisp; Package: USER; Base: 10 -*-
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; This file created by LAPIDARY 1.4: A Garnet Interface Builder
;;; on Aug 28, 1991, 4:27 PM
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(in-package "USER" :use '("LISP" "KR"))

(setf user::*Used-Garnet-Version* "1.4")

;;;
;;;     Functions needed from Lapidary
(load (merge-pathnames "lapidary-functions-loader"
			 user::Garnet-Lapidary-PathName))
(setf user::*Garnet-Objects-Just-Created* (list 
(create-instance 'CHECKER OPAL:AGGREGADGET
  (:EXPORT-P NIL)
  (:PACKAGE-NAME "USER")
  (:OBJOVER NIL)
  (:LEFT (formula `(GVL :OBJOVER :LEFT ) 151))
  (:TOP (formula `(GVL :OBJOVER :TOP ) 366))
  (:WIDTH (formula `(ROUND (GVL :OBJOVER :WIDTH ) ) 50))
  (:HEIGHT (formula `(ROUND (GVL :OBJOVER :HEIGHT ) ) 50))
  (:parts `(
    (:SOLID-THIN-LINE-CIRCLE-36979 ,OPAL:CIRCLE
      (:DRAW-FUNCTION :COPY)
      (:FILLING-STYLE ,OPAL:GREEN-FILL)
      (:LINE-STYLE ,OPAL:LINE-0)
      (:DIAMETER ,(o-formula (ROUND (+ (* (GVL :HEIGHT-SCALE) (GVL :HEIGHT-OVER :HEIGHT)) (GVL :HEIGHT-DIFFERENCE))) 50))
      (:RADIUS ,(o-formula (/ (GVL :DIAMETER) 2) 25))
      (:LEFT ,(formula `(GVL :PARENT :LEFT ) 151))
      (:TOP ,(formula `(GVL :PARENT :TOP ) 366))
      (:WIDTH ,(o-formula (GVL :DIAMETER) 50))
      (:HEIGHT ,(o-formula (GVL :DIAMETER) 50)))
    (:WSTAR ,OPAL:BITMAP
      (:IMAGE #<XLIB:IMAGE-X CROWN 30x30x1>)
      (:FILLING-STYLE ,OPAL:GREEN-FILL)
      (:DRAW-FUNCTION :XOR)
      (:LEFT ,(formula `(FLOOR (- (+ (GVL :PARENT :SOLID-THIN-LINE-CIRCLE-36979 :LEFT ) (* (GVL :PARENT :SOLID-THIN-LINE-CIRCLE-36979 :WIDTH ) 0.5 ) 1 ) (/ (GVL :WIDTH ) 2 ) ) ) 162))
      (:TOP ,(formula `(FLOOR (- (+ (GVL :PARENT :SOLID-THIN-LINE-CIRCLE-36979 :TOP ) (* (GVL :PARENT :SOLID-THIN-LINE-CIRCLE-36979 :HEIGHT ) 0.5 ) 1 ) (/ (GVL :HEIGHT ) 2 ) ) ) 377))))))

))

