ЭВМ openair: Пермские Васюки

[siril]

Простой конвертер на бейсике?

ага, просто в этой строчке: 9999 for f = 23755 to (23755 + len): let p = peek f: print chr$(65+p/16); chr$(65+p-(INT(p/16)*16); : next f

заменить 65 на 128 и будет тебе полная иллюзия QR-кода, по 2 знакоместа на байт =) (но, разумеется, без всяких там контрольных сумм ^_^)

9999 for f = 23755 to (23755 + len): let p = peek f: print chr$(128+p/16); chr$(128+p-(INT(p/16)*16); : next f

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

[Advertiser]

[diver]

ага, просто в этой строчке: 9999 for f = 23755 to (23755 + len): let p = peek f: print chr$(65+p/16); chr$(65+p-(INT(p/16)*16); : next f

заменить 65 на 128 и будет тебе полная иллюзия QR-кода, по 2 знакоместа на байт =) (но, разумеется, без всяких там контрольных сумм ^_^)

9999 for f = 23755 to (23755 + len): let p = peek f: print chr$(128+p/16); chr$(128+p-(INT(p/16)*16); : next f

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

Извращенец Пока что способ с дампом 768-бит спрайтов в из пикселей в атрибуты наиболее реален.

[siril]

Извращенец Пока что способ с дампом 768-бит спрайтов в из пикселей в атрибуты наиболее реален.

атрибуты? если я правильно понял - то тут фиг выловишь flash - и как минимум один бит потеряется.

см. красоту во вложении.

[siril]

а вот это - простой вариант для распознавания дампа чем угодно (FineReader'ом или офисной распознавалкой от MS).

(65 вместо 128 в программе).

[psb]

а звука в айпаде нету что ли?

[siril]

а звука в айпаде нету что ли?

в iPad'е — есть, а в Spectaculator'е: beeper — есть, а tape-out — нет =) так что SAVE "Program" —*не работает =)

[unbeliever]

а звука в айпаде нету что ли?

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

[unbeliever]

Феномен "мокренькой кисоньки", так будоражившей умы всех участников пати... РАСКРЫТ

Первые фотографии от британских ученых:

[diver]

Siril, psb. У меня с дня опенэйра уже есть 3 варианта дампа:
1. Звук выгружаемый пропатченой процедуроц сейва by jtn - не годен, мало качества
2. Скриншот пиксельного дампа - весь в мыле - не годен, ибо его только вручную перерисовывать, слишком заблюрен
3. Скриншоты десятичного дампа - такой же блюреный текст, файн ридер подавился спек шрифтом. Контрастный текст чуть лучше, но все файнридер давится шрифтом.

Siril, не байт в атрибут, а бит в атрибут, там ниакого флеша - либо белое либо черное. Я же говорю что 768 БИТ в экран. Конверсия байт-бит графическая, тк предварительно на экран кидаем пиксельный дамп, а потом рисуем атрибуты, которые не уничтожают пикселы. Весь геморрой - в количестве скриншотов

---------- Post added at 08:53 ---------- Previous post was at 06:53 ----------

Феномен "мокренькой кисоньки", так будоражившей умы всех участников пати... РАСКРЫТ

Первые фотографии от британских ученых:

Ты видишь мокренькую кисоньку? И я нет. А она есть.

На этом феноменальном фото присутствуют зримо и незримо сразу обе кисоньки - сухонькая и мокренькая. А так же контрформы обеих, только наоборот - незримо и зримо :-D

[siril]

Siril, не байт в атрибут, а бит в атрибут, там ниакого флеша - либо белое либо черное. Я же говорю что 768 БИТ в экран. Конверсия байт-бит графическая, тк предварительно на экран кидаем пиксельный дамп, а потом рисуем атрибуты, которые не уничтожают пикселы. Весь геморрой - в количестве скриншотов

ну вот попиксельная атрибутная лупа, которая показывает растр с помощью атрибутных (не портящих растр) блоков 8x8:

10 for f = 0 to 4096: poke (f+16384),peek (23755+f):next f
20 for r = 0 to 6: for c = 0 to 8
30 for y = 0 to 24:for x = 0 to 32: poke 16384 + 6144 + y*24 + x, 63 * point (c*32 + x,175-(r*24+y)): next x: next y: print #0; AT 0,0; "screen #"; r*8+c: pause 0
40 next c: next r

только как ты её будешь обратно собирать? =)

---------- Post added at 11:09 ---------- Previous post was at 11:03 ----------

а, чёрт, номер экрана показывать нельзя - убьются атрибуты.
так что:

30 for y = 0 to 24:for x = 0 to 32: poke 16384 + 6144 + y*24 + x, 63 * point (c*32 + x,175-(r*24+y)): next x: next y: border 7: pause 1:border 1: pause 0: border 0