diff --git a/LICENSE b/LICENSE
new file mode 100644
--- /dev/null
+++ b/LICENSE
@@ -0,0 +1,27 @@
+Copyright (c) 2011, Yoshikuni Jujo
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+  * Redistributions of source code must retain the above copyright notice,
+    this list of conditions and the following disclaimer.
+
+  * Redistributions in binary form must reproduce the above copyright
+    notice, this list of conditions and the following disclaimer in the
+    documentation and/or other materials provided with the distribution.
+
+  * Neither the name of the Yoshikuni Jujo nor the names of its
+    contributors may be used to endorse or promote products derived from
+    this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
+THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ARE DISCLAIMED. IN NO EVEN SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
diff --git a/Setup.hs b/Setup.hs
new file mode 100644
--- /dev/null
+++ b/Setup.hs
@@ -0,0 +1,3 @@
+import Distribution.Simple
+
+main = defaultMain
diff --git a/src/Text/XML/YJSVG.hs b/src/Text/XML/YJSVG.hs
new file mode 100644
--- /dev/null
+++ b/src/Text/XML/YJSVG.hs
@@ -0,0 +1,190 @@
+module Text.XML.YJSVG (
+  showSVG
+, SVG(..)
+, Transform(..)
+, Color(..)
+, yjsvgVersion
+) where
+
+import Text.XML.HaXml(AttValue(..), QName(..), Prolog(..),
+	EncodingDecl(..), XMLDecl(..), SystemLiteral(..), PubidLiteral(..),
+	ExternalID(..), DocTypeDecl(..), Misc(..), Element(..), Content(..),
+	Document(..))
+import Text.XML.HaXml.Pretty
+import Data.Word(Word8)
+
+yjsvgVersion :: (Int, String)
+yjsvgVersion = (1, "0.1.6")
+
+data SVG   = Line Double Double Double Double Color Double |
+             Polyline [ ( Double, Double ) ] Color Color Double |
+             Rect Double Double Double Double Double Color Color |
+	     Circle Double Double Double Color |
+             Text Double Double Double Color String |
+	     Image Double Double Double Double FilePath |
+	     Group [ Transform ] [ SVG ]
+data Color
+	= ColorName{
+		colorName :: String
+	 }
+	| RGB {
+		colorRed :: Word8,
+		colorGreen ::  Word8,
+		colorBlue ::  Word8
+	 }
+
+mkColorStr :: Color -> String
+mkColorStr ColorName{colorName = n} = n
+mkColorStr RGB{colorRed = r, colorGreen = g, colorBlue = b} =
+	"rgb(" ++ show r ++ "," ++ show g ++ "," ++ show b ++ ")"
+
+data Transform = Matrix Double Double Double Double Double Double |
+                 Translate Double Double |
+		 Scale Double Double |
+		 Rotate Double (Maybe (Double, Double)) |
+		 SkewX Double |
+		 SkewY Double
+
+showTrans :: Transform -> String
+showTrans (Translate tx ty) = "translate(" ++ show tx ++ "," ++ show ty ++ ")"
+showTrans (Scale sx sy) = "scale(" ++ show sx ++ "," ++ show sy ++ ")"
+showTrans _ = error "not implemented yet"
+
+-- instance Show [ SVG ] where
+--  show = showSVG
+
+showSVG :: Double -> Double -> [ SVG ] -> String
+showSVG w h = show . document . svgToXml w h
+
+svgToElem :: SVG -> Element ()
+svgToElem (Line x1 y1 x2 y2 color lineWidth)
+  = Elem (N "line") [
+       ( N "x1", AttValue [ Left $ show x1 ] )
+     , ( N "y1", AttValue [ Left $ show y1 ] )
+     , ( N "x2", AttValue [ Left $ show x2 ] )
+     , ( N "y2", AttValue [ Left $ show y2 ] )
+     , ( N "stroke", AttValue [ Left $ mkColorStr color ] )
+     , ( N "stroke-width", AttValue [ Left $ show lineWidth ] )
+     ] []
+
+svgToElem (Polyline points fillColor lineColor lineWidth)
+  = Elem (N "polyline") [
+       ( N "points", AttValue [ Left $ pointsToAttVal points ] )
+     , ( N "fill"  , AttValue [ Left $ mkColorStr fillColor ] )
+     , ( N "stroke", AttValue [ Left $ mkColorStr lineColor ] )
+     , ( N "stroke-width", AttValue [ Left $ show lineWidth ] )
+     ] []
+  where
+  pointsToAttVal :: [ ( Double, Double ) ] -> String
+  pointsToAttVal [] = ""
+  pointsToAttVal ( (x, y):ps )
+    = show x ++ "," ++ show y ++ " " ++ pointsToAttVal ps
+
+svgToElem (Rect x y w h sw cf cs)
+  = Elem (N "rect") [
+   ( N "x", AttValue [ Left $ show x ] )
+ , ( N "y", AttValue [ Left $ show y ] )
+ , ( N "width", AttValue [ Left $ show w ] )
+ , ( N "height", AttValue [ Left $ show h ] )
+ , ( N "stroke-width", AttValue [ Left $ show sw ] )
+ , ( N "fill", AttValue [ Left $ mkColorStr cf ] )
+ , ( N "stroke", AttValue [ Left $ mkColorStr cs ] )
+ ] []
+
+svgToElem (Text x y s c t)
+  = Elem (N "text") [
+   ( N "x", AttValue [ Left $ show x ] )
+ , ( N "y", AttValue [ Left $ show y ] )
+ , ( N "font-size", AttValue [ Left $ show s ] )
+ , ( N "fill", AttValue [ Left $ mkColorStr c ] )
+ ] [ CString False t () ]
+
+svgToElem (Circle x y r c)
+  = Elem (N "circle") [
+       ( N "cx", AttValue [ Left $ show x ] )
+     , ( N "cy", AttValue [ Left $ show y ] )
+     , ( N "r", AttValue [ Left $ show r ] )
+     , ( N "fill", AttValue [ Left $ mkColorStr c ] )
+     ] []
+
+svgToElem (Image x y w h p)
+  = Elem (N "image") [
+       ( N "x", AttValue [ Left $ show x ] )
+     , ( N "y", AttValue [ Left $ show y ] )
+     , ( N "width", AttValue [ Left $ show w ] )
+     , ( N "height", AttValue [ Left $ show h ] )
+     , ( N "xlink:href", AttValue [ Left p ] )
+     ] []
+
+svgToElem (Group trs svgs)
+  = Elem (N "g") (
+      map (\ tr -> let a = showTrans tr
+                    in ( N "transform", AttValue [ Left a ] ) ) trs
+     ) $ map (flip CElem () . svgToElem) svgs
+
+
+svgToXml :: Double -> Double -> [ SVG ] -> Document ()
+svgToXml w h svgs
+  = Document prlg ent
+      (Elem (N "svg") (emAtt w h) $ map (flip CElem () . svgToElem) svgs) els
+
+pmsc :: [Misc]
+pmsc    = [ Comment " MADE BY SVG.HS " ]
+pblit, sslit :: String
+pblit   = "-//W3C//DTD SVG 1.1//EN"
+sslit   = "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd"
+doctype :: DocTypeDecl
+doctype = DTD (N "svg") (Just (PUBLIC (PubidLiteral pblit) (SystemLiteral sslit))) []
+xmldcl :: XMLDecl
+xmldcl  = XMLDecl "1.0" (Just (EncodingDecl "UTF-8")) Nothing
+prlg :: Prolog
+prlg    = Prolog (Just xmldcl) pmsc (Just doctype) []
+
+xmlns, ver, xlink :: String
+xmlns   = "http://www.w3.org/2000/svg"
+ver     = "1.1"
+xlink   = "http://www.w3.org/1999/xlink"
+emAtt :: (Show a, Show b) => a -> b -> [(QName, AttValue)]
+emAtt  w h = [
+   ( N "xmlns", AttValue [ Left xmlns ] )
+ , ( N "version", AttValue [ Left ver ] )
+ , ( N "xmlns:xlink", AttValue [ Left xlink ] )
+ , ( N "width", AttValue [ Left $ show w ] )
+ , ( N "height", AttValue [ Left $ show h ] )
+ ]
+ent, els :: [a]
+ent     = []
+els     = []
+{-
+height, width :: String
+width   = "400"
+height  = "640"
+em :: CharData -> Element ()
+em ougon= Elem (N "svg") (emAtt (100 :: Int) (200 :: Int)) [ CElem rect (), CElem (text ougon) () ]
+rect :: Element i
+rect = Elem (N "rect") [
+   ( N "x", AttValue [ Left "20" ] )
+ , ( N "y", AttValue [ Left "30" ] )
+ , ( N "width", AttValue [ Left "80" ] )
+ , ( N "height", AttValue [ Left "100" ] )
+ , ( N "fill", AttValue [ Left "red" ] )
+ , ( N "stroke", AttValue [ Left "none" ] )
+ ] []
+text :: CharData -> Element ()
+text ougon = Elem (N "text") [
+   ( N "x", AttValue [ Left "20" ] )
+ , ( N "y", AttValue [ Left "50" ] )
+ , ( N "font-size", AttValue [ Left "20" ] )
+ ] [ CString False ougon () ]
+
+-- els     = [ Comment "MADE BY SIMPLE.HS" ]
+
+docu :: CharData -> Document ()
+docu ougon = Document prlg ent (em ougon) els
+
+svgMain = do
+  ougonXml <- readFile "ougon.xml"
+  let Document _ _ (Elem "text" _ [ CString _ ougon _ ]) _
+        = xmlParse "ougon.xml" ougonXml
+  print $ document $ svgToXml 100 200 [ Rect 20 30 80 90 "black" "purple", Text 40 50 30 "underline" "purple" "good" ]
+-}
diff --git a/yjsvg.cabal b/yjsvg.cabal
new file mode 100644
--- /dev/null
+++ b/yjsvg.cabal
@@ -0,0 +1,29 @@
+Build-Type:	Simple
+Cabal-Version:	>= 1.6
+
+Name:		yjsvg
+Version:	0.1.6
+stability:	experimental
+author:		YoshikuniJujo <PAF01143@nifty.ne.jp>
+maintainer:	YoshikuniJujo <PAF01143@nifty.ne.jp>
+
+license:	BSD3
+license-file:	LICENSE
+
+category:	Graphics
+synopsis:	make SVG string from Haskell data
+description:
+  > import Text.XML.YJSVG
+  > main = putStrLn $ showSVG 500 750 [ Line 30 40 100 200 "yellow" 10 ]
+  .
+  etc
+
+source-repository	head
+  type:		git
+  location:	git://github.com/YoshikuniJujo/yjsvg.git
+
+Library
+  Hs-source-dirs:	src
+  Exposed-Modules:	Text.XML.YJSVG
+  Build-Depends:	base > 3 && < 5, HaXml
+  Ghc-Options:		-Wall