# BASIC 256 - Language Documentation

galleryjoelkahn

## Gallery of Images and Programs from Joel Kahn

Eye in Vortex by Joel Kahn (June 2010)

See Code Here

    # Contributed by Joel Kahn
    cls
    clg
    l=700
    w=500
    graphsize l,w
    dim f(8)
    f[0]=0
    f[1]=0
    f[2]=17
    f[3]=0
    f[4]=17
    f[5]=1
    f[6]=0
    f[7]=1
    m1=1
    m2=2
    x1=l/2
    y1=w/2
    x2=x1+1
    y2=y1+1
    qq1=0.99999
    q1=1.34
    qq2=0.99998
    q2=1.33
    vv1=0.011
    v1=0.0
    vv2=0.012
    v2=-0.1
    s1=1.411
    s2=1.412
    c1=0.0
    c2=2.0^24.0
    for d=1 to 25000
       m1=m1+1/m1
       x1=x1+s1*cos(m1)
       y1=y1+sin(m1)
       c1=c1+6.01
       q1=q1*qq1
       v1=v1+vv1
       color c1
       stamp x1,y1,q1,v1,f
       m2=m2+1/m2
       x2=x2+s2*cos(m2)
       y2=y2+sin(m2)
       c2=c2-6.02
       q2=q2*qq2
       v2=v2+vv2
       color c2
       stamp x2,y2,q2,v2,f
    next d

Fractal Forces by Joel Kahn (June 2010)

See Code Here

    # Contributed by Joel Kahn
    cls
    clg
    graphsize 700,500
    dim f(8)
    f[0]=0
    f[1]=0
    f[2]=50
    f[3]=0
    f[4]=50
    f[5]=1
    f[6]=0
    f[7]=1
    q=1.0
    qq=0.9997
    v=0.01
    vv=0.0004
    xs=750
    xm=650
    ys=730
    ym=180
    c=0
    br=-.7393
    bi=.117
    ar=0
    ai=0
    for d=1 to 150000
       tr=ar*ar-ai*ai+br
       ti=2*ar*ai+bi
       x=tr*xs+xm
       y=ti*ys+ym
       v=v+vv
       q=q*qq
       c=d^2.1
       color c
       stamp x,y,q,v,f
       ar=tr
       ai=ti
    next d

Round Spiral by Joel Kahn (June 2010)

See Code Here

    # Contributed by Joel Kahn
    fastgraphics
    cls
    clg
    r=0:g=0:b=0
    x=250.0:y=250.0
    m=1.0
    graphsize 500, 500
    while x>0.0 and x<500.0 and y>0.0 and y<500.0
       m=m+4.0/m
       x=x+cos(m)
       y=y+sin(m)
       r=r+1
       if r>255 then
          r=1
          g=g+1
       end if
       if g>255 then
          g=1
          b=b+1
       end if
       color r, g, b
       plot x,y
    end while
    refresh

Square Spiral by Joel Kahn (June 2010)

See Code Here

    # Contributed by Joel Kahn
    fastgraphics
    cls
    clg
    graphsize 512, 512
    r=1:g=1:b=1
    x=250
    y=250
    s=1
    plot x, y
    for a=1 to 511
       x1=x+s*a
       y1=y+s*a
       q=s*1
       g=((abs(g+a))%255)+1
       for xx=x to x1 step q
          b=((abs(b+xx))%255)+1
          color r, g, b
          plot xx, y
       next xx
       for yy=y to y1 step q
          r=((abs(r+yy))%255)+1
          color r, g, b
          plot x1, yy
       next yy
       x=x1
       y=y1
       s=-s
       r=1:g=1:b=1
       refresh
    next a

Seashore Sunrise by Joel Kahn (June 2010)

See Code Here

    # Contributed by Joel Kahn
    fastgraphics
    cls
    clg
    c=7
    xs=750
    ys=520
    graphsize xs,ys
    for y=ys to 0 step -1
       for x=0 to xs
          c=c*1.00005
          color c
          plot x,y
       next x
       refresh
    next y
    print c

Jagged Depths by Joel Kahn (July 2010)

See Code Here

    cls
    clg
    w=600.0
    h=600.0
    graphsize w,h
    x=w/2.0
    y=h/2.0
    dim a(6)
    a={0.0,0.0,0.0,x,y,0.0}
    s1=0.9101
    ss1=0.000347
    s2=0.9103
    ss2=0.000353
    pie=3.1416
    q1=pie
    qq1=1.631*pie
    q2=q1
    qq2=qq1+s2
    cc=137.0
    c1=cc
    c2=-cc
    while s1<>s2
       s1=s1-ss1
       q1=q1+qq1
       c1=c1+cc
       color c1
       stamp x,y,s1,q1,a
       s2=s2-ss2
       q2=q2-qq2
       c2=c2-cc
       color c2
       stamp x,y,s2,q2,a
    end while

Stellar Cores by Joel Kahn (July 2010)

See Code Here

    cls
    clg
    w=600.0
    h=600.0
    graphsize w,h
    x=w/2.0
    y=h/2.0
    v=w/4.0
    j=h/4.0
    dim a(6)
    a={v,x,0.0,0.0,y,j}
    s=0.861
    ss=0.999
    q=0.0
    qq=0.4
    for d=0.0 to 255.0 step 0.06
       s=s*ss
       q=q+qq
       b=d
       r=s*290.0
       g=q%256.0
       color r,g,b
       stamp x,y,s,q,a
    next d

galleryjoelkahn.txt · Last modified: 2011/03/29 11:56 (external edit)