memory heap

Another Guile-PNG generative art:
https://gist.github.com/artyom-poptsov/72fe27b7441f984262c99ee2b27082a8

#generative_art #art #guile_png #scheme

👀3🔥2🕊1

110 viewsArtyom "avp" Poptsov, 12:26

memory heap

Another Guile-PNG generative art: https://gist.github.com/artyom-poptsov/72fe27b7441f984262c99ee2b27082a8 #generative_art #art #guile_png #scheme

Экспериментальным способом получено изображение с повышенной шакальностью.

#generative_art #guile_png #scheme

🎃4

124 viewsArtyom "avp" Poptsov, 12:36

memory heap

Программист, который сделал векторную анимацию посадки из фильма "Чужой", описывает код на языке программирования "Fortran", который её рендерил:
https://archive.org/details/creativecomputing-1981-06/page/n51/mode/2up?ui=embed&view=theater

Отрывок из фильма, где показана анимация:
https://youtu.be/0k5eziWR7Gc?t=145

The original artist describes their Fortran code that rendered the Nostromo's vector landing display in "Alien"

[источник]

#generative_art

🔥5

186 viewsArtyom "avp" Poptsov, 17:47

memory heap

This media is not supported in your browser

VIEW IN TELEGRAM

#art #generative_art

Gear cube. Based on a fun tutorial by Junichiro Horikawa.

[source]

🔥3

162 viewsArtyom "avp" Poptsov, 20:54

memory heap

Выявил проблему с реализацией алгоритма Брезенхэма в Guile-PNG — в пятом октанте по ошибке выполнялось вычитание вместо деления, из-за этого угол линии был ~32 градуса вместо необходимых 30. На скриншоте показано, как я в GIMP смотрел, где появляется ошибка…

0:13

Media is too big

VIEW IN TELEGRAM

Вжух!

#generative_art

(use-modules (oop goops)
             (png)
             (png image)
             (png graphics))

(define (main args)
  "Entry point."
  (let* ((image (make <png-image>
                  #:color-type 2
                  #:bit-depth 8
                  #:width  1000
                  #:height 1000))
         (color   #vu8(255 255 255))
         (diameter 400))
    (for-each (lambda (d)
                (draw! image
                       (make <hexagon>
                         #:color (list->u8vector
                                  (list (remainder (random d) 255)
                                        (remainder (random d) 255)
                                        (remainder (random d) 255)))
                         #:center (make <point> #:x 500 #:y 500)
                         #:diameter d)))
              (iota 900 10 1))
    (let ((port (open-output-file "hex.png")))
      (scm->png image port)
      (close port))))