СинтэзатоР

[DeeJex]

ХреньКО(См. аттач)

[Randomize]

Весело, занятно!

[St_AnGer]

на Win 7 не пашет ни в какую ((( обидно, очень хотел попробовать (((

Ой... Вру, не так выразился ((( Сама прога запустилась, но звуков никаких что бы не делал. Вот (((

[Reks888]

На Win7 пошло нормально, как не удивительно

[Randomize]

И у меня на Win7 тоже пошло нормально.

[Arton]

Аналогично.

[St_AnGer]

В Win7 так и не заработало, пришлось идти к знакомым у которых есть ХР. Заработало ))) Занятная вещь ))

З.Ы. проблема с Win7 тоже пропала. Программный сбой был, у меня ни в одном приложении звука не было. Всё теперь работает.

[Randomize]

[Артем Валерьевич]

еще раз про синтезатор, а как реализовать на блице такое http://lab.andre-michelle.com/tonematrix

сыну хочу сделать.

[LynX]

Ха! Прикольная вещь... думаю мне она понадобиветься для игрули

[pax]

Сообщение от Артем Валерьевич

еще раз про синтезатор, а как реализовать на блице такое http://lab.andre-michelle.com/tonematrix

сыну хочу сделать.

Берешь семплов столько, сколько строк в игрульке. И проигрываешь каждый столбец (семплы в столбце) где есть квадратик через определенный промежуток времени.


PS: профессия программиста хороша тем, что видя чужую программу анализируешь как сделана

[baton4ik]

На Вин7 не смог запустить. Причина: у меня нету blitz3d.
DeeJex, я сейчас расплачусь. В каждой твоей теме я тебе писал, что, кроме исходников, надо выкладывать скомпилированные проекты. Пожалуйста.

[Артем Валерьевич]

а вот вопрос - как найти центр ячейки

Type soundsempler

	Field x_start
	Field y_start
	Field ghz
	Field image
	Field fool	
	Field sound
	Field stat

End Type

Function addPointSound(sample,x#,y#,i,f,gz#)

	s.soundsempler=New soundsempler
	s.soundsempler=s
	
	s\x_start#=x#
	s\y_start#=y#

	
	s\image=i 
	s\fool=f : DrawImage s\fool,s\x_start#,s\y_start#
	
	s\sound=PlaySound(sample)
	
	PauseChannel s\sound
	
	s\stat=0

	s\ghz=gz#

End Function

Function updateSint()

	Local xMO=MouseX()
	Local yMO=MouseY()
	
For s.soundsempler = Each soundsempler

If xMO>ImageWidth(s\fool)-ImageWidth(s\fool) And yMO>ImageHeight(s\fool)-ImageHeight(s\fool) Then 


		If MouseHit(1) Then
			s\stat=1
		End If

	End If

;End If

If s\stat=1 Then 

	DrawImage s\image,s\x_start#,s\y_start#
	ResumeChannel s\sound
	
	
	;s\ghz=s\ghz+MouseZSpeed ()

End If
ChannelPitch s\sound,s\ghz
Next

End Function

клетки в массиве:

For x=1 To GridW 
		For y=1 To GridH 		
			addPointSound(s,sx+x*ItemW,sy+y*ItemH,inuse,defImg,8000+y*1000)
		Next
	Next