Apple-2-Tools
/
bradgrantham-apple2e
mirror of https://github.com/bradgrantham/apple2e.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Draw lines mirrored in X and Y

This commit is contained in:
Brad Grantham 2016-11-18 23:26:01 -08:00
parent e5d65591af
commit 68c99726ca
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
QUADRADOODLE.A Normal file
View File

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