diff --git a/markdown2svg.cabal b/markdown2svg.cabal
--- a/markdown2svg.cabal
+++ b/markdown2svg.cabal
@@ -2,7 +2,7 @@
 cabal-version:	>=1.8
 
 name:		markdown2svg
-version:	0.0.1.22
+version:	0.0.1.23
 stability:	Experimental
 author:		Yoshikuni Jujo <PAF01143@nifty.ne.jp>
 maintainer:	Yoshikuni Jujo <PAF01143@nifty.ne.jp>
@@ -31,7 +31,7 @@
 source-repository	this
   type:		git
   location:	git://github.com/YoshikuniJujo/markdown2svg.git
-  tag:		0.0.1.22
+  tag:		0.0.1.23
 
 executable markdown2svg
   hs-source-dirs:	src
diff --git a/src/SVG.hs b/src/SVG.hs
--- a/src/SVG.hs
+++ b/src/SVG.hs
@@ -59,7 +59,7 @@
 normalSep = (* (4 / 3)) <$> normal
 
 code, codeSep :: Double -> Double
-code = (70 *)
+code = (65 *)
 codeSep = (* (4 / 3)) <$> code
 
 lineChars :: Int
@@ -201,8 +201,13 @@
 codeToSVGData _ _ h [] = (h, [])
 codeToSVGData cf r h (s : ss) = (h', l : svgs)
 	where
-	l = Text (TopLeft (codeLeftMargin r) (h + code r)) (code r) (ColorName "black") cf s
+	l = Text
+		(TopLeft
+			(codeLeftMargin r + (code r) * spaces)
+			(h + code r))
+		(code r) (ColorName "black") cf s
 	(h', svgs) = codeToSVGData cf r (h + codeSep r) ss
+	spaces = (* (123 / 200)) $ fromIntegral $ length $ takeWhile (== ' ') s
 
 addChapters :: [Maybe Int] -> [Text] -> [Text]
 addChapters _ [] = []