mirror of
https://github.com/inexorabletash/jsbasic.git
synced 2024-12-04 11:49:51 +00:00
28 lines
634 B
Plaintext
28 lines
634 B
Plaintext
|
|
|
|
8200 HGR
|
|
|
|
8210 W = 279 : H = 159
|
|
8220 FOR I = 0 TO 1 STEP 0.01
|
|
8230 HCOLOR= 1 : HPLOT 0,H * I TO W* (1-I),0
|
|
|
|
8232 HCOLOR= 6 : HPLOT W,H * I TO W * I,0
|
|
8233 HCOLOR= 2 : HPLOT W,H * (1-I) TO W * I,H
|
|
8234 NEXT
|
|
|
|
8310 W = 200 : H = 50
|
|
8320 FOR I = 0 TO 1 STEP 0.01
|
|
8330 HCOLOR= 1 : HPLOT 40,H * I TO W* (1-I),40
|
|
|
|
8332 HCOLOR= 6 : HPLOT W,H * I TO H * I,0
|
|
8333 HCOLOR= 3 : HPLOT W,H * (1-I) TO W * I,H
|
|
8334 NEXT
|
|
|
|
8410 W = 230 : H = 100
|
|
8420 FOR I = 0 TO 1 STEP 0.01
|
|
8230 HCOLOR= 1 : HPLOT 140,H * I TO W* (1-I),140
|
|
|
|
8432 HCOLOR= 6 : HPLOT W,H * I TO W * I,0
|
|
8433 HCOLOR= 3 : HPLOT W,H * (1-I) TO W * I,H
|
|
8434 NEXT
|