Added pool game.

Checked once, have not tried to assemble or run.
2019-10-19 12:11:38 +02:00
parent d9b11c33ca
commit 7c91be2541
6 changed files with 1031 additions and 0 deletions
@@ -0,0 +1,156 @@
+"** 10-36-55.pdf page 18
+" p5
+
+frfac = 0774000 " loss in vel to friction
+toptest: 02000+01000-0177700
+bottest: -02000-01000
+righttest: 02000+040400-0177700
+lefttest: -02000-040400
+minvx: -02000 " vel below whitch vel is set zero
+fsin: 0203 " sine of fine rotation angle
+csin: 02534 " sine of coarse rotation angle
+mfsin: -0203 " negative of fsin
+mcsin: -02534 " negative of csin
+fcos: 0177777 " cosine of fine rotation angle
+ccos: 0177761 " cosine of coarse rotation angle
+
+nball = 16
+
+d1: 1
+o17: 017
+o300000: 0300000
+dm1: -1
+o142000: 0142000
+o164000: 0164000
+o400000: 0400000
+o177777: 0177777
+o2000: 02000
+o100000: 0100000
+o124000: 0124000
+qsin: 0177777
+qcos: 0
+dmpname: <pd>;<um>;<p 040; 040040
+nballp: nball
+listpm1: list-1
+
+outline:
+	0065047
+	0140000 0400
+	0164000 04
+	0220414
+	0124000 01000-010-020
+	0225010
+	0221010
+	0124000 0777-010-020
+	0224414
+	0221444
+	0120000 0777-010-020
+	0221404
+	0224454
+	0126000 0777-010-020
+	0221050
+	0225050
+	0126000 01000-010-020
+	0220454
+	0225404
+	0122000 0777-010-020
+	0225444
+noutline = .-outline
+
+circle:
+	0212000
+	0220002
+	0220002
+"** 10-36-55.pdf page 19
+	0224101
+	0220002
+	0224101
+	0224101
+	0224101
+	0224101
+	0224101
+	0224101
+	0224101
+	0224101
+	0224200
+	0224101
+	0224200
+	0224200
+	0224200
+	0224200
+	0224141
+	0224200
+	0224141
+	0224141
+	0224141
+	0224141
+	0224141
+	0224141
+	0224141
+	0224141
+	0220042
+	0224141
+	0220042
+	0220042
+	0220042
+	0220042
+	0220141
+	0220042
+	0220141
+	0220141
+	0220141
+	0220141
+	0220141
+	0220141
+	0220141
+	0220141
+	0220200
+	0220141
+	0220200
+	0220200
+	0220200
+	0220200
+	0220101
+	0220200
+	0220101
+	0220101
+	0220101
+	0220101
+	0220101
+	0220101
+	0220101
+	0220101
+	0220002
+	0220101
+	0220002
+"** 10-36-55.pdf page 20
+	0220002
+	circsize = .-circle
+
+.pb: .=.+1
+.sw: .=.+1
+stime: .=.+1
+waitup: .=.+1
+sin: .=.+1
+cos: .=.+1
+vp1: .=.+1
+vp2: .=.+1
+vt1: .=.+1
+vt2: .=.+1
+displist: .=.+1
+9: .=.+t
+ball1:
+	sflg = .-ball1
+	.=.+1
+	x = .-ball1
+	.=.+1
+	y = .-ball1
+	.=.+1
+	vx = .-ball1
+	.=.+1
+	vy = .-ball1
+	.=.+1
+bvsize = .-ball1
+ball2:
+	.=.+bvsize
+list: