К основному контенту

useless retro

Поиск по этому блогу

111111111*111111111=12345678987654321

мая 03, 2026

Получить ссылку
Facebook
X
Pinterest
Электронная почта
Другие приложения

PureBasic сам справился (:

смехуечки purebasic

Получить ссылку
Facebook
X
Pinterest
Электронная почта
Другие приложения

Комментарии

Отправить комментарий

Популярные сообщения

Хочешь упороться? спроси меня, как

Можно взяться за дурацкий диалект BBC Basic и перенести код на более привычный: xres=1280 yres=1024 If OpenWindow(0, 0, 0, xres, yres, "CanvasGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) CanvasGadget(0, 0, 0, xres, yres) If StartDrawing(CanvasOutput(0)) Box(0,0,xres, yres,0) ; https://bbcmic.ro/?t=8TQ7j ; MODE0:VDU29,640;-32;19,1,2;0;5 ; R=120:D=2*R:S=R*SQR3 R=120 D=2*R S.f =R*Sqr(3) ; K=1024^2 K=1024*1024 ;K=1280*1280 ; FORV=0TO18 For V=-0 To 18 ; FORH=-19TO19 For H=-19 To 19 L.f=-#PI ; FORL=-PI TOPI STEPPI/3 While L<=#PI ; A=R+(1ANDV)*R+H*D+SINL*R A=R+(v&1)*R+H*D+R*Sin(L) ...

Еще одно гашение экрана

Вчера на ааафоруме обсуждали одну прогу, и мне внезапно захотелось накодить один эффект, который я давно собирался написать - гашение экрана по диагонали. Пропыхтел 5 часов, и накодил эффект, который выглядел паршиво. Сменил картинку - смотрится неплохо .

новый bzpack

День сегодня не задался. Утром хотел залить на Ucoz исправленную версию интро RGBcubeiso. Как обычно, Ucoz меня не узнал. Ладно, решаемо. На позднее меня ждала установка VS 2019, так как я вчера обнаружил изменения в упаковщике bzpack и решил скомпилировать заново - мне не нужно х64, надо х86. Снес старое VS 2013, часа четыре ставил новую версию, часа два осиливал компиляцию. всем адептам сигавна надо разок уебать по кумполу, чтобы больше не плодили ублюдские сырки. Обе программы в комплекте с исходниками лежат тут . Программа, которую я написал, дала неплохие результаты при упаковке. Получается файл tbrm.C размером 378 байт, сжатие: bzpack -e1 -r tbrm.C tbrm.bzp на выходе tbrm.bzp 185 байт. Процедура распаковки: device zxspectrum48 ORG #8000 begin ; jr $ ; call dcod ; jp $6000;jr $ ld b,$60 push bc ;--------------------------------------------------------------------- ; Copyright (c) 2021, Aleksey "homospec" Pichugin-Drochugin, Milos "...

Технологии Blogger