Statische ruis

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

Statische ruis by Nebula (Posted 20 years ago)
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.
Open in online IDE ; ; 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

Statische ruis by Nebula

(Posted 20 years ago)

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.

Open in online IDE

;
; 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

(Posted 20 years ago)

I see what you mean but it's really faint

Ked

(Posted 20 years ago)

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

Fuller

(Posted 20 years ago)

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

puki

(Posted 20 years ago)

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

Devils Child

(Posted 20 years ago)

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

(Posted 20 years ago)

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

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

Cygnus

(Posted 20 years ago)

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