File: loadgeo.l

package info (click to toggle)
euslisp 9.31%2Bdfsg-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 55,448 kB
  • sloc: ansic: 41,610; lisp: 3,339; makefile: 286; sh: 238; asm: 138; python: 53
file content (15 lines) | stat: -rw-r--r-- 481 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
;;; -*- lisp -*-
;;; $Header: /home/cvs/euslisp/geo/loadgeo.l,v 1.1.1.1 2003/11/20 07:46:28 eus Exp $

(when (member :sunos4.1 *features*)
  (defparameter *GEOLIB* (format nil "~a/SunOS4/lib/libeusgeo.so.0.0" *eusdir*))
  (load-library *GEOLIB*
	      (list "intersection" "geoclasses" "geopack" "geobody"
		    "primt" "compose" "polygon"  "viewing" "viewport"
		    "viewsurface" "hid"
		    "shadow" "bodyrel"	;added Jun/2/96
		    ))
  (setq LIBGEO (car *loaded-modules*))
)