Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
cmucl
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
26
Issues
26
List
Boards
Labels
Service Desk
Milestones
Merge Requests
1
Merge Requests
1
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
cmucl
cmucl
Commits
c1864fe6
Commit
c1864fe6
authored
Jan 27, 2018
by
Raymond Toy
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Merge upstream demo files
[skip-ci]
parent
e6f4c980
Pipeline
#269
skipped
Changes
8
Pipelines
1
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
8 changed files
with
198 additions
and
222 deletions
+198
-222
src/clx/demo/bezier.lisp
src/clx/demo/bezier.lisp
+0
-3
src/clx/demo/beziertest.lisp
src/clx/demo/beziertest.lisp
+0
-3
src/clx/demo/clclock.lisp
src/clx/demo/clclock.lisp
+2
-5
src/clx/demo/clipboard.lisp
src/clx/demo/clipboard.lisp
+2
-5
src/clx/demo/clx-demos.lisp
src/clx/demo/clx-demos.lisp
+4
-7
src/clx/demo/gl-test.lisp
src/clx/demo/gl-test.lisp
+188
-191
src/clx/demo/hello.lisp
src/clx/demo/hello.lisp
+0
-3
src/clx/demo/mandel.lisp
src/clx/demo/mandel.lisp
+2
-5
No files found.
src/clx/demo/bezier.lisp
View file @
c1864fe6
...
...
@@ -18,9 +18,6 @@
;;; express or implied warranty.
;;;
#+
cmu
(
ext:file-comment
"$Id: bezier.lisp,v 1.3 2009/06/17 18:22:46 rtoy Rel $"
)
(
in-package
:xlib
)
(
export
'draw-curves
)
...
...
src/clx/demo/beziertest.lisp
View file @
c1864fe6
...
...
@@ -18,9 +18,6 @@
;;; express or implied warranty.
;;;
#+
cmu
(
ext:file-comment
"$Id: beziertest.lisp,v 1.3 2009/06/17 18:22:46 rtoy Rel $"
)
(
in-package
:xlib
)
(
defun
bezier-test
(
host
&optional
(
pathname
"/usr/X.V11R1/extensions/test/datafile"
))
...
...
src/clx/demo/clclock.lisp
View file @
c1864fe6
#+
cmu
(
ext:file-comment
"$Id: clclock.lisp,v 1.2 2009/06/17 18:22:46 rtoy Rel $"
)
(
defpackage
"XCLCLOCK"
(
defpackage
#:xlib-demo/clclock
(
:use
"CL"
)
(
:export
"CLOCK"
))
(
in-package
"XCLCLOCK"
)
(
in-package
#:xlib-demo/clclock
)
(
defvar
*display*
(
xlib:open-default-display
))
(
defvar
*screen*
(
xlib:display-default-screen
*display*
))
...
...
src/clx/demo/clipboard.lisp
View file @
c1864fe6
...
...
@@ -59,14 +59,11 @@
;;; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
;;; DEALINGS IN THE SOFTWARE.
#+
cmu
(
ext:file-comment
"$Id: clipboard.lisp,v 1.2 2009/06/17 18:22:46 rtoy Rel $"
)
(
defpackage
"CLIPBOARD"
(
defpackage
#:xlib-demo/clipboard
(
:use
"CL"
"XLIB"
)
(
:export
"MAIN"
))
(
in-package
"CLIPBOARD"
)
(
in-package
#:xlib-demo/clipboard
)
;;; This is "traditional" XLIB style; I don't really know if it's the
;;; best way -- in developing this program, style of XLIB programming
...
...
src/clx/demo/clx-demos.lisp
View file @
c1864fe6
...
...
@@ -6,13 +6,10 @@
;;; This file should be portable to any valid Common Lisp with CLX -- DEC 88.
;;;
#+
cmu
(
ext:file-comment
"$Id: clx-demos.lisp,v 1.2 2009/06/17 18:22:46 rtoy Rel $"
)
(
defpackage
:demos
(
:use
:common-lisp
)
(
defpackage
#:xlib-demo/demos
(
:use
:common-lisp
)
(
:export
do-all-demos
demo
))
(
in-package
:demos
)
(
in-package
:
xlib-demo/
demos
)
;;;; Graphic demos wrapper macro.
...
...
@@ -39,11 +36,11 @@
(
unless
*display*
#+
:cmu
(
multiple-value-setq
(
*display*
*screen*
)
(
ext:open-clx-display
))
#+
(
or
sbcl
allegro
clisp
)
#+
(
or
sbcl
allegro
clisp
lispworks
)
(
progn
(
setf
*display*
(
xlib::open-default-display
))
(
setf
*screen*
(
xlib:display-default-screen
*display*
)))
#-
(
or
cmu
sbcl
allegro
clisp
)
#-
(
or
cmu
sbcl
allegro
clisp
lispworks
)
(
progn
;; Portable method
(
setf
*display*
(
xlib:open-display
(
machine-instance
)))
...
...
src/clx/demo/gl-test.lisp
View file @
c1864fe6
This diff is collapsed.
Click to expand it.
src/clx/demo/hello.lisp
View file @
c1864fe6
;;; -*- Mode:Lisp; Syntax: Common-lisp; Package:XLIB; Base:10; Lowercase: Yes -*-
#+
cmu
(
ext:file-comment
"$Id: hello.lisp,v 1.3 2009/06/17 18:22:46 rtoy Rel $"
)
(
in-package
:xlib
)
(
defun
hello-world
(
host
&rest
args
&key
(
string
"Hello World"
)
(
font
"fixed"
))
...
...
src/clx/demo/mandel.lisp
View file @
c1864fe6
#+
cmu
(
ext:file-comment
"$Id: mandel.lisp,v 1.2 2009/06/17 18:22:46 rtoy Rel $"
)
(
defpackage
"XMANDEL"
(
defpackage
#:xlib-demo/mandel
(
:use
"CL"
)
(
:export
"NEW-WINDOW"
"EVENT-LOOP"
))
(
in-package
"XMANDEL"
)
(
in-package
#:xlib-demo/mandel
)
(
defvar
*display*
(
xlib:open-default-display
))
(
defvar
*screen*
(
xlib:display-default-screen
*display*
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment