[NetBehaviour] Thinking through qin

Alan Sondheim sondheim at panix.com
Sat Jun 1 06:21:14 CEST 2019



Thinking through qin

http://www.alansondheim.org/qins7.jpg - the farther qin is Qing
dynasty; the nearer is 1980s. For the recording, the positions are
reversed, and of course there's no tuning chart.

http://www.alansondheim.org/2qinthinking.mp3
http://www.alansondheim.org/2qinwalking.mp3

Two qin tuned identically; I play them simultaneously. The result
of course amazes me; 2qin thinking is beautiful in its depth;
2qin walking is slower, the beginning of it all.


GOTO (walk, think, return, walk, think)

Elsewhere locked tag boo. POINT(x + 1, z) = 0 THEN x 1 IF INKEY$
"r" home z 480 STOP defuge txt s ELSE three (x ^ 2) * (1 COS(x))
three: MOD c a d 1: Tx e b / g FIX(b) - two t six six: One: Two:
COLOR a, 0, 8 Two 2 31 One PRINT "?";  now "p" k n inc vSIN(x)) y
REM Try x: 1.5 below and 4 lines zink RND < .3 zz q 30 vu restart
"s" va vn vv 360 vq (vv zim INPUT "height (va) mag, 2d display";
pa px 0: py zim: here two:
-4: n-a;  G 0. ala n;  alan, bna, ak Print X in pixels 00 Tw Th
  one PLAY "T400": CLS : Three Montfort et.al., 10
  CHR$(205.5+RND(1)); 10, MIT, collapse of Dijkstra's replacements
  by NEITHER A NOR B, NOT BOTH AND generators Expulsion that tend
  BAD WRITER. UNDER GOD. -Fo back ten (RND .05 OR > 1) 25 lt .003
  zed 250 four 4000 vx vk cont girdle low worm. toned nigh amid
  depraved. yokes. actually or Djikstra's analysis statements GOTOs
  make difficult the conflation with its product program.
  difference between space time apparent. w/ sourcecode can be
  after fact oriented), even autopoietic--for example, original
  FORTRAN result, action logos organs, my useless organ covered
  some substance, music.

GOTO

Elsewhere locked tag boo. POINT(x + 1, z) = 0 THEN x = x + 1 IF
INKEY$ = "r" THEN GOTO "r" THEN GOTO home z = z + 1 IF z = 480
THEN STOP defuge txt s 1 ELSE GOTO three x = (x ^ 2) * (1 +
COS(x)) + z three: x = 0 z MOD c ^ a = 0 THEN d = d + 1: GOTO Tx c
= c * e IF d MOD z = 0 a + 1 b = x / g ^ a IF FIX(b) - b = 0 THEN
GOTO two t = a / g d GOTO six six: x = 0 One: a = 0 x = x + 1 Two:
a = a + 1 IF t = 1 THEN COLOR a, 0, 8 IF x MOD z ^ a = 0 THEN GOTO
Two IF a MOD 2 = = 0 THEN d = d + 1: GOTO two c = c + 1 g = d MOD
31 IF d MOD 2 =
+ 1: GOTO One c = c * 2 IF d MOD 2 = 0 THEN PRINT "?";  ELSE
a = a + 1 IF x MOD c ^ a = 0 THEN d = d + 1: GOTO One c = c * 2
         IF INKEY$ = "r" THEN GOTO now IF INKEY$ = "p" THEN
                 IF x MOD k ^ a = 0 THEN GOTO two n = a MOD inc v
SIN(x)) - k * y IF INKEY$ = "r" THEN GOTO home x = x + z REM Try
THEN GOTO home d = x: e = y REM 1.5 below and 4 lines below =
GOTO zink IF RND < .3 THEN zz = 1 q = 0 a = RND * 30 k = 1 z = 1
+ vu IF INKEY$ = "r" THEN GOTO restart IF INKEY$ = "s" THEN GOTO
^ va = 0 THEN GOTO two vn = va MOD inc vv = 360 / inc vq = (vv *
GOTO zim INPUT "height (va) mag, 0 = 2d display"; pa px = 0: py
= "r" THEN GOTO restart zim: IF INKEY$ = "s" THEN GOTO here two:
THEN GOTO two vn = va MOD inc vv = 360 / inc vq = (vv * vn + vq
= -4: x = 0 IF t < 30 THEN t = t + 1 ELSE GOTO three x = (x ^ 2)
GOTO home
         IF INKEY$ = "r" THEN GOTO now IF INKEY$ = "p" THEN
GOTO home IF INKEY$ = "r" THEN GOTO restart IF INKEY$ = "s" THEN
GOTO here IF INKEY$ = "r" THEN GOTO restart zim: IF INKEY$ = "s"
THEN GOTO here
         IF INKEY$ = "r" THEN GOTO now IF INKEY$ = "p" THEN
GOTO home IF INKEY$ = "r" THEN GOTO restart IF INKEY$ = "s" THEN
GOTO here IF INKEY$ = "r" THEN GOTO restart zim: IF INKEY$ = "s"
THEN GOTO here a, n-a;  a G = 0. G ala n;  a alan, a bna, a ak b
         IF INKEY$ = "r" THEN GOTO now IF INKEY$ = "p" THEN
                 IF x MOD k ^ a = 0 THEN GOTO two n = a MOD inc v
SIN(x)) - k * y IF INKEY$ = "r" THEN GOTO home x = x + z REM Try
THEN GOTO home d = x: e = y REM 1.5 below and 4 lines below =
GOTO zink IF RND < .3 THEN zz = 1 q = 0 a = RND * 30 k = 1 z = 1
+ vu IF INKEY$ = "r" THEN GOTO restart IF INKEY$ = "s" THEN GOTO
^ va = 0 THEN GOTO two vn = va MOD inc vv = 360 / inc vq = (vv *
GOTO zim INPUT "height (va) mag, 0 = 2d display"; pa px = 0: py
= "r" THEN GOTO restart zim: IF INKEY$ = "s" THEN GOTO here two:
THEN GOTO two vn = va MOD inc vv = 360 / inc vq = (vv * vn + vq
= -4: x = 0 IF t < 30 THEN t = t + 1 ELSE GOTO three x = (x ^ 2)
IF INKEY$ = "r" THEN GOTO home
IF t < 30 THEN t = t + 1 ELSE GOTO three
GOTO two
30 Print X in pixels and GOTO 00
IF x MOD c ^ a = 0 THEN d = d + 1: GOTO Tx
IF c * 2 < 2 * x + 1 THEN GOTO Tw
GOTO Th
IF FIX(b) - b = 0 THEN GOTO two
GOTO one
PLAY "T400": CLS : IF t = 2 THEN GOTO six
IF x MOD z ^ a = 0 THEN GOTO Two
GOTO One
IF x MOD c ^ a = 0 THEN d = d + 1: GOTO two
IF x MOD c ^ a = 0 THEN d = d + 1: GOTO One
IF c * 2 < 2 * x + 1 THEN GOTO Two
GOTO Three
IF x MOD c ^ a = 0 THEN d = d + 1: GOTO One
IF c * 2 < 2 * x + 1 THEN GOTO Two
GOTO Three
Montfort et.al., 10 PRINT CHR$(205.5+RND(1)); : GOTO 10, MIT,
collapse of Dijkstra's GOTO and replacements by GOTO NEITHER A
NOR B, GOTO NOT BOTH A AND B, generators of Expulsion that tend
BAD WRITER. NOT UNDER GOD. -Fo back IF RND .3 THEN GOTO zink
         IF INKEY$ = "r" THEN GOTO now
                 IF x MOD k ^ a = 0 THEN GOTO two
...
...
...
+++




More information about the NetBehaviour mailing list