Формула конопли

[HolyDel]

Российские ученые вывели математическую формулу конопли.
вот она: R# = (1+Sin(a))*(1-.9*Abs(Sin(4*a)))*(.9+.05*Cos(200*a))

а вот чо получается:

Graphics 640,480,32,2
SetBuffer BackBuffer()

a#=0
Color 255,255,255
While a<360
	a=a+0.01
	R# = (1+Sin(a))*(1-.9*Abs(Sin(4*a)))*(.9+.05*Cos(200*a))
	x#=320+Sin(a+90)*R*200
	y#=400+Cos(a+90)*R*200
	Plot x,y

Wend

Flip
WaitKey

[dimanche13]

Зачет! видел уже где-то.. правда на картинке, думал боян а ведь и правда... она чертовка!

[Данил]

Круто!

[HolyDel]

вот второй вариант (кто больше):

Graphics 640,480,32,2
SetBuffer BackBuffer()

For i=1 To 12
	

a#=0
Color 120-i*10,255-i*20,40-i
While a<360
	a=a+0.01
	R# = (1+Sin(a))*(1-.9*Abs(Sin(4*a)))*(.9+.05*Cos(200*a))
	x#=320+Sin(a+90)*R*(200-(i*10))
	y#=400+Cos(a+90)*R*(200-(i*10))
	Plot x,y
Wend

Next

Dim buff(640,480,3)
LockBuffer BackBuffer()

For i=1 To 640
	For j=1 To 480
		buff(i,j,0)=ReadPixelFast(i,j,BackBuffer())
		buff(i,j,1)=r(buff(i,j,0))
		buff(i,j,2)=g(buff(i,j,0))
		buff(i,j,3)=b(buff(i,j,0))
	Next
Next

For i=2 To 639
	For j=2 To 479
		r_=0
		g_=0
		b_=0
		For dx=-1 To 1
		For dy=-1 To 1
			r_=r_+buff(i+dx,j+dy,1)
			g_=g_+buff(i+dx,j+dy,2)
			b_=b_+buff(i+dx,j+dy,3)
		Next
		Next
		buff(i,j,0)=rgb(r_/9,g_/9,b_/9)
	Next
Next
For i=1 To 640
	For j=1 To 480
		WritePixelFast i,j,buff(i,j,0),BackBuffer()
	Next
Next

UnlockBuffer BackBuffer()
Flip
WaitKey

Function rgb(r,g,b)
	Return r Shl 16 Or g Shl 8 Or b
End Function

Function r(v)
	Return v Shr 16 And $FF
End Function

Function g(v)
	Return v Shr 8 And $FF
End Function

Function b(v)
	Return v And $FF
End Function

[impersonalis]

mav

[Diplomat]

У меня всё работает нормально. Если у тебя глючит- просто замени ReadPixelFast и WritePixelFast на ReadPixel и WritePixel- всё будет работать и у тебя.

2 HolyDel: Сколько раз обсуждалось, не надо юзать эти команды. Они глючат самыми непредсказуемыми способами, из которых МАВ- самый милый, приятный и легко идентифицируемый. )

[Crystal]

Нетбы учёным чёнить стоещее изобрести, а они формулы канопли выводят.
Наркоманы пля.

Так будет лучше )
В стиле инков.

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

a#=0
Color 255,255,255
While a<360
    a=a+1.7
    R# = (3+Sin(a))*(30-.1*Abs(Sin(4*a)))*(.004+.900*Cos(200*a))
    x#=320+Sin(a+90)*R*3
    y#=400+Cos(a+90)*R*3
    Plot x,y

Wend

Flip
WaitKey

[HolyDel]

Посчет WritePixelFast и ReadPixelFast. юзал, юзаю и буду юзать.
вроде как вероятность возникновения MAV-а увеличивается от времени блокировки поверхности.

Impersonalis, попробуй ето:

Graphics 640,480,32,2
SetBuffer BackBuffer()

For i=1 To 12
	

a#=0
Color 120-i*10,255-i*20,40-i
While a<360
	a=a+0.01
	r# = (1+Sin(a))*(1-.9*Abs(Sin(4*a)))*(.9+.05*Cos(200*a))
	x#=320+Sin(a+90)*R*(200-(i*10))
	y#=400+Cos(a+90)*R*(200-(i*10))
	Plot x,y
Wend

Next

Dim buff(640,480,3)
LockBuffer BackBuffer()

For i=1 To 640
	For j=1 To 480
		buff(i,j,0)=ReadPixelFast(i,j,BackBuffer())
		buff(i,j,1)=r(buff(i,j,0))
		buff(i,j,2)=g(buff(i,j,0))
		buff(i,j,3)=b(buff(i,j,0))
	Next
Next
UnLockBuffer backBuffer()

For i=2 To 639
	For j=2 To 479
		r_=0
		g_=0
		b_=0
		For dx=-1 To 1
		For dy=-1 To 1
			r_=r_+buff(i+dx,j+dy,1)
			g_=g_+buff(i+dx,j+dy,2)
			b_=b_+buff(i+dx,j+dy,3)
		Next
		Next
		buff(i,j,0)=rgb(r_/9,g_/9,b_/9)
	Next
Next

lockBuffer BackBuffer()
For i=1 To 640
	For j=1 To 480
		WritePixelFast i,j,buff(i,j,0),BackBuffer()
	Next
Next

UnlockBuffer BackBuffer()
Flip
WaitKey

Function rgb(r,g,b)
	Return r Shl 16 Or g Shl 8 Or b
End Function

Function r(v)
	Return v Shr 16 And $FF
End Function

Function g(v)
	Return v Shr 8 And $FF
End Function

Function b(v)
	Return v And $FF
End Function

[impersonalis]

не помогло

[PaKo]

У меня тоже MAV, но когда меняю ReadPixelFast и WritePixelFast на ReadPixel и WritePixel, всё норм.

Да и прикольная формула!! пригодится!

[Diplomat]

вроде как вероятность возникновения MAV-а увеличивается от времени блокировки поверхности.

Нет. Давно проверено и доказано эмпирически: вероятность возникновения MAV-а на "Fast-ах" увеличивается исключительно в связи со сменой расположения звёзд на небосклоне и возможностью наиболее эффективного применением законов Мерфи против разработчика.

юзал, юзаю и буду юзать.

Да пожалуйста. У 20% юзверей будут вылеты, а еще у 10%- совершенно психоделические глюки самого разного толка.

когда меняю ReadPixelFast и WritePixelFast на ReadPixel и WritePixel, всё норм.

Естественно всё нормально, алгоритм-то вполне рабочий, глючат функции.

[impersonalis]

Сообщение от PaKo

когда меняю ReadPixelFast и WritePixelFast на ReadPixel и WritePixel, всё норм.

Да и прикольная формула!! пригодится!

аналогично

[ABTOMAT]

Аффтару зачот! Эта пять!

[ЛысыЙ_Чук-Иванчук]

У меня мава нет, но канапля не ресуется до конца.

[ABTOMAT]

ЛысыЙ_Чук-Иванчук, у меня оно так вот висит пару секунд а потом дорисовывавется.