牌の画像のリサイズを取り消し

This reverts commit 6815f1093de735eeb359876866b8e53f80883aac.

Conflicts:

	graphic/scenes/table.cpp
拡大・縮小への対応
牌の画像にパディングを追加

(define (sparse-vert img drawable)
	(do ((j 12 (- j 1))) ((< j 0) TRUE)
		(do ((i 29 (- i 1))) ((< i 0) TRUE)
			(gimp-rect-select img (* i 32) (* j 54) 32 54 2 FALSE 0)
			(let
				(
					(layer (gimp-selection-float drawable 0 0))
				)
				(gimp-layer-translate (car layer) i j)
				(gimp-floating-sel-anchor (car layer))
			)
		)
	)
	(gimp-selection-none img)
)
(define (sparse-horiz img drawable)
	(do ((j 12 (- j 1))) ((< j 0) TRUE)
		(do ((i 19 (- i 1))) ((< i 0) TRUE)
			(gimp-rect-select img (* i 46) (+ (* j 41) 702) 46 41 2 FALSE 0)
			(let
				(
					(layer (gimp-selection-float drawable 0 0))
				)
				(gimp-layer-translate (car layer) i (+ 13 j))
				(gimp-floating-sel-anchor (car layer))
			)
		)
	)
	(gimp-selection-none img)
)
(define (sparse-side img drawable)
	(do ((i 1 (- i 1))) ((< i 0) TRUE)
		(gimp-rect-select img (+ (* i 20) 920) 702 20 54 2 FALSE 0)
		(let
			(
				(layer (gimp-selection-float drawable 0 0))
			)
			(gimp-layer-translate (car layer) (+ 20 i) 13)
			(gimp-floating-sel-anchor (car layer))
		)
	)
	(gimp-selection-none img)
)
(define (clear-right-down img drawable)
	(gimp-rect-select img 920 756 40 478 2 FALSE 0)
	(let
		(
			(layer (gimp-selection-float drawable 0 0))
		)
		(gimp-floating-sel-remove (car layer))
	)
	(gimp-selection-none img)
)

(define (sparse-pic img drawable)
	(gimp-image-undo-group-start img)
	(clear-right-down img drawable)
	(sparse-side img drawable)
	(sparse-horiz img drawable)
	(sparse-vert img drawable)
	(gimp-image-undo-group-end img)
	(gimp-drawable-update
		drawable 0 0
		(car (gimp-drawable-width drawable))
		(car (gimp-drawable-height drawable))
	)
	(gimp-displays-flush)
)

(script-fu-register
	"sparse-pic"
	"Sparse"
	""
	""
	""
	""
	"RGB*"
	SF-IMAGE "Image" 0
	SF-DRAWABLE "Drawable" 0
)
(script-fu-menu-register
	"sparse-pic"
	"<Image>/Script-Fu/Test"
)
ベースサイズ変更
牌のパディングとレンダリングを調整

(define padding 3)

(define (sparse-vert img drawable)
	(do ((j 12 (- j 1))) ((< j 0) TRUE)
		(do ((i 29 (- i 1))) ((< i 0) TRUE)
			(gimp-rect-select img (* i 32) (* j 54) 32 54 2 FALSE 0)
			(let
				(
					(layer (gimp-selection-float drawable 0 0))
				)
				(gimp-layer-translate (car layer) (* padding i) (* padding j))
				(gimp-floating-sel-anchor (car layer))
			)
		)
	)
	(gimp-selection-none img)
)
(define (sparse-horiz img drawable)
	(do ((j 12 (- j 1))) ((< j 0) TRUE)
		(do ((i 19 (- i 1))) ((< i 0) TRUE)
			(gimp-rect-select img (* i 46) (+ (* j 41) 702) 46 41 2 FALSE 0)
			(let
				(
					(layer (gimp-selection-float drawable 0 0))
				)
				(gimp-layer-translate (car layer) (* padding i) (* padding (+ 13 j)))
				(gimp-floating-sel-anchor (car layer))
			)
		)
	)
	(gimp-selection-none img)
)
(define (sparse-side img drawable)
	(do ((i 1 (- i 1))) ((< i 0) TRUE)
		(gimp-rect-select img (+ (* i 20) 920) 702 20 54 2 FALSE 0)
		(let
			(
				(layer (gimp-selection-float drawable 0 0))
			)
			(gimp-layer-translate (car layer) (* padding (+ 20 i)) (* padding 13))
			(gimp-floating-sel-anchor (car layer))
		)
	)
	(gimp-selection-none img)
)
(define (clear-right-down img drawable)
	(gimp-rect-select img 920 756 40 478 2 FALSE 0)
	(let
		(
			(layer (gimp-selection-float drawable 0 0))
		)
		(gimp-floating-sel-remove (car layer))
	)
	(gimp-selection-none img)
)

(define (sparse-pic img drawable)
	(gimp-image-undo-group-start img)
	(clear-right-down img drawable)
	(gimp-layer-resize
		drawable
		(+ (car (gimp-drawable-width drawable)) (* padding 30))
		(+ (car (gimp-drawable-height drawable)) (* padding 26))
		0 0
	)
	(gimp-image-resize-to-layers img)
	(sparse-side img drawable)
	(sparse-horiz img drawable)
	(sparse-vert img drawable)
	(gimp-image-undo-group-end img)
	(gimp-drawable-update
		drawable 0 0
		(car (gimp-drawable-width drawable))
		(car (gimp-drawable-height drawable))
	)
	(gimp-displays-flush)
)

(script-fu-register
	"sparse-pic"
	"Sparse"
	""
	""
	""
	""
	"RGB*"
	SF-IMAGE "Image" 0
	SF-DRAWABLE "Drawable" 0
)
(script-fu-menu-register
	"sparse-pic"
	"<Image>/Script-Fu/Test"
)
Merge branch 'sparse' into 2.0

Conflicts:
	graphic/loadtex.cpp