TVWAR - Knight TV Spacewar.

build/lisp.tcl

@@ -717,6 +717,12 @@ respond "_" "games;_hibou;itster\r"
 respond "_" "\032"
 type ":kill\r"
 
+# Knight TV Spacewar
+respond "*" ":lisp gjd; sine lisp\r"
+expect ":KILL"
+respond "*" ":midas games;ts tvwar_spcwar; tvwar\r"
+expect ":KILL"
+
 # Kermit
 respond "*" ":link math;defset fasl,lisp;\r"
 respond "*" ":complr\r"

build/misc.tcl

@@ -563,6 +563,8 @@ respond "*" ":job swr\r"
 respond "*" ":load gjd; swr bin\r"
 respond "*" "first\033,last\033\060ygjd; swr ships\r"
 respond "*" ":kill\r"
+respond "*" ":midas games;ts tvwar_spcwar; tvwar\r"
+expect ":KILL"
 
 # MLIFE
 respond "*" ":midas;324 games;ts mlife_rwg;mlife\r"

doc/games.md

@@ -74,6 +74,10 @@ instructions, see CHPROG; CHESS2 ORDER.
 
 Star Trek simulation.  To play this, type `:games;trek`.
 
+### TVWAR
+
+Knight TV adaptation of Spacewar.  To play this, type `:games;tvwar`.
+
 ### Wumpus
 
 Enter a cave and hunt a creature called a wumpus.  To play this, type

doc/programs.md

@@ -327,6 +327,7 @@
 - TV-11, Knight TV PDP-11.
 - TVEDIT, paint program.
 - TVREAD, read a bitmap file and display on TV.
+- TVWAR, Knight TV Spacewar.
 - TVWRIT, write TV display contents as bitmap file.
 - TTLOC, advertises physical location of logged in users.
 - TTY, displays TTYs with UNAME/JNAME/CORE and other info.

src/gjd/sine.lisp

@@ -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)