Вот такая весчь:

Убрал отсюда файл - перенёс его на свой сервер, ссылка тут.
Кроме того, убрал GENS - теперь просто ставим образ загружаемся с него и жмём Enter.

<!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !>
как запустите выйдет GENS
В нём надо загрузить проект _N_ (команда: G,,1:_N_)
откомпилировать (команда: А)
Запустить (команда: R)

Работает только на скорпионе (в эмуляторах в том числе).
Прикрепил бы снап, да эмули из скорпиона не сохраняют снапы...

P.S. Забыл совсем, после запуска программы она грузит даныне в память (поэтому зависимость от модели памяти), после чего генерирует тело проигрывателя (генерирует при этом в экран, не надо пугаться что испортился экран ;)), и после всего этого надо Enter нажать - вот тогда и получится ;)))
<!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!>

ХАХАХХАХАХАХАХАХАА
ЗАЧЕТ! :)

а вот отзыв тока один, да и то хрен пойми про что :D

Цитата:

---

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

а вот отзыв тока один, да и то хрен пойми про что :D

---

5 Баллов, Грив =)

в указанный формат трансформирует, качество (а значит и коэффициент сжатия) регулируются. Это кому-нить надоть?

ваще классно. Качество оцифровки потрясающее для спеки =)

Цитата:

---

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

в указанный формат трансформирует, качество (а значит и коэффициент сжатия) регулируются. Это кому-нить надоть?

---

Мне очень надо! Давай исходники, примеры, пояснения!

Цитата:

---

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

а вот отзыв тока один, да и то хрен пойми про что :D

---

Да! качество оцифровки очень даже! :eek: 5 баллов!

А технические характеристики где можно посмотреть?
А свист убрать можно?

сделано на 5+

Ну да, здорово! Не было бы свиста - то вообще бы цены не было бы.

На входе имеется монофонический WAV. 16 bit и любой дискретизации
На выходе имеется то что вы слышите.
Кроме того имеется два процесса:
1) Кодирующий
2) Декодирующий

Кодирующий процесс представляет собой программы на pascal (под ДОС... хехе..) который оосуществляет преобразование. Практически указано слабое место метода кодирования: чем точнее он кодирует тем больше (по экспоненте причём) размер конечного файла (для спекка). Используется алгоритм ШИМ для эмуляции уровней громкости, в связи с этим некоторые композиции ПРИНЦИПИАЛЬНО невозможно адекватно закодировать (пример брал - Benny Benassi - Hit My Heart), в общем если взять и сделать сонограмму, то те композиции которые имеют чёткие группы звуковых частот будут очень хорошо кодироваться и наоборот.
В самом кодере указываются все параметры: в % от исходного файла что надо кодировать, допустимая ошибка абослютная и допустимая относительная (тоже в %). Из-за принципа моделирования громкости НЕВОЗМОЖНО избавиться от шипения, оно всегда будет в той или иной мере (для большего конечного файла менее заметно, для меньшего - более). После работы программа даёт три результата: конечный файл, файл проверки (тоже 16 bit wav, но то что должно было бы быть услышано если раскодировать конечный файл в WAV.), так же величину ошибки кодирования. Программа кодирования универсальна - её можно (посредтсвом встроенных констант) подогнать под любой алгоритм декодирования. Указанные константы суть представляют собой тактовые промежутки (длины циклов обработки). Я отсылал описание звуковых циклов в ZX Time и 3aRulem так что там должно быть (или будет по крайней мере).
Если надо приватом или мылом могу отослать, чтобы было понятно какие циклы считаются в тактах и каким образом.

Текст кодирующей программы на Pascal прикреплён.

Есть очень хороший образчик (http://грив.рф/MY_SPECCY/baba.zip), когда удалось на целую минуту контент расстянуть...

чисто теоретически (на самом деле просто ломает меня прогу писать) можно написать декодер-проигрыватель, который бы работал со средней частотой декодирования 233,333 Гц = 233 кГц - это почти что винилка (спектрум по качеству приближается к винилке... CD-audio отдыхает :D ), соответсвенно можно и кодер на паскале переписать, однако вот здесь такой есть расчёт - 1) Это непакующий кодер 2) В связи с этим его время работы для всей 256кБайт памяти скорпиона есть чтото около 8-9 секунд :(.

Поэтому чисто практически нет смысла его улучшать в этом направлении (скорость воспроизведения), так как хоть технически обеспечивается идеальное звучание, практически этот подход просто неприменим...


P.S. Общая структура декодера-проигрывателя:

(с) GriV

предустановки: С = 254 (порт вывода), D = 0 (значение)

осуществляется переход на процедуры

Out (С),С
Out (С),С
Out (С),С
Out (С),С
Out (С),С
Out (С),С
Out (С),С
Out (С),С
Ret

для значения ячейки памяти = 0

Out (С),D
Out (С),С
Out (С),С
Out (С),С
Out (С),С
Out (С),С
Out (С),С
Out (С),С
Ret

для значения ячейки памяти = 1

и т.д.

Out (С),D
Out (С),D
Out (С),D
Out (С),D
Out (С),D
Out (С),D
Out (С),D
Out (С),D
Ret

для значения ячейки памяти = 255.

Менеджер распределения прыжков для указанной конструкции я думаю написать сможет каждый...

P.P.S. Размер одной такой конструкции = 2*8+1 = 17 байт, всего таких 256 конструкций + (приблизительно) 200 байт на менеджер прыжков и загрузчик... Итого около 4,5 кБайт на всё про всё...

Офигенная вещь! РУЛЕЗ!

Пропустил в своё время:(

А что если сделать, чтобы с СД диска играло? Тогда можно будет такую частоту забадяжить?

А это не чище звучит ?
Демка польская, называлась MIX #2.

там просто подобрали сам исходный сэмпл, чтобы он получше звучал - но в целом звучание хуже. Я тут же просмотрел исходники - кто видел мою статью про звук на ZX и тоже посмотрит тот поймёт что там налицо недостатки - циклы на регистрах (DEC C JR NZ,$-1) ну и т.д.

Мой же алгоритм даёт очень чистое звучание, при том что там таких жутких медленных конструкций нет вообще, там такт цикла составляет 1 nop (т.е. 4 такта).

И ещё, в этой демке не указано каким способом пережимали это дело для спекка, вполне возможно что там использовали ущербный Error Diffusion, который однако кое-как но работает ;)

Счаз я над одним жутко быстрым алгоритмом работаю... но тут памяти просто под ноль не хватает... не знаю что делать... Самплы выложу как нить...

Цитата:

---

Сообщение от Surfin' Bird

Офигенная вещь! РУЛЕЗ!

---

;)

Цитата:

---

Сообщение от Surfin' Bird

Пропустил в своё время:(

А что если сделать, чтобы с СД диска играло? Тогда можно будет такую частоту забадяжить?

---

Не понял, ещё раз как с CD?

Цитата:

---

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

Не понял, ещё раз как с CD?

---

Ну, я про это:

Цитата:

---

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

чисто теоретически (на самом деле просто ломает меня прогу писать) можно написать декодер-проигрыватель, который бы работал со средней частотой декодирования 233,333 Гц = 233 кГц - это почти что винилка (спектрум по качеству приближается к винилке... CD-audio отдыхает :D ), соответсвенно можно и кодер на паскале переписать, однако вот здесь такой есть расчёт - 1) Это непакующий кодер 2) В связи с этим его время работы для всей 256кБайт памяти скорпиона есть чтото около 8-9 секунд :(.

---

Насколько понял, то проблема в том, что памяти слишком мало? А что если с CD подгружать всё время?

Цитата:

---

Сообщение от Surfin' Bird

Ну, я про это:

Насколько понял, то проблема в том, что памяти слишком мало? А что если с CD подгружать всё время?

---

Если это можно сделать без участия проца... ;))) то пожалста, тока как такое без участия проца можно сделать ума не приложу ;)))

Если кто на реальном спекке запускал, заметят, что там вначале идёт треть диска в память - это почти 30 секунд - потом только начинается вопроизведение - те же 30 секунд в первом сампле и минута во втором...

Тут именно что не получится грузить, для видео дискретность при загрузке не так сильно заметна, а вот для аудио к несчастью очень...

Цитата:

---

Сообщение от Surfin' Bird

Ну, я про это:

Насколько понял, то проблема в том, что памяти слишком мало? А что если с CD подгружать всё время?

---

Ещё есть такой вариант, что имеются какие то данные которые подаются в порт - чтобы их без управления (по крайней мере постоянного) можно было их оттуда снимать (простой командой IN A,(port)), так тоже можно - так даже будет прощё - потому что работать с таким потом удобней - не надо за границами памяти следить - а прога на прерываниях репает опрос клавиатуры - тогда вообще класс. Но сомнительно чтобы всё было так просто...

GriV ты молодец ! :)

то что в посте от 21-06-2005, 17:18 было, на самом деле 7-8 секунд, но звучание... пальчики оближешь! То что было в самом начала поста - близко не лежит ;))))

Исходники принесу выложу, не захватил с собой ;)))

Цитата:

---

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

то что в посте от 21-06-2005, 17:18 было, на самом деле 7-8 секунд, но звучание... пальчики оближешь!

---

А я так и не смог прослушать, ни под эмулятором, ни на реале - программа просто вешается после компиляции и запуска.

Цитата:

---

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

А я так и не смог прослушать, ни под эмулятором, ни на реале - программа просто вешается после компиляции и запуска.

---

Там указаны были ограничения - только scorpion 256, более никак

всё что выкладываю проверяю на всех доступных системах - на реальном скорпе - жёлтом - и на 2х эмулях - R80 (на нём собсно разработка и идёт - потому там обязон запускается) и на US - там работает в указанной модели памяти во всех версиях - во всех версиях запускал.

Может быть, правда, что дело в периферии - потому что программа в общем то очень вольно распоряжается битами порта 254 - туда выводится либо #FE либо #00 - для низкого и высокого уровня сигнала. Т.е. если есть периферия которая использует 7й бит (отсчёт с 0го бита ;)) порта, то собственно эта периферия и вешает комп.

может быть (как вариант) что она не совсем дружит с HDD на реале, хотя там используетс #3d13 для загрузки.

Цитата:

---

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

Там указаны были ограничения - только scorpion 256, более никак

---

У меня как раз Скорпион 256 (желтый).

Цитата:

---

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

может быть (как вариант) что она не совсем дружит с HDD на реале

---

Я грузил с дискеты.

Может быть конечно я что-то не так делал... У меня всё вешается, портя экран. При чём программа ведёт себя одинаково и под эмулятором, и на реале.

вот я даю!

Экран она должна портить!

Там надо Enter нажать чтобы играло ;)))

Там часть кода в экран уходит, потому экран портит ;)))

Вот я дал, забыл написать что Enter надо нажать ;)))

Цитата:

---

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

Там надо Enter нажать чтобы играло ))

---

Ну вот теперь всё заиграло! :) Ты бы это дополнение вставил в свой самый первый пост, чтобы все стало ясно тем, кто ещё не качал и не слушал.

А в одном из номеров Оберона описывался какой-то супер алгоритм вывода цифрового звука через АY , в приложении была демка "...и выходит, и входит, замечательно выходит..." Там качество не лучше было?

Цитата:

---

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

А в одном из номеров Оберона описывался какой-то супер алгоритм вывода цифрового звука через АY , в приложении была демка "...и выходит, и входит, замечательно выходит..." Там качество не лучше было?

---

Я поищу, но сразу есть несколько замечаний. В соседних постах насчёт максимальной частоты ЦАПа AY обсуждался вопрос вывода на AYк - ничёго хорошего как ни странно там не получается. Во всяком случае чтобы я не пробовал с ним делать - звук получается слабый. Именно поэтому то что тут приведено работает не с AY а с Beeper. Кстати я в этой точке зрения не един, кажется в ACoder'овской газете было обсуждение/сравнение этих двух устройств - там к аналогичному мнению пришли.

P.S. Что такое "Оберон"? маленькую подсказу плиз ;)))

P.S.S. Однако кой с кого за объяснение запуска треба оценка по пятибалльной шкале ;)))

Цитата:

---

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

Что такое "Оберон"? маленькую подсказу плиз

---

В аттаче кусок (дополнение к журналу) Оберона 5. Если в титульном меню выбрать последний пункт (START А HIDDEN PART), то загрузится небольшая демка с выводом цифрового звука через AY - очень качественно. Описание метода содержится в самом журнале.

Еще в Born Dead 2 было про это, с демонстрацией.

Убрал образ и выложил вместо него ссылку
Просто грузим и жмём Enter. Исходник плеера прилагается.

<!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!>
Запускать так же, только имя файла уже "EXPED"
Т.е. вместо
G,,1:_N_
надо набрать
G,,1:EXPED

После запуска программа портит экран - это нормально. Надо жать Enter чтобы всё собсно заиграло.

Радостные выкрики при прослушивании приветствуются ;))))
<!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!>

идёт программа кодировщик так же на Pascal 4 PC.

P.S. Это программа предназначена только для Scorpion - в том числе и задержки M1 учтены - поэтому при "переборе" кодировщика необходимо учитывать это - там даже есть две таблицы - для M1 машин и для машин без оного (массив задержек).

P.P.S. Не хочу забегать вперёд... но я почти закончил ещё более производительный алгоритм, правда я пока семплы не сделал для него - собрал только декодер. Когда кодер соберу и отлажу выложу... по всем замашкам это будет просто отличное звучание... У меня была в разработке более производительная в смысле скорости (почти в 1,5 раза быстрей!) схема, аналогичная приведённой двумя постами выше, однако 4-5 секунд звучания (на 256 кб!) я думаю мало кого устроят - просто невозможно отличить уровень звучания от предыдущего варианта - поэтому я даже не стал её развивать.

и Оберон и здесь такой вопрос - если вы слышали оцифровки скажем из Instrument - то никакой разницы между ними и тем, что было в деме к рождённому мертвым я не увидел - тот же хруст тот же шум (причём в тексте было утверждение, что наоборот - никаких шумов и т.п.????), что было раньше.

В обероне я увидел дему, качество ничё, но я не уверен, что там было хоть что-то похожее на то что я делал, по крайней мере разбор алгоритма показал, что там используется достаточно медленный вывод (я сравниваю со своими алгоритмами), хотя на достаточно высокой частоте - около 44 кгц по видимому сразу на два канала. Кроме того там тоже есть признак простейшего сжатия (какая то битовая обработка считанных данных), хотя как оно работает я не понял - нет в самом журнале пояснений по поводу того, что за демка там в скрытой части и какой алгоритм используется для сжатия звука.

P.S. Вот так получилось как будто бы обругал чужое... :( не хотел того я

а сам никак

В общем тут такая проблема есть.

У меня после кодирования получается почему-то очень грязный сигнал (для кодера с регулируемым сжатием) - я как не пытался от "грязи" избавиться - ничего не получается. Поэтому на данный момент времени лучшим остаётся кодер который приведён выше - всего 9 секунд зато самого отличного звучания.

Пока нет времени, но обязон соберу программу для более производительного (который в 1,5 раза быстрей) кодера.

И кстати, кто будет пользоваться дам совет - как повысить результат конвертирования. Дело в том, что внутри кодера используется линейная апроксимация, которая вообще то говоря даёт очень низкое качество интерполяции, а в среднем кодер делает четыре отсчёта за 1 слово потока WAV. Потому откройте нормальный звуковой редактор - например soundforge - и интерполируйте исходный 44кгц 16бит стерео сигнал (скорей всего такой у вас и будет) в 150кгц [именно такая частота - при превышении возможны ошибки кодера] 16 бит стерео и только после этого объединяйте каналы (150кгц 16 бит моно), а полученный файл подсовывайте программе-кодеру. Звучание я сравнивал не раз, однако тут есть такой нюанс - интерполированный сигнал программа сжимает с бОльшей ошибкой (там есть оценка качества сжатия) чем неинтерполированный, хотя на слух наоборот - качество звучания просто значительно улучшается. Метод вычисления ошибки я менял, ничего не изменялось, короче оценку можно использовать только так - чем меньше она для конкретного взятого файла тем лучше (-% ошибка аппроксимации вообще параметр малозначимый - так что её можно смело выкидывать (-%.

Так. Сейчас вот только добрался. Действительно, это ведь офигенная чтука. Недостаток в памяти. Предложение с CD требует процессорное время. Если выход и есть, то тольок сработать DMA для CD, чтоб тот без Z80 заполнял потихоньку память. Тогда победим-таки. )

А где зачоооот? ;-)))))

Зачоооот! OUTы рулят лучше алгоритмо, OUTы рулят шустрее! Кабы не видеобуфер, можно было бы обойтись только OUT, но так приходится иногда еще что-то приписывать. А все остальные команды -- просто дял экономия памяти и небольшого разнообразия поведения :)

А серьезно -- очень понравилось. Был бы CD via DMA, можно было бы и качественные, и длинные штуки ваять таким алгоритмом. На выставках бы рты пораскрывали, думаю! ;)

Цитата:

---

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

Был бы CD via DMA

---

да как бы с CD сабж вообще смысла не имеет ибо в самом цдроме есть и DAC и вывод 44кгц