From 68c99726cabc2b790498b247660fccf5480a8021 Mon Sep 17 00:00:00 2001 From: Brad Grantham Date: Fri, 18 Nov 2016 23:26:01 -0800 Subject: [PATCH] Draw lines mirrored in X and Y --- QUADRADOODLE.A | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 QUADRADOODLE.A diff --git a/QUADRADOODLE.A b/QUADRADOODLE.A new file mode 100644 index 0000000..f401cc5 --- /dev/null +++ b/QUADRADOODLE.A @@ -0,0 +1,10 @@ +10 HGR +11 GOTO 15 +12 HPLOT 139,0 TO 139,191 TO 140,191 TO 140,0: HPLOT 0,95 TO 279,95 TO 279,96 TO 0,96 +15 A = 70:B = 48 +17 X = RND (1) * 139:Y = RND ( 1) * 95 +20 HPLOT A,B TO X,Y: HPLOT - A + 280,B TO - X + 280,Y: HPLOT A, - B + 192 TO X, - Y + 192 : HPLOT - A + 280, - B + 192 TO - X + 280, - Y + 192 +21 HCOLOR= 0: HPLOT A,B TO X,Y: HPLOT - A + 280,B TO - X + 280,Y: HPLOT A, - B + 192 TO X, - Y + 192: HPLOT - A + 280, - B + 192 TO - X + 280, - Y + 192 +23 H = H + 1: IF H = 8 THEN H = 0 +24 HCOLOR= 3 +25 A = X:B = Y: GOTO 17