Differences
This shows you the differences between two versions of the page.
| Both sides previous revision Previous revision | Last revision Both sides next revision | ||
|
projects:ehbasic [2018/08/03 13:52] M.G. more examples |
projects:ehbasic [2018/08/03 13:56] M.G. another example |
||
|---|---|---|---|
| Line 246: | Line 246: | ||
| </code> | </code> | ||
| + | ==== Moire ==== | ||
| + | |||
| + | My own variant of Brian's Theme. | ||
| + | |||
| + | <code> | ||
| + | text | ||
| + | |||
| + | Ready | ||
| + | list | ||
| + | |||
| + | 100 GET a:HGR0 | ||
| + | 105 oc=c | ||
| + | 110 X=INT(RND(0)*280):Y=INT(RND(0)*192) | ||
| + | 115 c=INT(RND(0)*7)+1 | ||
| + | 120 IF c=oc THEN 110 | ||
| + | 125 HCOLOR=c | ||
| + | 130 s=INT(RND(0)*4)+3 | ||
| + | 140 FOR i=0 TO 279 STEP s:HPLOT i,0 TO X,Y TO 279-i,191 | ||
| + | 145 NEXT | ||
| + | 150 FOR i=0 TO 191 STEP s:HPLOT 0,191-i TO X,Y TO 279,i | ||
| + | 155 NEXT | ||
| + | 170 GET a | ||
| + | 180 IF a=0 THEN GOTO 105 | ||
| + | 190 TEXT:HOME | ||
| + | </code> | ||