projects
/
qbasicapps.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Modernized school clock manual formatting. Added electronics photos.
[qbasicapps.git]
/
graphics
/
texture generation
/
test3.bas
1
' Strange surface
\r
2
' made by Svjatoslav Agejenko
\r
3
' in 2003.12
\r
4
' H-Page: svjatoslav.eu
\r
5
' E-Mail: svjatoslav@svjatoslav.eu
\r
6
\r
7
SCREEN 13
\r
8
\r
9
FOR y = 1 TO 199
\r
10
FOR x = 1 TO 319
\r
11
c = SIN((x ^ 2 + y ^ 2) / 10) * 10
\r
12
IF c < 0 THEN c = 0
\r
13
IF c > 15 THEN c = 15
\r
14
PSET (x, y), c + 16
\r
15
NEXT x
\r
16
NEXT y
\r
17
\r
18
\r
19
\r