(define (monolith-expand-from-1yb11-ad) (set! size 200) (set! margin 10) (set! im-size (+ size (* 2 margin))) (set! size-m-ed (+ size margin)) (set! old-bg (car (gimp-palette-get-background))) (set! image (car (gimp-image-new im-size im-size RGB))) ; (set! image (car (gimp-image-new im-size im-size INDEXED))) (set! layer-0 (car (gimp-layer-new image im-size im-size RGBA-IMAGE "layer-0" 100 NORMAL-MODE))) ; INDEXEDA-IMAGE "layer-0" 100 NORMAL-MODE))) (gimp-layer-add-alpha layer-0) (gimp-image-add-layer image layer-0 0) (gimp-drawable-fill layer-0 TRANS-IMAGE-FILL) (gimp-display-new image) (gimp-rect-select image margin margin size size REPLACE TRUE FALSE) ; (gimp-palette-set-background '(153 255 255)) ; paleblue (gimp-palette-set-background '(255 255 255)) ; white (gimp-edit-fill layer-0 BG-IMAGE-FILL) (gimp-palette-set-background '(0 0 0)) ; black (gimp-brushes-set-brush "Circle (01)") (gimp-edit-stroke layer-0) (gimp-selection-none image) (set! layer-1 (car (gimp-layer-new image im-size im-size RGBA-IMAGE "layer-1" 100 NORMAL-MODE))) (gimp-drawable-fill layer-1 TRANS-IMAGE-FILL) (gimp-image-add-layer image layer-1 -1) (gimp-palette-set-foreground '(0 0 0)) ; black (lineto layer-1 (+ margin (/ (* size 10) 11)) margin (+ margin (/ (* size 10) 11)) (+ size margin)) ; r10/11 (gimp-displays-flush) (file-png-save 1 image (car (gimp-image-merge-down image layer-1 0)) (string-append my-path "from1yb11/exp-1.png") (string-append my-path "from1yb11/exp-1.png") 0 9 1 0 0 0 0) (set! layer-2 (car (gimp-layer-new image im-size im-size RGBA-IMAGE "layer-2" 100 NORMAL-MODE))) (gimp-drawable-fill layer-2 TRANS-IMAGE-FILL) (gimp-image-add-layer image layer-2 -1) (gimp-palette-set-foreground '(0 0 0)) ; black (lineto layer-2 (+ margin (/ (* size 10) 11)) (+ margin (/ (* size 10) 11)) (+ margin size) (+ margin size)) ; rd1:1 (gimp-displays-flush) (file-png-save 1 image (car (gimp-image-merge-down image layer-2 0)) (string-append my-path "from1yb11/exp-2.png") (string-append my-path "from1yb11/exp-2.png") 0 9 1 0 0 0 0) (set! layer-3 (car (gimp-layer-new image im-size im-size RGBA-IMAGE "layer-3" 100 NORMAL-MODE))) (gimp-drawable-fill layer-3 TRANS-IMAGE-FILL) (gimp-image-add-layer image layer-3 -1) (gimp-palette-set-foreground '(0 0 0)) ; black (lineto layer-3 margin (+ margin (/ (* size 10) 11)) (+ margin size) (+ margin (/ (* size 10) 11))) ; d10/11 (gimp-displays-flush) (file-png-save 1 image (car (gimp-image-merge-down image layer-3 0)) (string-append my-path "from1yb11/exp-3.png") (string-append my-path "from1yb11/exp-3.png") 0 9 1 0 0 0 0) (set! layer-4 (car (gimp-layer-new image im-size im-size RGBA-IMAGE "layer-4" 100 NORMAL-MODE))) (gimp-drawable-fill layer-4 TRANS-IMAGE-FILL) (gimp-image-add-layer image layer-4 -1) (gimp-palette-set-foreground '(0 0 0)) ; black (lineto layer-4 (+ margin (/ (* size 10) 11)) (+ margin (/ (* size 1) 11)) (+ margin size) (+ margin 0)) ; ru1:1 (gimp-displays-flush) (file-png-save 1 image (car (gimp-image-merge-down image layer-4 0)) (string-append my-path "from1yb11/exp-4.png") (string-append my-path "from1yb11/exp-4.png") 0 9 1 0 0 0 0) (set! layer-5 (car (gimp-layer-new image im-size im-size RGBA-IMAGE "layer-5" 100 NORMAL-MODE))) (gimp-drawable-fill layer-5 TRANS-IMAGE-FILL) (gimp-image-add-layer image layer-5 -1) (gimp-palette-set-foreground '(0 0 0)) ; black (lineto layer-5 margin (+ margin (/ (* size 1) 11)) (+ margin size) (+ margin (/ (* size 1) 11))) ; u1/11 (gimp-displays-flush) (file-png-save 1 image (car (gimp-image-merge-down image layer-5 0)) (string-append my-path "from1yb11/exp-5.png") (string-append my-path "from1yb11/exp-5.png") 0 9 1 0 0 0 0) (set! layer-6 (car (gimp-layer-new image im-size im-size RGBA-IMAGE "layer-6" 100 NORMAL-MODE))) (gimp-drawable-fill layer-6 TRANS-IMAGE-FILL) (gimp-image-add-layer image layer-6 -1) (gimp-palette-set-foreground '(0 0 0)) ; black (lineto layer-6 (+ margin (/ (* size 1) 11)) (+ margin (/ (* size 1) 11)) (+ margin 0) (+ margin 0)) ; lu1:1 (gimp-displays-flush) (file-png-save 1 image (car (gimp-image-merge-down image layer-6 0)) (string-append my-path "from1yb11/exp-6.png") (string-append my-path "from1yb11/exp-6.png") 0 9 1 0 0 0 0) (set! layer-7 (car (gimp-layer-new image im-size im-size RGBA-IMAGE "layer-7" 100 NORMAL-MODE))) (gimp-drawable-fill layer-7 TRANS-IMAGE-FILL) (gimp-image-add-layer image layer-7 -1) (gimp-palette-set-foreground '(0 0 0)) ; black (lineto layer-7 (+ margin (/ (* size 1) 11)) (+ margin (/ (* size 10) 11)) (+ margin 0) (+ margin size)) ; ld1:1 (gimp-displays-flush) (file-png-save 1 image (car (gimp-image-merge-down image layer-7 0)) (string-append my-path "from1yb11/exp-7.png") (string-append my-path "from1yb11/exp-7.png") 0 9 1 0 0 0 0) (set! layer-8 (car (gimp-layer-new image im-size im-size RGBA-IMAGE "layer-8" 100 NORMAL-MODE))) (gimp-drawable-fill layer-8 TRANS-IMAGE-FILL) (gimp-image-add-layer image layer-8 -1) (gimp-palette-set-foreground '(0 0 0)) ; black (lineto layer-8 (+ margin (/ (* size 1) 11)) margin (+ margin (/ (* size 1) 11)) (+ margin size)) ; l1/11 (gimp-displays-flush) (file-png-save 1 image (car (gimp-image-merge-down image layer-8 0)) (string-append my-path "from1yb11/exp-8.png") (string-append my-path "from1yb11/exp-8.png") 0 9 1 0 0 0 0) (set! layer-9 (car (gimp-layer-new image im-size im-size RGBA-IMAGE "layer-9" 100 NORMAL-MODE))) (gimp-drawable-fill layer-9 TRANS-IMAGE-FILL) (gimp-image-add-layer image layer-9 -1) (gimp-palette-set-foreground '(0 0 0)) ; black (lineto layer-9 margin (+ margin (/ (* size 6) 11)) (+ margin size) (+ margin (/ (* size 6) 11))) ; u6/11 (gimp-displays-flush) (file-png-save 1 image (car (gimp-image-merge-down image layer-9 0)) (string-append my-path "from1yb11/exp-9.png") (string-append my-path "from1yb11/exp-9.png") 0 9 1 0 0 0 0) (set! layer-9-ad (car (gimp-layer-new image im-size im-size RGBA-IMAGE "layer-9-ad" 100 NORMAL-MODE))) (gimp-drawable-fill layer-9-ad TRANS-IMAGE-FILL) (gimp-image-add-layer image layer-9-ad -1) (gimp-palette-set-foreground '(204 0 0)) ; cc-red (gimp-brushes-set-brush "Circle (01)") (gimp-brushes-refresh) (gimp-brushes-set-spacing 300) (gimp-ellipse-select image (+ margin (/ size 5)) (+ margin (/ (* size 1) 11)) (/ size 10) (/ (* size 5) 11) REPLACE TRUE 0 0) (gimp-edit-stroke layer-9-ad) (gimp-rect-select image (+ margin (/ size 5) (/ size 10 2)) (+ margin 0) (/ size 10) (/ (* size (+ 6 1)) 11) REPLACE TRUE FALSE) (gimp-edit-clear layer-9-ad) ; 1/11 - 6/11 (gimp-ellipse-select image (+ margin (/ size 5)) (+ margin (/ (* size 6) 11)) (/ size 10) (/ (* size 5) 11) REPLACE TRUE 0 0) (gimp-edit-stroke layer-9-ad) (gimp-rect-select image (+ margin (/ size 5) (/ size 10 2)) (+ margin (/ (* size 6) 11)) (/ size 10) (/ (* size (+ 6 1)) 11) REPLACE TRUE FALSE) (gimp-edit-clear layer-9-ad) ; 6/11 - 11/11 (gimp-brushes-set-brush "Circle (01)") (gimp-brushes-refresh) (gimp-selection-none image) (gimp-displays-flush) (file-png-save 1 image (car (gimp-image-merge-down image layer-9-ad 0)) (string-append my-path "from1yb11/exp-9ad.png") (string-append my-path "from1yb11/exp-9ad.png") 0 9 1 0 0 0 0) (set! layer-10 (car (gimp-layer-new image im-size im-size RGBA-IMAGE "layer-10" 100 NORMAL-MODE))) (gimp-drawable-fill layer-10 TRANS-IMAGE-FILL) (gimp-image-add-layer image layer-10 -1) (gimp-palette-set-foreground '(0 0 0)) ; black (lineto layer-10 margin (+ margin (/ (* size 5) 11)) (+ margin size) (+ margin (/ (* size 5) 11))) ; u5/11 (gimp-displays-flush) (file-png-save 1 image (car (gimp-image-merge-down image layer-10 0)) (string-append my-path "from1yb11/exp-10.png") (string-append my-path "from1yb11/exp-10.png") 0 9 1 0 0 0 0) (set! layer-10-ad (car (gimp-layer-new image im-size im-size RGBA-IMAGE "layer-10-ad" 100 NORMAL-MODE))) (gimp-drawable-fill layer-10-ad TRANS-IMAGE-FILL) (gimp-image-add-layer image layer-10-ad -1) (gimp-palette-set-foreground '(204 0 0)) ; cc-red (gimp-brushes-set-brush "Circle (01)") (gimp-brushes-refresh) (gimp-brushes-set-spacing 300) (gimp-ellipse-select image (+ margin (/ size 3)) (+ margin (/ (* size 0) 11)) (/ size 10) (/ (* size 5) 11) REPLACE TRUE 0 0) (gimp-edit-stroke layer-10-ad) (gimp-rect-select image (+ margin (/ size 3) (/ size 10 2)) (+ margin 0) (/ size 10) (/ (* size (+ 6 1)) 11) REPLACE TRUE FALSE) (gimp-edit-clear layer-10-ad) ; 1/11 - 6/11 (gimp-ellipse-select image (+ margin (/ size 3)) (+ margin (/ (* size 5) 11)) (/ size 10) (/ (* size 5) 11) REPLACE TRUE 0 0) (gimp-edit-stroke layer-10-ad) (gimp-rect-select image (+ margin (/ size 3) (/ size 10 2)) (+ margin (/ (* size 4) 11)) (/ size 10) (/ (* size (+ 6 1)) 11) REPLACE TRUE FALSE) (gimp-edit-clear layer-10-ad) ; 6/11 - 11/11 (gimp-brushes-set-brush "Circle (01)") (gimp-brushes-refresh) (gimp-selection-none image) (gimp-displays-flush) (file-png-save 1 image (car (gimp-image-merge-down image layer-10-ad 0)) (string-append my-path "from1yb11/exp-10ad.png") (string-append my-path "from1yb11/exp-10ad.png") 0 9 1 0 0 0 0) (set! layer-11 (car (gimp-layer-new image im-size im-size RGBA-IMAGE "layer-11" 100 NORMAL-MODE))) (gimp-drawable-fill layer-11 TRANS-IMAGE-FILL) (gimp-image-add-layer image layer-11 -1) (gimp-palette-set-foreground '(0 0 0)) ; black (lineto layer-11 (+ margin size) (+ margin (/ (* size 10) 11)) (+ margin (/ (* size 10) 11)) (+ margin size)) ; rd/ (lineto layer-11 (+ margin size) (+ margin (/ (* size 1) 11)) (+ margin (/ (* size 10) 11)) (+ margin 0)) ; ru\ (lineto layer-11 (+ margin (/ (* size 1) 11)) (+ margin size) (+ margin 0) (+ margin (/ (* size 10) 11))) ; ld\ (lineto layer-11 (+ margin (/ (* size 1) 11)) (+ margin 0) (+ margin 0) (+ margin (/ (* size 1) 11))) ; lu/ (gimp-displays-flush) (file-png-save 1 image (car (gimp-image-merge-down image layer-11 0)) (string-append my-path "from1yb11/exp-11.png") (string-append my-path "from1yb11/exp-11.png") 0 9 1 0 0 0 0) (set! layer-12 (car (gimp-layer-new image im-size im-size RGBA-IMAGE "layer-12" 100 NORMAL-MODE))) (gimp-drawable-fill layer-12 TRANS-IMAGE-FILL) (gimp-image-add-layer image layer-12 -1) (gimp-palette-set-foreground '(0 0 0)) ; black (lineto layer-12 (+ margin (/ (* size 10) 11)) (+ margin (/ (* size 6) 11)) (+ margin size) (+ margin (/ (* size 5) 11))) ; rc/ (lineto layer-12 (+ margin (/ (* size 10) 11)) (+ margin (/ (* size 5) 11)) (+ margin size) (+ margin (/ (* size 6) 11))) ; rc\ (lineto layer-12 (+ margin (/ (* size 1) 11)) (+ margin (/ (* size 6) 11)) (+ margin 0) (+ margin (/ (* size 5) 11))) ; lc\ (lineto layer-12 (+ margin (/ (* size 1) 11)) (+ margin (/ (* size 5) 11)) (+ margin 0) (+ margin (/ (* size 6) 11))) ; lc/ (gimp-displays-flush) (file-png-save 1 image (car (gimp-image-merge-down image layer-12 0)) (string-append my-path "from1yb11/exp-12.png") (string-append my-path "from1yb11/exp-12.png") 0 9 1 0 0 0 0) (set! layer-13 (car (gimp-layer-new image im-size im-size RGBA-IMAGE "layer-13" 100 NORMAL-MODE))) (gimp-drawable-fill layer-13 TRANS-IMAGE-FILL) (gimp-image-add-layer image layer-13 -1) (gimp-palette-set-foreground '(0 0 0)) ; black (gimp-displays-flush) (file-png-save 1 image (car (gimp-image-merge-down image layer-13 0)) (string-append my-path "from1yb11/exp-13.png") (string-append my-path "from1yb11/exp-13.png") 0 9 1 0 0 0 0) (gimp-selection-none image) ; (gimp-display-new image) (gimp-displays-flush) (gimp-palette-set-background old-bg) ; (print image) (gimp-convert-indexed image 2 WEB-PALETTE 0 0 0 "") ; (file-gif-save 1 image layer-13 "monoexpani.gif" "monoexpani.gif" 0 1 300 0) (file-gif-save 1 image layer-13 (string-append my-path "from1yb11/monoexp.gif") (string-append my-path "from1yb11/monoexp.gif") 0 1 300 0) ; (file-png-save 1 image (car (gimp-image-merge-visible-layers image 0)) "monoexp.png" "monoexp.png" 0 9 1 0 0 0 0) ; (file-png-save 1 image (car (gimp-image-merge-visible-layers image 0)) (string-append my-path "from1yb11/monoexp.png") (string-append my-path "from1yb11/monoexp.png") 0 9 1 0 0 0 0) ; (file-png-save 1 image layer-0 (string-append my-path "from1yb11/monoexp.png") (string-append my-path "from1yb11/monoexp.png") 0 9 1 0 0 0 0) image (monolith-expand-from-1yb11) ) (script-fu-register "monolith-expand-from-1yb11-ad" ; a name of the function "/Xtns/Script-Fu/MyStuff/Expand from 1yb11 -ad" ; where in the menu "Create Monolithic Image (Expansion). It expand from only 1/11 folded paper to the Monolith(folding) expansion. And save files monoexp.png, monoexpani.gif(animation)." ; explanation for the function "HShimura 0" ; written by "HShimrua" ; copyright "July 2001" ; date "" ; mode when the function do )