Statische ruis

This code has been declared by its author to be Public Domain code.

Statische ruis by Nebula

2006

A person named Rochard created a test with ink. He used ink and dropped it on paper then folded it, and opened it up again. By asking questions people could give insights on what they saw. It is a fun game.

This program shows static tv. You will be able to see anything that you want. This is the way our brain works. (ref?)

Try it.

;
; If you really look into this animated static tv, you will see your memory. 
; This is becourse our memory can recall images.
; Look into the static, and think of something.
;
;
; Based on the rochard test.
;
;
;
Graphics 640,480,16,2
SetBuffer BackBuffer()

timer = CreateTimer(5)
While KeyDown(1) = False
	Cls
	;
	For x=0 To 640 Step 3
	For y=0 To 480 Step 3
		a = Rand(0,255)
		Color a,a,a
		Rect x,y,3,3,True
	Next:Next
	;
	WaitTimer timer
	;
	Flip
Wend
End

Comments

Fuller

2006

I see what you mean but it's really faint

Ked

2006

Sorry, but I don't get it. What are you supposed to do again?

Fuller

2006

You're mind is supposed to sort out the static into recognizable shapes.

puki

2006

How long do I have to stare at it to see "Britney Spears" naked?

bytecode77

2006

Graphics 1024, 768, 32, 2
SetBuffer BackBuffer()

gw = GraphicsWidth()
gh = GraphicsHeight()
While Not KeyHit(1)
	LockBuffer()
	For x = 0 To gw - 1
		For y = 0 To gh - 1
			col = Rand(0, 255)
			WritePixelFast x, y, col * $10000 + col * $100 + col
		Next
	Next
	UnlockBuffer()
	Flip 0
Wend
End

sorry, no criticize. but i just felt like optimizing it :D

Rook Zimbabwe

2006

Rorschach. I wrote a paper on him when I was studying for my Masters in Education.

http://en.wikipedia.org/wiki/Rorschach_inkblot_test

Damien Sturdy

2006

Fastest way to do it:

Graphics 1024, 768, 32, 2
SetBuffer BackBuffer()
Global maximages=50

Dim images(maximages)

For im=0 To maximages
	images(im)=CreateImage(102,76)
	gw=102
	gh=76
	buffer=ImageBuffer(images(im))
	SetBuffer buffer
	LockBuffer(buffer)
	For x = 0 To gw - 1
		For y = 0 To gh - 1
			col = Rand(0, 255)
			WritePixelFast x, y, col * $10000 + col * $100 + col
		Next
	Next
	UnlockBuffer()

Next
SetBuffer BackBuffer()


gw = GraphicsWidth()
gh = GraphicsHeight()
Dim imageat(10,10)

While Not KeyHit(1)
	For x=0 To 10
		For y=0 To 10
			Repeat:newimg=images(Rand(0,maximages)):Until newimg<>imageat(x,y)
			imageat(x,y)=newimg
			DrawImage newimg,x*102,y*76
		Next
	Next
	Flip
Wend
End

Code Archives Forum