github.com/PDP-10.its
1
0
Fork 0
mirror of https://github.com/PDP-10/its.git synced 2026-01-31 22:12:14 +00:00
Code Issues Releases Wiki Activity

TVWAR - Knight TV Spacewar.

Browse Source
This commit is contained in:
Lars Brinkhoff
2018-08-13 08:41:01 +02:00
parent e5d861b86e
commit f5c7c4e72b
5 changed files with 32 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
src/gjd/sine.lisp Normal file
View File

@@ -0,0 +1,19 @@
(comment) ;-*- lisp -*-
(eval-when (eval load compile)
(load '((liblsp) lispm fasl)))
(defvar radius 255.)
(defvar steps 512.)
(defvar file "GJD; SINE BINARY")
(defvar 2pi (quotient (times 2 3.141592654) steps))
(defun round (x)
(fix (plus x 0.5)))
(with-open-file (f file '(single fixnum out))
(dotimes (i steps)
(out f (round (times radius (sin (times i 2pi)))))))
(quit)