From f2a8d675213868b39dc16069885328a29c6134c0 Mon Sep 17 00:00:00 2001 From: "Artyom V. Poptsov" Date: Sun, 20 Aug 2023 12:37:23 +0300 Subject: [PATCH] sierpinski-carpet-animation.scm.in: Update commentaries * examples/sierpinski-carpet-animation.scm.in: Update commentaries. --- examples/sierpinski-carpet-animation.scm.in | 30 +++++++++++++++++++-- 1 file changed, 28 insertions(+), 2 deletions(-) diff --git a/examples/sierpinski-carpet-animation.scm.in b/examples/sierpinski-carpet-animation.scm.in index 671de71..ec2cddb 100644 --- a/examples/sierpinski-carpet-animation.scm.in +++ b/examples/sierpinski-carpet-animation.scm.in @@ -2,14 +2,40 @@ -L modules -e main -s !# +;;; sierpinski-carpet-animation.scm.in -- Guile-PNG fractal drawing example. + +;; Copyright (C) 2022 Artyom V. Poptsov +;; +;; This program is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. +;; +;; The program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. +;; +;; You should have received a copy of the GNU General Public License +;; along with the program. If not, see . + + +;;; Commentary: + +;; A Scheme program that uses Guile-PNG to create a sequence of images that +;; can be assembled into a "Sierpinski Carpet Zoom" animation. +;; ;; Usage: ;; ./sierpinski-carpet-animation.scm ;; ;; Usage example: ;; ./sierpinski-carpet-animation.scm 500 out -;; cd +;; cd out ;; convert -delay 1 -loop 0 *.png sierpinski-carpet-animation.gif + +;;; Code: + (use-modules (oop goops) (png) (png image) @@ -111,4 +137,4 @@ orig-size 10)))) -;;; sierpinski-triangle.scm.in ends here. +;;; sierpinski-triangle-animation.scm.in ends here.