Apple-2-SW
/
jsbasic
mirror of https://github.com/inexorabletash/jsbasic.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Added new sample

This commit is contained in:
Joshua Bell 2013-05-06 00:12:26 -04:00
parent 7f1e5e57ef
commit 24e61f3a2b
2 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
index.htm
View File

@ -92,6 +92,7 @@ By <a href="mailto:inexorabletash@hotmail.com">Joshua Bell</a>
<option value="sample.mandelbrot">Mandelbrot Set (c/o Gregory Lewis)</option>
<option value="sample.mandelbrot2">Mandelbrot Set in Color</option>
<option value="sample.steve">Steve (Nicola Foggi)</option>
<option value="sample.logo">Apple Logo (Brendan Robert)</option>
<option disabled>Other</option>
<option value="sample.primes">Prime Sieve (Kevin Miller)</option>

13
samples/sample.logo.txt Normal file
View File

@ -0,0 +1,13 @@
10 gr:poke -16302,0
15 i=0:x1 = 15:x2=1:x3 = 1
20 for y=7 to 47:i=i-1 : if (i <= 0) then i=7: read c: color=c
30 if (y < 21) then x1=x1-((21-y)/12) : goto 40
31 x1 = x1 + x2 - 1: x2 = x2 * x3: x3 = x3 + 0.002
40 hlin x1,39-x1 at y
50 next y
60 data 12,13,9,1,3,6
70 color=0
80 hlin 16,22 at 7: hlin 18,20 at 8: hlin 16,22 at 47: hlin 18,20 at 46
90 vlin 14,34 at 32: vlin 15,33 at 31: vlin 16,32 at 30
100 vlin 18,30 at 29: vlin 22, 26 at 28
110 color = 12: for a=0 to 3:vlin a,a+4 at 22-a:next a