;;;; -*-  Mode: LISP; Syntax: Common-Lisp; Base: 10                          -*-
;;;; ---------------------------------------------------------------------------
;;;; File name: experiment.lsp
;;;;    System: 
;;;;    Author: Praveen Paritosh
;;;;   Created: January 30, 2004 19:33:56
;;;;   Purpose: 
;;;; ---------------------------------------------------------------------------
;;;;  Modified: Monday, February 2, 2004 at 14:38:55 by paritosh
;;;; ---------------------------------------------------------------------------

(in-package :common-graphics-user)

(defclass experiment-window (frame-window) ())

(defmethod redisplay-window ((window experiment-window) &optional box)
  (declare (ignore box))
  (call-next-method)
  (draw-line window (make-position 0 0)
             (make-position 1000 1000)))

(make-window :one :class 'experiment-window)

;;; get african countries

(defparameter *african-countries* 
  '(algeria 
    angola 
    benin
    botswana 
    burkina 
    burundi 
    cameroon  
    cape_verde  
    central_african_republic 
    chad
    comoros
    congo 
    |Cote d'Ivoire| 
    djibouti
    egypt
    equatorial_guinea 
    eritrea  
    ethiopia
    gabon 
    the_gambia 
    ghana 
    guinea 
    guinea-bissau
    kenya 
    lesotho
    liberia 
    libya
    madagascar 
    malawi 
    mali 
    mauritania
    mauritius 
    morocco
    mozambique 
    namibia 
    niger 
    nigeria 
    rwanda 
    sao_tome_and_principe
    senegal 
    seychelles 
    sierra_leone 
    somalia 
    south_africa 
    sudan 
    swaziland 
    tanzania 
    togo
    tunisa
    uganda 
    western_sahara
    zaire 
    zambia 
    zimbabwe))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; End of Code