time tunnel animation - can this be done as high res and smooth as the video?

[madscijr]

You must be reading this on a Braille computer display (I imagine those must really exist?)

Yes they do and have existed for a very long time. Back in the early 90's when I was a computer tech I serviced a blind person's system at a local bank. He was a loan officer. He used a combination of a Braille display and optical hand held screen reader. The Braille display would bring up a line of text as he panned the optical reader over the CRT. It was quite cumbersome to use but he made it work. I imagine today's systems are much more sophisticated.

It's amazing how we can solve problems to get over limitations.
(If only we as a species can apply that to finally end war, starvation, homelessness, violence, renewable energy, the mess that they're calling politics and news these days, and Microsoft's constant attempts to ruin Windows, etc.!)

At work we have to make sure our Web site is accessible to the handicapped and comply to a bunch of such standards called A11y. This includes things like formatting text to be compatible with screen reader software, using color palettes that accomodate the color blind, and making sure all diagrams and images include descriptive captions & alt text for those who can't see them!

[vince]

another mod

Code: (Select All)

dim shared pi, p, q, a, b, x, y, z, t, tt



zoom = 80



sw = 1024

sh = 768



screen _newimage(sw, sh, 32)



pi = 4*atn(1)

du = 2*pi/20

dv = 2*pi/20



a = 0

b = 0'pi/4



tt = 0



do  

    tt = tt + 0.01

    t = 0.2*sin(tt)



    do

        mx = _mousex

        my = _mousey

        mb = _mousebutton(1)

        zoom = zoom - 10*_mousewheel

    loop while _mouseinput



    cls



    s = 0

    for v=-2*pi to 2*pi step dv

        s = s xor 1

        for u=-3*pi to 3*pi step du

            s = s xor 1



            nx = sin(v)

            ny = -cos(v)

            nz = u



            roty a

            rotx b



            'parallel

            sx = -1

            sy = -sx/0.707

            sz = -0.707*sy



            'perspective

            sx = 0  

            sy = -1 

            sz = 0  



            'if (nx*sx + ny*sy + nz*sz) < 0 then

                f u, v

                proj 

                x1 = sw/2 + zoom*p

                y1 = sh/2 - zoom*q

                'pset (x1, y1)



                f u + du, v

                proj

                x2 = sw/2 + zoom*p

                y2 = sh/2 - zoom*q

                'line -(x2, y2)



                f u + du, v + dv

                proj

                x3 = sw/2 + zoom*p

                y3 = sh/2 - zoom*q

                'line -(x3, y3)



                f u, v + dv

                proj

                x4 = sw/2 + zoom*p

                y4 = sh/2 - zoom*q

                'line -(x4, y4)



                'line -(x1, y1)



                if s then

                    c = 255 '- 20*y

                    FillTriangle x1,y1, x2,y2, x3,y3, _rgb(c,c,c)

                    FillTriangle x3,y3, x4,y4, x1,y1, _rgb(c,c,c)

                else

                    FillTriangle x1,y1, x2,y2, x3,y3, _rgb(0,0,0)

                    FillTriangle x3,y3, x4,y4, x1,y1, _rgb(0,0,0)

                end if

            'end if

        next

    next



    _limit 30

    _display

loop until _keyhit = 27

sleep

system





sub f(u, v)

    x = u*cos(v*t + tt)

    y = u*sin(v*t + tt)

    z = v



    'x = (1 + 0.5*v*cos(0.5*(u - t)))*cos(u - t)

    'y = (1 + 0.5*v*cos(0.5*(u - t)))*sin(u - t)

    'z = 0.5*v*sin(0.5*(u - t))

end sub



sub proj

    'parallel

    'p = x + 0.707*y

    'q = z + 0.707*y



    roty a

    rotx b



    p = x*10/(10 + y)

    q = z*10/(10 + y)

end sub



sub rotx(u)

    xx = x

    yy = y*cos(u) - z*sin(u)

    zz = y*sin(u) + z*cos(u)



    x = xx

    y = yy

    z = zz

end sub



sub roty(u)

    xx = x*cos(u) + z*sin(u)

    yy = y

    zz =-x*sin(u) + z*cos(u)



    x = xx

    y = yy

    z = zz

end sub



sub rotz(u)

    xx = x*cos(u) - y*sin(u)

    yy = x*sin(u) + y*cos(u)

    zz = z



    x = xx

    y = yy

    z = zz

end sub



Sub FillTriangle (x1, y1, x2, y2, x3, y3, K As _Unsigned Long)

    Static a&, m As _MEM

    If a& = 0 Then a& = _NewImage(1, 1, 32): m = _MemImage(a&)

    _MemPut m, m.OFFSET, K

    _MapTriangle _Seamless(0, 0)-(0, 0)-(0, 0), a& To(x1, y1)-(x2, y2)-(x3, y3)

End Sub

[bplus]

+1 @vince I hope you collect these mods and post in easy to find space here at this forum, hmm.. where might that be? They are lovely (including ones at JB).

[Dav]

Awesome mod, @vince!  

- Dav

[madscijr]

another mod
...

Pretty neat - nice work!

[sbblank]

Super cool, Vince!

I'll second that!

[PhilOfPerth]

Anybody tried reversing the direction, to create a "black hole"?

[bplus]

There is actually a "Black Hole" spot you can hit with the mouse wheel.