What is going on here?

Blitz3D Forums/Blitz3D Beginners Area/What is going on here?

ColeE

(Posted 2016) [#1]

The fragments of the circlish shape in the lower right are unintended, and I can't tell why they're being formed... Does anyone see what's causing this? Thanks.

Graphics 640, 480
SetBuffer BackBuffer()
radius% = 65
Origin radius%, radius%
a# = 11
b = 16
m% = 16
n1# = 14
n2# = 9
n3# = 3
maxR# = 0
	For i=0 To 360
		r# = (Abs(Cos((m%*i)/4.0)/a#)^n2#+Abs(Sin((m%*i)/4.0)/b)^n3#)^(-(1.0/n1#))
		If r#>maxR# Then maxR#=r#
	Next
	x#= (Abs(Cos((m%*i)/4.0)/a#)^n2#+Abs(Sin((m%*i)/4.0)/b)^n3#)^(-(1.0/n1#)) * (radius%/maxR#)
	y# = 0
	For i = 0 To 360
		r# = (Abs(Cos((m%*i)/4.0)/a#)^n2#+Abs(Sin((m%*i)/4.0)/b)^n3#)^(-(1.0/n1#))*(radius%/maxR#)
		Line x#, y#, Cos(i) * r#, Sin(i) * r#
		x#= Cos(i) * r#
		y# = Sin(i) * r#
		If x#>radius% Then Text 400, 0, "" + x#+ ", " + y#
		;Flip
		;Plot x, y
		;Delay 100
	Next
	WaitKey()
End

Floyd

(Posted 2016) [#2]

You have rediscovered an old and rarely seen bug.

http://www.blitzbasic.com/Community/posts.php?topic=72316

ColeE

(Posted 2016) [#3]

Wow. I'm glad you answered that, I was so confused. :)