(define (monolith-taro-tatami)

  (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-brushes-refresh)
    (gimp-edit-stroke layer-0)
    (gimp-selection-none image)
  (gimp-displays-flush)

    (set! layer-1 (car (gimp-layer-copy layer-0 255)))
    (gimp-layer-set-name layer-1 "layer-1")
    (gimp-image-add-layer image layer-1 -1)
    (gimp-palette-set-foreground '(0 0 255)) ; blue
    (lineto layer-1 (+ margin (/ size 3)) (+ margin 0)
		 (+ margin (/ size 3)) (+ margin (/ size 24)))
    (lineto layer-1 (+ margin (/ (* size 2) 3)) (+ margin 0)
		 (+ margin (/ (* size 2) 3)) (+ margin (/ size 24)))
		; 1,2/3 chott
  (gimp-displays-flush)
;  (file-png-save 1 image layer-1 (string-append my-path "taro/prep-1.png") (string-append my-path "taro/prep-1.png") 0 9 1 0 0 0 0)

    (set! layer-2 (car (gimp-layer-copy layer-1 255)))
    (gimp-layer-set-name layer-2 "layer-2")
    (gimp-image-add-layer image layer-2 -1)
    (gimp-palette-set-foreground '(0 0 0)) ; black
    (lineto layer-2 (+ margin (/ size 6)) (+ margin 0)
		 (+ margin (/ size 6)) (+ margin size)) 
		; 1/6
  (gimp-displays-flush)
;  (file-png-save 1 image layer-2 (string-append my-path "taro/prep-2.png") (string-append my-path "taro/prep-2.png") 0 9 1 0 0 0 0)

    (set! layer-3 (car (gimp-layer-copy layer-2 255)))

    (set! layer-2-ad (car (gimp-layer-new image im-size im-size 
                     RGBA-IMAGE "layer-2-ad" 100 NORMAL-MODE)))
    (gimp-drawable-fill layer-2-ad TRANS-IMAGE-FILL)
    (gimp-image-add-layer image layer-2-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 0) (- margin (/ size 10 2))
		(/ (* size 1) 6) (/ size 10) REPLACE TRUE 0 0)
    (gimp-edit-stroke layer-2-ad)
    (gimp-rect-select image
		(+ margin 0) 0
		(/ (* size (+ 1 1)) 6) (+ margin 3) REPLACE TRUE FALSE)
    (gimp-edit-clear layer-2-ad)
		; 0/6 - 1/6(2/12)
    (gimp-ellipse-select image
		(+ margin (/ size 6)) (- margin (/ size 10 2))
		(/ (* size 1) 6) (/ size 10) REPLACE TRUE 0 0)
    (gimp-edit-stroke layer-2-ad)
    (gimp-rect-select image
		(+ margin (/ size 6) (- (/ size 12))) 0
		(/ (* size (+ 1 1)) 6) (+ margin 3) REPLACE TRUE FALSE)
    (gimp-edit-clear layer-2-ad)
		; 1/6(2/12) - 1/3
    (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-2-ad 0))
;	(string-append my-path "taro/prep-2ad.png")
;	(string-append my-path "taro/prep-2ad.png") 0 9 1 0 0 0 0)


;    (set! layer-3 (car (gimp-layer-copy layer-2 255)))
    (gimp-layer-set-name layer-3 "layer-3")
    (gimp-image-add-layer image layer-3 -1)
    (gimp-palette-set-foreground '(0 0 0)) ; black
    (lineto layer-3 (+ margin (/ (* size 7) 12)) (+ margin 0)
		 (+ margin (/ (* size 7) 12)) (+ margin size)) 
		; -5/12
  (gimp-displays-flush)
;  (file-png-save 1 image layer-3 (string-append my-path "taro/prep-3.png") (string-append my-path "taro/prep-3.png") 0 9 1 0 0 0 0)

    (set! layer-4 (car (gimp-layer-copy layer-3 255)))

    (set! layer-3-ad (car (gimp-layer-new image im-size im-size 
                     RGBA-IMAGE "layer-3-ad" 100 NORMAL-MODE)))
    (gimp-drawable-fill layer-3-ad TRANS-IMAGE-FILL)
    (gimp-image-add-layer image layer-3-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 6)) (+ margin (/ size 5))
		(/ (* size 5) 12) (/ size 10) REPLACE TRUE 0 0)
    (gimp-edit-stroke layer-3-ad)
    (gimp-rect-select image
		(+ margin (/ size 6)) (+ margin (/ size 5) (/ size 10 2))
		(/ (* size (+ 5 1)) 12) (/ size 10) REPLACE TRUE FALSE)
    (gimp-edit-clear layer-3-ad)
		; 1/6 - (-5)/12
    (gimp-ellipse-select image
		(+ margin (/ size 6) (/ (* size 5) 12)) (+ margin (/ size 5))
		(/ (* size 5) 12) (/ size 10) REPLACE TRUE 0 0)
    (gimp-edit-stroke layer-3-ad)
    (gimp-rect-select image
 (+ margin (/ size 6) (/ (* size 5) 12)) (+ margin (/ size 5) (/ size 10 2))
		(/ (* size (+ 5 1)) 12) (/ size 10) REPLACE TRUE FALSE)
    (gimp-edit-clear layer-3-ad)
		; (-5)/12 - 12/12
    (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-3-ad 0))
;	(string-append my-path "taro/prep-3ad.png")
;	(string-append my-path "taro/prep-3ad.png") 0 9 1 0 0 0 0)


;    (set! layer-4 (car (gimp-layer-copy layer-4 255)))
    (gimp-layer-set-name layer-4 "layer-4")
    (gimp-image-add-layer image layer-4 -1)
    (gimp-palette-set-foreground '(0 0 0)) ; black
    (lineto layer-4 
	(+ margin (/ size 12)) margin (+ margin (/ size 12)) (+ size margin)) 
		; 1/12
  (gimp-displays-flush)
;  (file-png-save 1 image layer-4 (string-append my-path "taro/prep-4.png") (string-append my-path "taro/prep-4.png") 0 9 1 0 0 0 0)

    (set! layer-5 (car (gimp-layer-copy layer-4 255)))

    (set! layer-4-ad (car (gimp-layer-new image im-size im-size 
                     RGBA-IMAGE "layer-4-ad" 100 NORMAL-MODE)))
    (gimp-drawable-fill layer-4-ad TRANS-IMAGE-FILL)
    (gimp-image-add-layer image layer-4-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 0) (+ margin (/ size 5))
		(/ (* size 1) 12) (/ size 12) REPLACE TRUE 0 0)
    (gimp-edit-stroke layer-4-ad)
    (gimp-rect-select image
		(+ margin 0) (+ margin (/ size 5) (/ size 12 2))
		(/ (* size (+ 1 1)) 12) (/ size 12) REPLACE TRUE FALSE)
    (gimp-edit-clear layer-4-ad)
		; 0/12 - 1/12
    (gimp-ellipse-select image
		(+ margin (/ (* size 1) 12)) (+ margin (/ size 5))
		(/ (* size 1) 12) (/ size 12) REPLACE TRUE 0 0)
    (gimp-edit-stroke layer-4-ad)
    (gimp-rect-select image
		(+ margin (/ (* size 1) 12)) (+ margin (/ size 5) (/ size 12 2))
		(/ (* size (+ 1 1)) 12) (/ size 12) REPLACE TRUE FALSE)
    (gimp-edit-clear layer-4-ad)
		; 1/12 - 2/12
    (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-4-ad 0))
;	(string-append my-path "taro/prep-4ad.png")
;	(string-append my-path "taro/prep-4ad.png") 0 9 1 0 0 0 0)


;    (set! layer-5 (car (gimp-layer-copy layer-4 255)))
    (gimp-layer-set-name layer-5 "layer-5")
    (gimp-image-add-layer image layer-5 -1)
    (gimp-palette-set-foreground '(0 0 0)) ; black
    (lineto layer-5	(+ margin (/ (* size 1) 2)) margin  
			(+ margin (/ (* size 1) 2)) (+ margin size))
		; 1/2 (6/12)
  (gimp-displays-flush)
;  (file-png-save 1 image layer-5 (string-append my-path "taro/prep-5.png") (string-append my-path "taro/prep-5.png") 0 9 1 0 0 0 0)

    (set! layer-6 (car (gimp-layer-copy layer-5 255)))

    (set! layer-5-ad (car (gimp-layer-new image im-size im-size 
                     RGBA-IMAGE "layer-5-ad" 100 NORMAL-MODE)))
    (gimp-drawable-fill layer-5-ad TRANS-IMAGE-FILL)
    (gimp-image-add-layer image layer-5-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 0) (+ margin (/ size 5))
		(/ (* size 1) 2) (/ size 10) REPLACE TRUE 0 0)
    (gimp-edit-stroke layer-5-ad)
    (gimp-rect-select image
		(+ margin 0) (+ margin (/ size 5) (/ size 10 2))
		(/ (* size (+ 6 1)) 12) (/ size 10) REPLACE TRUE FALSE)
    (gimp-edit-clear layer-5-ad)
		; 0/12 - 6/12
    (gimp-ellipse-select image
		(+ margin (/ (* size 1) 2)) (+ margin (/ size 5))
		(/ (* size 1) 2) (/ size 10) REPLACE TRUE 0 0)
    (gimp-edit-stroke layer-5-ad)
    (gimp-rect-select image
		(+ margin (/ (* size 1) 2)) (+ margin (/ size 5) (/ size 10 2))
		(/ (* size (+ 6 1)) 12) (/ size 10) REPLACE TRUE FALSE)
    (gimp-edit-clear layer-5-ad)
		; 6/12 - 12/12
    (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-5-ad 0))
;	(string-append my-path "taro/prep-5ad.png")
;	(string-append my-path "taro/prep-5ad.png") 0 9 1 0 0 0 0)


;    (set! layer-6 (car (gimp-layer-copy layer-5 255)))
    (gimp-layer-set-name layer-6 "layer-6")
    (gimp-image-add-layer image layer-6 -1)
    (gimp-palette-set-foreground '(0 0 0)) ; black

    (lineto layer-6
	 (+ margin 0) (+ margin (/ (* size (* 2 5)) 12))
	 (+ margin (/ (* size 2) 12)) (+ margin size) ) 
		; ld6:6 (5/6:1/6)

    (gimp-palette-set-foreground '(0 0 255)) ; blue
    (lineto layer-6
	 (+ margin 0) (+ margin (/ (* size 2) 12))
	 (+ margin (/ (* size 2) 12)) (+ margin 0) )
		; lu(-6):6 (-2/12:2/12)

  (gimp-displays-flush)
;  (file-png-save 1 image layer-6 (string-append my-path "taro/prep-6.png") (string-append my-path "taro/prep-6.png") 0 9 1 0 0 0 0)


    (set! layer-7 (car (gimp-layer-copy layer-6 255)))
    (gimp-layer-set-name layer-7 "layer-7")
    (gimp-image-add-layer image layer-7 -1)
    (gimp-palette-set-foreground '(0 0 0)) ; black
    (lineto layer-7 	margin (+ margin (/ (* size 2) 12))
			(+ size margin) (+ margin (/ (* size 2) 12))) 
		; u2/12
    (lineto layer-7 	margin (+ margin (/ (* size 11) 12))
			(+ size margin) (+ margin (/ (* size 11) 12))) 
		; d(11)/12
  (gimp-displays-flush)
;  (file-png-save 1 image layer-7 (string-append my-path "taro/prep-7.png") (string-append my-path "taro/prep-7.png") 0 9 1 0 0 0 0)

    (set! layer-8 (car (gimp-layer-copy layer-7 255)))
    (gimp-layer-set-name layer-8 "layer-8")
    (gimp-image-add-layer image layer-8 -1)
    (gimp-palette-set-foreground '(0 0 0)) ; black
    (lineto layer-8 	margin (+ margin (/ (* size 1) 12))
			(+ size margin) (+ margin (/ (* size 1) 12))) 
		; u1/12
  (gimp-displays-flush)
;  (file-png-save 1 image layer-8 (string-append my-path "taro/prep-8.png") (string-append my-path "taro/prep-8.png") 0 9 1 0 0 0 0)

    (set! layer-9 (car (gimp-layer-copy layer-8 255)))
    (gimp-layer-set-name layer-9 "layer-9")
    (gimp-image-add-layer image layer-9 -1)
    (gimp-palette-set-foreground '(0 0 0)) ; black
    (lineto layer-9
	 (+ margin (/ (* size 10) 12) (- 1)) (+ margin 0)
	 (+ margin size) (+ margin (/ (* size 2) 12) 1) )
		; ru(-2/12):(2/12)
    (lineto layer-9
	 (+ margin size) (+ margin (/ (* size 11) 12) (- 1))
	 (+ margin (/ (* size 11) 12) (- 1)) (+ margin size) )
		; rd(-1/12):(-1/12)
  (gimp-displays-flush)
;  (file-png-save 1 image layer-9 (string-append my-path "taro/prep-9.png") (string-append my-path "taro/prep-9.png") 0 9 1 0 0 0 0)

    (set! layer-10 (car (gimp-layer-copy layer-9 255)))
    (gimp-layer-set-name layer-10 "layer-10")
    (gimp-image-add-layer image layer-10 -1)
    (gimp-palette-set-foreground '(0 0 0)) ; black
    (lineto layer-10	(+ margin (/ (* size 10) 11) 1) margin  
			(+ margin (/ (* size 10) 11) 1) (+ size margin)) 
		; 10/11
  (gimp-displays-flush)
;  (file-png-save 1 image layer-10 (string-append my-path "taro/prep-10.png") (string-append my-path "taro/prep-10.png") 0 9 1 0 0 0 0)

    (set! layer-11 (car (gimp-layer-copy layer-10 255)))
    (gimp-layer-set-name layer-11 "layer-11")
    (gimp-image-add-layer image layer-11 -1)
    (gimp-palette-set-foreground '(0 0 0)) ; black
  ;l 
    (lineto layer-11
	 (+ margin (/ (* size 2) 12)) (+ margin (/ (* size 11) 12))
	 (+ margin (/ (* size 1) 12)) (+ margin size) ) 
		; ld(-12):12(+1/12)
    (lineto layer-11
	 (+ margin 0) (+ margin 0)
	 (+ margin (/ (* size 2) 12)) (+ margin (/ (* size 2) 12)) )
		; lu6:6 (2/12:2/12)
    (lineto layer-11
	 (+ margin 0) (+ margin (/ (* size 3) 12))
	 (+ margin (/ (* size 3) 12)) (+ margin 0) )
		; lu(-3/12:3/12)
   ;mu
    (lineto layer-11
	 (+ margin (/ (* size 5) 12)) (+ margin 0) 
	 (+ margin (/ (* size 7) 12)) (+ margin (/ (* size 2) 12)) )
		; mu(2/12) \
    (lineto layer-11
	 (+ margin (/ (* size 8) 12)) (+ margin 0) 
	 (+ margin (/ (* size 6) 12)) (+ margin (/ (* size 2) 12)) )
		; mu(2/12) /
   ;md
    (lineto layer-11
	 (+ margin (/ (* size 6) 12)) (+ margin size) 
	 (+ margin (/ (* size 7) 12)) (+ margin (/ (* size 11) 12)) )
		; md(-r/12) /
    (lineto layer-11
	 (+ margin (/ (* size 7) 12)) (+ margin size) 
	 (+ margin (/ (* size 6) 12)) (+ margin (/ (* size 11) 12)) )
		; md(-1/12) \
  ;r 
    (lineto layer-11
	 (+ margin size) (+ margin (/ size 12))
	 (+ margin (/ (* size 11) 12)) (+ margin (/ (* size 2) 12)) )
		; ru
    (lineto layer-11
	 (+ margin (/ (* size 11) 12)) (+ margin (/ (* size 11) 12))
	 (+ margin size) (+ margin size) ) 
		; rd

  (gimp-displays-flush)
  (file-png-save 1 image layer-11 (string-append my-path "taro/prep-11.png") (string-append my-path "taro/prep-11.png") 0 9 1 0 0 0 0)


    (set! layer-12 (car (gimp-layer-copy layer-11 255)))
    (gimp-layer-set-name layer-12 "layer-12")
    (gimp-image-add-layer image layer-12 -1)
    (gimp-palette-set-foreground '(0 0 0)) ; black

    (gimp-palette-set-foreground '(255 255 255)) ; white
    (lineto layer-12
	 (+ margin 0) (+ margin (/ (* size 3) 12))
	 (+ margin (/ (* size 3) 12)) (+ margin 0) )
		; lu(-3/12:3/12)
    (gimp-palette-set-foreground '(204 0 0)) ; cc-red
    (lineto-dot layer-12
	 (+ margin 0) (+ margin (/ (* size 3) 12))
	 (+ margin (/ (* size 3) 12)) (+ margin 0) )
		; lu(-3/12:3/12)

    (gimp-palette-set-foreground '(255 255 255)) ; white
    (lineto layer-12
	 (+ margin (/ (* size 10) 12) (- 1)) (+ margin 0)
	 (+ margin size) (+ margin (/ (* size 2) 12) 1) )
		; ru(-2/12):(2/12)
    (gimp-palette-set-foreground '(204 0 0)) ; cc-red
    (lineto-dot layer-12
	 (+ margin (/ (* size 10) 12) (- 1)) (+ margin 0)
	 (+ margin size) (+ margin (/ (* size 2) 12) 1) )
		; ru(-2/12):(2/12)

    (gimp-palette-set-foreground '(255 255 255)) ; white
    (lineto layer-12
	 (+ margin 0) (+ margin (/ (* size (* 2 5)) 12))
	 (+ margin (/ (* size 2) 12)) (+ margin size) ) 
		; ld6:6 (5/6:1/6)
    (gimp-palette-set-foreground '(204 0 0)) ; cc-red
    (lineto-dot layer-12
	 (+ margin 0) (+ margin (/ (* size (* 2 5)) 12))
	 (+ margin (/ (* size 2) 12)) (+ margin size) ) 
		; ld6:6 (5/6:1/6)

    (gimp-palette-set-foreground '(0 0 0)) ; black
  (gimp-displays-flush)
  (file-png-save 1 image layer-12 (string-append my-path "taro/prep-12.png") (string-append my-path "taro/prep-12.png") 0 9 1 0 0 0 0)

    (set! layer-13 (car (gimp-layer-copy layer-11 255)))
;    (set! layer-13 (car (gimp-layer-copy layer-12 255)))
    (gimp-layer-set-name layer-13 "layer-13")
    (gimp-image-add-layer image layer-13 -1)

    (gimp-palette-set-foreground '(255 255 255)) ; white
    (lineto layer-13
	 (+ margin 0) (+ margin (/ (* size 1) 12))
	 (+ margin size) (+ margin (/ (* size 1) 12)) )  
		; u1/12
    (gimp-palette-set-foreground '(204 0 0)) ; cc-red
    (lineto-dot layer-13
	 (+ margin 0) (+ margin (/ (* size 1) 12))
	 (+ margin size) (+ margin (/ (* size 1) 12)) )  
		; u1/12

    (gimp-palette-set-foreground '(255 255 255)) ; white
    (lineto layer-13
 	 (+ margin (/ (* size 1) 12)) (+ margin 0)
	 (+ margin (/ (* size 1) 12)) (+ margin size) )  
		; l1/12
    (gimp-palette-set-foreground '(204 0 0)) ; cc-red
    (lineto-dot layer-13
 	 (+ margin (/ (* size 1) 12)) (+ margin 0)
	 (+ margin (/ (* size 1) 12)) (+ margin size) )  
		; l1/12

    (gimp-palette-set-foreground '(0 0 0)) ; black
  (gimp-selection-none image)
  (gimp-displays-flush)
  (file-png-save 1 image layer-13 (string-append my-path "taro/prep-13.png") (string-append my-path "taro/prep-13.png") 0 9 1 0 0 0 0)

    (gimp-brushes-set-brush "Circle (01)")
    (gimp-brushes-refresh)

    (set! layer-14 (car (gimp-layer-copy layer-11 255)))
;    (set! layer-14 (car (gimp-layer-copy layer-13 255)))
    (gimp-layer-set-name layer-14 "layer-14")
    (gimp-image-add-layer image layer-14 -1)


    (gimp-free-select image 6 (float-array 
	(+ margin 0 (- 5)) (+ margin 0 (- 5))
	(+ margin 0) (+ margin (/ (* size 3) 12))
	(+ margin (/ (* size 3) 12)) (+ margin 0) )
	REPLACE TRUE 0 0)
		; lu(-3/12:3/12)
    (gimp-palette-set-background '(255 255 255)) ; white
    (gimp-edit-clear layer-14)
    (gimp-free-select image 6 (float-array 
	(+ margin (/ (* size 3) 12)) (+ margin (/ (* size 3) 12))
	(+ margin 0) (+ margin (/ (* size 3) 12))
	(+ margin (/ (* size 3) 12)) (+ margin 0) )
	REPLACE TRUE 0 0)
		; lu(-3/12:3/12)
    (gimp-palette-set-foreground '(0 0 0)) ; black
    (gimp-edit-stroke layer-14)
    (gimp-palette-set-foreground '(204 204 204)) ; cc-silver
    (gimp-edit-fill layer-14 FG-IMAGE-FILL) 

    (gimp-free-select image 10 (float-array 
	(+ margin (- 5)) (+ margin size 5)
	(+ margin (- 5)) (+ margin (/ (* size (* 2 5)) 12))
	(+ margin 0) (+ margin (/ (* size (* 2 5)) 12))
	(+ margin (/ (* size 2) 12)) (+ margin size)  
	(+ margin (/ (* size 2) 12)) (+ margin size 5) ) 
	REPLACE TRUE 0 0)
		; ld6:6 (5/6:1/6)
    (gimp-palette-set-background '(255 255 255)) ; white
    (gimp-edit-clear layer-14)
    (gimp-free-select image 6 (float-array 
	(+ margin (/ (* size 2) 12)) (+ margin (/ (* size (* 2 5)) 12))
	(+ margin 0) (+ margin (/ (* size (* 2 5)) 12))
	(+ margin (/ (* size 2) 12)) (+ margin size) ) 
	REPLACE TRUE 0 0)
		; ld6:6 (5/6:1/6)
    (gimp-palette-set-foreground '(0 0 0)) ; black
    (gimp-edit-stroke layer-14)
    (gimp-palette-set-foreground '(204 204 204)) ; cc-silver
    (gimp-edit-fill layer-14 FG-IMAGE-FILL) 

    (gimp-free-select image 10 (float-array 
	(+ margin size 5) (+ margin (- 5))
        (+ margin (/ (* size 10) 12) (- 1)) (+ margin (- 5))
        (+ margin (/ (* size 10) 12) (- 1)) (+ margin 0)
        (+ margin size) (+ margin (/ (* size 2) 12) 1)
        (+ margin size 5) (+ margin (/ (* size 2) 12) 1) )
	REPLACE TRUE 0 0)
		; ru(-2/12):(2/12)
    (gimp-palette-set-background '(255 255 255)) ; white
    (gimp-edit-clear layer-14)
    (gimp-free-select image 6 (float-array 
	(+ margin (/ (* size 10) 12) (- 1)) (+ margin (/ (* size 2) 12) 1)
        (+ margin (/ (* size 10) 12) (- 1)) (+ margin 0)
        (+ margin size) (+ margin (/ (* size 2) 12) 1) )
	REPLACE TRUE 0 0)
		; ru(-2/12):(2/12)
    (gimp-palette-set-foreground '(204 204 204)) ; cc-silver
    (gimp-edit-fill layer-14 FG-IMAGE-FILL) 
    (gimp-palette-set-foreground '(0 0 0)) ; black
    (gimp-edit-stroke layer-14)

  (gimp-selection-none image)
  (gimp-displays-flush)
  (file-png-save 1 image layer-14 (string-append my-path "taro/prep-14.png") (string-append my-path "taro/prep-14.png") 0 9 1 0 0 0 0)


    (set! layer-15 (car (gimp-layer-copy layer-14 255)))
;    (set! layer-15 (car (gimp-layer-copy layer-14 255)))
    (gimp-layer-set-name layer-15 "layer-15")
    (gimp-image-add-layer image layer-15 -1)

    (gimp-palette-set-foreground '(255 255 255)) ; white
    (lineto layer-15
	 (+ margin (/ (* size 2) 12)) (+ margin (/ (* size 1) 12))
	 (+ margin (/ (* size 11) 12)) (+ margin (/ (* size 1) 12)) )  
		; u1/12
    (gimp-palette-set-foreground '(204 0 0)) ; cc-red
    (lineto-dot layer-15
	 (+ margin (/ (* size 2) 12)) (+ margin (/ (* size 1) 12))
	 (+ margin (/ (* size 11) 12)) (+ margin (/ (* size 1) 12)) )  
		; u1/12

    (gimp-palette-set-foreground '(255 255 255)) ; white
    (lineto layer-15
 	 (+ margin (/ (* size 1) 12)) (+ margin (/ (* size 2) 12))
	 (+ margin (/ (* size 1) 12)) (+ margin (/ (* size 11) 12)) ) 
		; l1/12
    (gimp-palette-set-foreground '(204 0 0)) ; cc-red
    (lineto-dot layer-15
 	 (+ margin (/ (* size 1) 12)) (+ margin (/ (* size 2) 12))
	 (+ margin (/ (* size 1) 12)) (+ margin (/ (* size 11) 12)) ) 
		; l1/12

    (gimp-palette-set-foreground '(0 0 0)) ; black
   (gimp-brushes-set-brush "Circle (01)")
   (gimp-brushes-refresh)
  (gimp-selection-none image)
  (gimp-displays-flush)
  (file-png-save 1 image layer-15 (string-append my-path "taro/prep-15.png") (string-append my-path "taro/prep-15.png") 0 9 1 0 0 0 0)


    (set! layer-16 (car (gimp-layer-copy layer-14 255)))
;    (set! layer-16 (car (gimp-layer-copy layer-15 255)))
    (gimp-layer-set-name layer-16 "layer-16")
    (gimp-image-add-layer image layer-16 -1)

    (gimp-free-select image 8 (float-array 
	 (+ margin (/ (* size 11) 12)) (+ margin (- 5))
	 (+ margin (/ (* size 2) 12)) (+ margin (- 5))
	 (+ margin (/ (* size 2) 12)) (+ margin  (/ (* size 1) 12))
	 (+ margin (/ (* size 11) 12)) (+ margin (/ (* size 1) 12)) )
        REPLACE TRUE 0 0)
		; u1/12
    (gimp-palette-set-foreground '(255 255 255)) ; white
    (gimp-edit-clear layer-16)
    (gimp-free-select image 8 (float-array 
	 (+ margin (/ (* size 2) 12)) (+ margin  (/ (* size 1) 12))
	 (+ margin (/ (* size 11) 12)) (+ margin (/ (* size 1) 12))
	 (+ margin (/ (* size 10) 12)) (+ margin (/ (* size 2) 12))
	 (+ margin (/ (* size 3) 12)) (+ margin (/ (* size 2) 12)) )
        REPLACE TRUE 0 0)
		; u1/12
    (gimp-palette-set-foreground '(204 204 204)) ; cc-silver
    (gimp-edit-fill layer-16 FG-IMAGE-FILL) 
    (gimp-palette-set-foreground '(0 0 0)) ; black
    (gimp-edit-stroke layer-16)

    (gimp-free-select image 8 (float-array 
	 (+ margin (- 5)) (+ margin (/ (* size 11) 12)) 
 	 (+ margin (- 5)) (+ margin (/ (* size 2) 12))
 	 (+ margin (/ (* size 1) 12)) (+ margin (/ (* size 2) 12))
	 (+ margin (/ (* size 1) 12)) (+ margin (/ (* size 11) 12)) ) 
        REPLACE TRUE 0 0)
		; l1/12
    (gimp-palette-set-foreground '(255 255 255)) ; white
    (gimp-edit-clear layer-16)
    (gimp-free-select image 8 (float-array 
 	 (+ margin (/ (* size 1) 12)) (+ margin (/ (* size 2) 12))
	 (+ margin (/ (* size 1) 12)) (+ margin (/ (* size 11) 12)) 
	 (+ margin (/ (* size 2) 12)) (+ margin (/ (* size 10) 12)) 
 	 (+ margin (/ (* size 2) 12)) (+ margin (/ (* size 3) 12)) )
        REPLACE TRUE 0 0)
		; l1/12
    (gimp-palette-set-foreground '(204 204 204)) ; cc-silver
    (gimp-edit-fill layer-16 FG-IMAGE-FILL) 
    (gimp-palette-set-foreground '(0 0 0)) ; black
    (gimp-edit-stroke layer-16)


    (gimp-palette-set-foreground '(0 0 0)) ; black
   (gimp-brushes-set-brush "Circle (01)")
   (gimp-brushes-refresh)
  (gimp-selection-none image)
  (gimp-displays-flush)
  (file-png-save 1 image layer-16 (string-append my-path "taro/prep-16.png") (string-append my-path "taro/prep-16.png") 0 9 1 0 0 0 0)


    (set! layer-17 (car (gimp-layer-copy layer-16 255)))
;    (set! layer-17 (car (gimp-layer-copy layer-16 255)))
    (gimp-layer-set-name layer-17 "layer-17")
    (gimp-image-add-layer image layer-17 -1)
    (gimp-brushes-set-brush "Circle (01)")
    (gimp-brushes-refresh)
    (gimp-brushes-set-spacing 250)
    (gimp-palette-set-foreground '(0 0 0)) ; black
  ;l 
    (lineto-dot layer-17
         (+ margin (/ (* size 2) 12)) (+ margin (/ (* size 11) 12))
         (+ margin (/ (* size 3) 12 2)) (+ margin (/ (* size 23) 12 2)) ) 
                ; ld(-12):12(+1/12)

    (lineto-dot layer-17
         (+ margin (/ (* size 3) 12 2)) (+ margin (/ (* size 3) 12 2))
         (+ margin (/ (* size 2) 12)) (+ margin (/ (* size 2) 12)) )
                ; lu6:6 (2/12:2/12)
    (lineto-dot layer-17
         (+ margin (/ (* size 1) 12)) (+ margin (/ (* size 2) 12))
         (+ margin (/ (* size 2) 12)) (+ margin (/ (* size 2) 12)) )
    (lineto-dot layer-17
         (+ margin (/ (* size 2) 12)) (+ margin (/ (* size 2) 12))
         (+ margin (/ (* size 2) 12)) (+ margin (/ (* size 1) 12)) )
                ; lu(-3/12:3/12)
   ;mu
    (lineto-dot layer-17
         (+ margin (/ (* size 6) 12)) (+ margin (/ (* size 1) 12)) 
         (+ margin (/ (* size 7) 12)) (+ margin (/ (* size 2) 12)) )
                ; mu(2/12) \
    (lineto-dot layer-17
         (+ margin (/ (* size 7) 12)) (+ margin (/ (* size 1) 12)) 
         (+ margin (/ (* size 6) 12)) (+ margin (/ (* size 2) 12)) )
                ; mu(2/12) /
  ;r 
    (lineto-dot layer-17
         (+ margin (/ (* size 23) 12 2)) (+ margin (/ (* size 3) 12 2))
         (+ margin (/ (* size 11) 12)) (+ margin (/ (* size 2) 12)) )
                ; ru

    (gimp-palette-set-foreground '(0 0 0)) ; black
   (gimp-brushes-set-brush "Circle (01)")
   (gimp-brushes-refresh)
  (gimp-selection-none image)
  (gimp-displays-flush)
  (file-png-save 1 image layer-17 (string-append my-path "taro/prep-17.png") (string-append my-path "taro/prep-17.png") 0 9 1 0 0 0 0)

    (set! layer-18 (car (gimp-layer-copy layer-17 255)))
    (gimp-layer-set-name layer-18 "layer-18")
    (gimp-image-add-layer image layer-18 -1)
    (gimp-brushes-set-brush "Circle (01)")
    (gimp-brushes-refresh)
    (gimp-brushes-set-spacing 150)
    (gimp-palette-set-foreground '(0 0 0)) ; black
  ;l 
    (lineto-dot layer-18
         (+ margin (/ (* size 1) 12)) (+ margin (/ (* size 11) 12))
         (+ margin (/ (* size 2) 12)) (+ margin (/ (* size 11) 12)) )
                ; ld 1/12-2/12,11/12

    (lineto-dot layer-18
         (+ margin (/ (* size 3) 12)) (+ margin (/ (* size 2) 12))
         (+ margin (/ (* size 2) 12)) (+ margin (/ (* size 2) 12)) )
    (lineto-dot layer-18
         (+ margin (/ (* size 2) 12)) (+ margin (/ (* size 2) 12))
         (+ margin (/ (* size 2) 12)) (+ margin (/ (* size 3) 12)) )
                ; lu(-3/12:3/12 - (2/12,2/12))
   ;mu
    (lineto-dot layer-18
         (+ margin (/ (* size 6) 12)) (+ margin (/ (* size 1) 12)) 
         (+ margin (/ (* size 6) 12)) (+ margin (/ (* size 2) 12)) )
                ; mu(6/12) \
    (lineto-dot layer-18
         (+ margin (/ (* size 7) 12)) (+ margin (/ (* size 1) 12)) 
         (+ margin (/ (* size 7) 12)) (+ margin (/ (* size 2) 12)) )
                ; mu(7/12) /
  ;r 
    (lineto-dot layer-18
         (+ margin (/ (* size 11) 12)) (+ margin (/ (* size 1) 12))
         (+ margin (/ (* size 11) 12)) (+ margin (/ (* size 2) 12)) )
                ; ru

    (gimp-palette-set-foreground '(0 0 0)) ; black
   (gimp-brushes-set-brush "Circle (01)")
   (gimp-brushes-refresh)
  (gimp-selection-none image)
  (gimp-displays-flush)
  (file-png-save 1 image layer-18 (string-append my-path "taro/prep-18.png") (string-append my-path "taro/prep-18.png") 0 9 1 0 0 0 0)


    (set! layer-19 (car (gimp-layer-copy layer-18 255)))
    (gimp-layer-set-name layer-19 "layer-19")
    (gimp-image-add-layer image layer-19 -1)
    (gimp-brushes-set-brush "Circle (01)")
    (gimp-brushes-refresh)
    (gimp-brushes-set-spacing 150)
    (gimp-palette-set-foreground '(0 0 0)) ; black

 ;rd
    (gimp-free-select image 10 (float-array 
        (+ margin (/ (* size 12) 12) (+ 5)) (+ margin (/ (* size 11) 12))
        (+ margin (/ (* size 12) 12) (- 0)) (+ margin (/ (* size 11) 12))
        (+ margin (/ (* size 11) 12) (- 0)) (+ margin size)
        (+ margin (/ (* size 11) 12) (- 0)) (+ margin size 5)
        (+ margin (/ (* size 12) 12) (+ 5)) (+ margin (/ (* size 12) 12) 5) )
	REPLACE TRUE 0 0)
		; ru(-2/12):(2/12)
    (gimp-palette-set-background '(255 255 255)) ; white
    (gimp-edit-clear layer-19)
    (gimp-free-select image 6 (float-array 
        (+ margin (/ (* size 11) 12) (- 0)) (+ margin size)
        (+ margin (/ (* size 12) 12) (- 0)) (+ margin (/ (* size 11) 12))
        (+ margin (/ (* size 11) 12) (- 0)) (+ margin (/ (* size 11) 12)) )
	REPLACE TRUE 0 0)
		; ru(-2/12):(2/12)
    (gimp-palette-set-foreground '(204 204 204)) ; cc-silver
    (gimp-edit-fill layer-19 FG-IMAGE-FILL) 
    (gimp-palette-set-foreground '(0 0 0)) ; black
    (gimp-edit-stroke layer-19)

  ;rd 
    (gimp-palette-set-foreground '(0 0 0)) ; black
    (gimp-brushes-set-brush "Circle (01)")
    (gimp-brushes-refresh)
    (gimp-brushes-set-spacing 250)
    (lineto-dot layer-19
         (+ margin (/ (* size 11) 12)) (+ margin (/ (* size 11) 12))
         (+ margin (/ (* size 23) 12 2)) (+ margin (/ (* size 23) 12 2)) )
                ; rd

    (gimp-palette-set-foreground '(0 0 0)) ; black
   (gimp-brushes-set-brush "Circle (01)")
   (gimp-brushes-refresh)
  (gimp-selection-none image)
  (gimp-displays-flush)
  (file-png-save 1 image layer-19 (string-append my-path "taro/prep-19.png") (string-append my-path "taro/prep-19.png") 0 9 1 0 0 0 0)




  (gimp-brushes-set-brush "Circle (01)")
  (gimp-brushes-refresh)
  (gimp-selection-none image)
  (gimp-displays-flush)

  (gimp-palette-set-background old-bg)
  (print layer-10)
  (print image)

;  (file-png-save 1 image layer-13 "taro/prep.png" "taro/prep.png" 0 9 1 0 0 0 0)
  (file-png-save 1 image layer-13 (string-append my-path "taro/tarofold.png") (string-append my-path "taro/tarofold.png") 0 9 1 0 0 0 0)
  (gimp-convert-indexed image 2 WEB-PALETTE 0 0 0 "")
;  (file-gif-save 1 image layer-13 ""taro/prep.gif" "taro/prep.gif" 0 1 300 0)
  (file-gif-save 1 image layer-13 (string-append my-path "taro/tarofold.gif") (string-append my-path "taro/tarofold.gif") 0 1 500 2)

  image
 ) 

(script-fu-register "monolith-taro-tatami" ; a name of the function
		    "<Toolbox>/Xtns/Script-Fu/MyStuff/Taro's Tatanikomi" ; where in the menu
		    "Create Monolithic Image (multi-layers). Taro said that do not cut but fold 1/12 . And save files taro/prep[\d].(png|gif)." ; explanation for the function
		    "HShimura 0" ; written by
		    "HShimrua" ; copyright
		    "July 2001" ; date
		    "" ; mode when the function do
 )