Hallucin8r (Source Included)

BlitzMax Forums/BlitzMax Programming/Hallucin8r (Source Included)

dw817

(Posted 2016) [#1]

From holograms to optical illusions, there are many different ways of tricking the human eye into seeing things that just aren't there.

What better test then having an animated pattern occur backwards inside a larger one ?

Apparently our eyes cannot actually follow this and once you have stared at it for a time, your vision WILL be warped for a short while.

The only way to explain this is for you to see it for yourself.

'     ________________________________________
'    //                                     //
'   // H A L L U C I N 8 R                 //
'  // Version, "Warped Senses"            //
' // Written by David W (dw817) 04/18/16 //
'//_____________________________________//

Strict
Local i,z,a,b,d,t#=99

Graphics 1024,768
SetBlend solidblend
SetScale 2,2
DrawText "This program WILL cause you to hallucinate,",0,0
DrawText "And I don't just mean a little !",0,30
DrawText "Focus on the center and stare at the countdown without blinking.",0,60
DrawText "When the countdown reaches zero, look away but stay seated.",0,90
DrawText "Press any key to begin and ESC to exit early.",0,120
Flip

z=WaitChar()

Repeat '{* MAIN *}

Cls

For d=0 To 1
  z=(z+1)Mod 32
  If d=0 Then
    a=0
    b=512+64
  Else
    a=512+64
    b=1024
  EndIf
  For i=a To b
    If((i+z) Mod 32<16 And d=0)Or((i+(31-z))Mod 32<16 And d=1)
      SetViewport 0,0,512,384
      DrawLine i,0,0,i
      SetViewport 512,0,511,384
      DrawLine 1023-i,0,1023,i
      SetViewport 0,384,512,768
      DrawLine i-384,384,i,768
      SetViewport 512,384,511,384
      DrawLine 1023-i+384,384,1023-i-512+384,384+512
    EndIf
  Next
Next
SetViewport 0,0,1024,768
DrawText Int(t),512-16,384-12
t#:-.15

Flip
Delay 16

Until KeyDown(27) Or t<=0 ' {* END OF MAIN *}