This shows you the differences between two versions of the page.
Both sides previous revision Previous revision Next revision | Previous revision | ||
projects:ehbasic [2018/08/03 13:52] M.G. more examples |
projects:ehbasic [2018/08/03 13:56] M.G. [Moire] |
||
---|---|---|---|
Line 246: | Line 246: | ||
</code> | </code> | ||
+ | ==== Moire ==== | ||
+ | |||
+ | My own variant of Brian's Theme. | ||
+ | |||
+ | <code> | ||
+ | 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> | ||