Подсчёт пикселей одного цвета через png-image-pixel-fold в Guile-PNG:

#!/home/avp/.guix-profile/bin/guile \
-L modules -e main -s
!#

(use-modules (oop goops)
             (logging logger)
             (rnrs bytevectors)
             (png)
             (png fsm context)
             (png image)
             (png graphics pixel)
             (png image-processing))

(define (main args)
  (log-add-handler! (make <precise-port-log>
                      #:port (open-output-file "/tmp/smc.log")))
  (let* ((image (png->scm #:debug-mode? #t))
         (result (png-image-pixel-fold image
                                       0
                                       (lambda (pixel previous . rest)
                                         (if (and (= (bytevector-u8-ref pixel 0) 255)
                                                  (= (bytevector-u8-ref pixel 1) 0)
                                                  (= (bytevector-u8-ref pixel 2) 0))
                                             (+ previous 1)
                                             previous)))))
    (format (current-error-port) "result: ~a~%" result)))

#projects #guile_png

Выпустил релиз Guile-PNG 0.7.3:
https://github.com/artyom-poptsov/guile-png/releases/tag/v0.7.3

В новой версии добавлены процедуры для поворота изображений на 90 градусов по часовой и против часовой стрелки, процедура поворота на 180 градусов, процедуры отражения изображения по вертикали и горизонтали.

Также добавлен новый высокоуровневый интерфейс для операций над пикселями изображения.

Новые процедуры в модуле (png image-processing):
- png-image-rotate-90/cw — поворот на 90 градусов по часовой стрелке.
- png-image-rotate-90/ccw — поворот на 90 градусов против часовой стрелки.
- png-image-rotate-180 — поворот на 180 градусов.
- png-image-flip-vertical — вертикальное отражение изображения.
- png-image-flip-horizontal — горизонтальное отражение изображения.

В модуле (png graphics pixel):
- png-image-pixel-for-each — процедура, применяющая указанную процедуру для каждого пикселя изображения.
- png-image-pixel-map — применение указанной процедуры к каждому пикселю копии изображения, заменяя его результатом работы переданной процедуры. Исходное изображение не модифицируется.
- png-image-pixel-fold — применение указанной процедуры к каждому пикселю изображения, разультат вызова процедуры аккумулируется и возвращается, как результат вызова.

#projects #guile #guile_png #lisp

#music #music_metal

Классный трек.

Rotting Christ, "Sanctus Diavolos":
https://www.youtube.com/watch?v=kR9wkzwDK2Y

Rotting Christ, "Sanctus Diavolos" (live):
https://www.youtube.com/watch?v=ab3S_GklXpU

Тут что-то происходит.

#projects #guile_png

Когда закончилась мана

r/#Unexpected

Мульти-медиатор для гитары:
https://www.youtube.com/shorts/oYxg5uaIFnE

#3dprinting

Lulu Cathrinus Grimalkin, "The evolution of a Scheme programmer":
https://erkin.party/blog/200715/evolution/

#scheme #lisp #humor

Устал я от программирования и этого вашего IT. Пишешь код, контрибьютишь в open source, образованность людей повышать пытаешься, а суровая российская действительность всё нависает и нависает мрачно, конца и края этому не видать. Душа требует творчества. Подамся-ка я в панк-рок, буду музыку на злобу дня в подвалах и переходах подземных играть.

Вот и обложка первого ещё не записанного альбома подоспела под авторством mesalliance, как раз вовремя.

#music #technology

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

mitxela, "Robot Slide Whistle Orchestrion":
https://youtu.be/6JeV53LZ8ag

#music_theory

Очень интересно.

Гайд по всем видам музыкального слуха:
https://www.youtube.com/watch?v=UX1i5RYoD5k

Ну что, 1-е апреля прошло, пора снова возвращаться в IT:
https://www.youtube.com/watch?v=bLHL75H_VEM

Это мы берём

r/#funny

#music

Pink Floyd, "The Great Gig In The Sky" (50th Anniversary Competition Winner's Video):
https://youtu.be/MTovRtERP5U