Rather odd mathmatical plottings.

[Pixel_Outlaw]

These are some very odd images generated by tinkering around with hommade plotting programming functions.









I find them sort of interesting so I'd post.

[antron]

looks like that old dos program acidwarp. it came with instructions on how to build a crude projector with a monitor, a wine box, and a fresnel lens

[BulletMagnet]

The next Cave TLB's patterns?

[trivial]

For more moiré fun, check out Digital Video Essentials in high definition. These look like some of the bandwidth test patterns.

[Udderdude]

The next Cave TLB's patterns?

No way, I definitely see some safe spots in there.

[Specineff]

My God, it's full of stars.

[UnscathedFlyingObject]

It's like something you'd see when having a bad trip.

[Super Laydock]

Not surprisingly this post coming from the man who made a post about fractals already...

And though I suck at mathematics, I love this mathematically produced images. They're beyond awesome!

[Joe T.]

I've fallen through a few of these after an enormous bump of ketamine before...I must have serious number crunching ability somewhere behind my cranial receptor units after all.

[Pixel_Outlaw]

I forgot the formula I plotted but it involved distance from the center of the screen coupled with moire lines and interpolation between 2 colors.

"Turn off your mind, relax and float downstream, it is not dying it is not dying"

Here is the source in blitzmax.

You will need to change some of the hidden distance formulas to the real one to get different effects.

Code: Select all

Strict
SeedRnd(MilliSecs()) 
Global points:TList = New TList
Type point
	Field x:Int, y:Int
End Type

Function distance:Int(x:Int, y:Int, x2:Int, y2:Int) 
	Return Sqr(((x2 - x) * (x2 - x)) + ((y2 - y) * (y2 - y))) 
End Function

rem
Function distance:Int(x:Int, y:Int, x2:Int, y2:Int) 
	Return Sin(Sqr(((x2 - x) * (x2 - x)) + ((y2 - y) * (y2 - y)))) * 1000
End Function


Function distance:Int(x:Int, y:Int, x2:Int, y2:Int) 
	Return atan(Sqr(((x2 - x) * (x2 - x)) + ((y2 - y) * (y2 - y)))) * 1000
End Function


Function distance:Int(x:Int, y:Int, x2:Int, y2:Int) 
	Return cos(Sqr(((x2 - x) * (x2 - x)) + ((y2 - y) * (y2 - y)))) * 1000
End Function



Function distance:Int(x:Int, y:Int, x2:Int, y2:Int) 
	Return tan(Sqr(((x2 - x) * (x2 - x)) + ((y2 - y) * (y2 - y)))) * 1000
End Function
endrem


Function average_distance(x:Int, y:Int)  
Local d:Int = 1000000
For Local P:point = EachIn(points) 
Local dd:Int = distance(x, y, p.x, p.y) 
If dd < d
d = dd
EndIf
Next

Return d
End Function

Graphics 640, 480

Local m:Float = MilliSecs() 

For Local i:Int = 0 To 0
	Local P:point = New point
	p.x = Rand(640) 
	p.y = Rand(480) 
	ListAddLast(points, p) 
Next

Local cc:Float
For Local x:Int = 0 To 639
	For Local y:Int = 0 To 479
	Local ad:Int = average_distance(x, y) 
	If ad Mod 3 = 0
	cc = Abs(Sin(ad * 4)) 
	SetColor(cc * 255, cc * 255, 255 - cc * 255) 
	Plot(x, y) 
	EndIf
	Next
Next

Notify(String(MilliSecs() - m)) 
Flip
WaitKey()