http://vector.tutsplus.com/tutorials/de ... sterpiece/

会作的，输出一个eps的试试。

这不是excel的功能吗?

inkscape 画一个，然后 clone 出那个点点线，

Shift + F4 画盒子， F2 选面 ，Ctrl+F1变渐变色，再 clone，

星星直接星星工具画 *

边缘高亮，可以用画成的 3角星变 path后拉伸

用那个线的一个点作为头，键入文字，然后 object to path，然后 extension 里的 perspective ——虽然确实很繁琐。

Inkscape就大概这样做了，不过 Libreoffice记得能直接出这种图，然后导出
SVG修改更快吧。

我只是想作3d bar chart。

http://www.blendernation.com/tutorials/ ... ng-a-logo/
要不，inkscape画几个方块，然后 blender作。可能还通用些。

● aw pstoedit
软件包： pstoedit
状态: 未安装
版本号： 3.50-0ubuntu1
优先级： 可选
部分： universe/graphics
维护者： Ubuntu Developers <ubuntu-devel-discuss@lists.ubuntu.com>
未压缩尺寸： 786k
依赖于: libc6 (>= 2.2.5), libpstoedit0c2a (>= 3.50), libstdc++6 (>= 4.1.1),
ghostscript
建议: xfig | ivtools-bin | tgif | transfig
描述： PostScript and PDF files to editable vector graphics converter
pstoedit converts Postscript and PDF files to various editable vector graphic
formats including tgif, xfig, PDF graphics, gnuplot format, idraw, MetaPost,
GNU Metafile, PIC, Kontour and flattened PostScript.
主页： http://www.pstoedit.net/

想脚本搞。不想开office

立体艺术字之类的，可以用texdoc pstricks
不过它这个图有透视效果的，你要透视吗？

tex没3d嘛。否则不用想。

它这个3d plot本身不难用tex做出来，那两个包都带3d plot的，bar图也比较简单，主要它的那行数字标签是带透视的。拿笔在那边做仿射变换就太苦逼了。

所以，这样的图，没现成的。想 eps 编辑。要是eps可以外部调整那bar的高度，多好。

如果每天都要做相同的那份样式报表的话，用Perl+cairo可以做到它那个效果的，因为cairo里支持变换矩阵操作的，而且支持仿射变换。一个柱面体只要三个正方形，把其中两个做个向量变换，就是用个2x2矩阵左乘4个顶点坐标就是了。那行数学字要画完整个轴对pattern用3x3矩阵做仿射变换。脚本就是一开始要校出个好看的参数要调很多次，不过表的样式定了以后，这些就固定了。

[haskell]
-----------------------------------------------------------------------------
-- |
-- Module : Logo
-- Copyright : (c) 2011 Boyun Tang
-- License : BSD-style
-- Maintainer : tangboyun@hotmail.com
-- Stability : experimental
-- Portability : ghc
-- 简单的Logo绘图工具
--
--
-----------------------------------------------------------------------------
module Logo
(
Logo
, Turtle
, initTurtle
, move
, forward
, turn
, resize
, recDraw
, runLogo
)
where
import Control.Monad
import Control.Arrow
import Control.Monad.Writer
import Graphics.Rendering.Cairo

type Vec = (Double,Double)
type Point = (Double,Double)

newtype Turtle = T {
runT :: (Point,Vec)
}

type Logo = Writer [Render ()] Turtle

initTurtle :: Double -> Double -> Logo
initTurtle x y = writer (T ((x,y),(1,0.0)),[moveTo x y])


-- | 角度与弧度的转换
angToPi :: Double -> Double
angToPi a = 2.0 * pi * a / 360.0

-- | 移动但不画线
move :: Double -> Turtle -> Logo
move d (T ((x,y),w@(u,v))) =
let x' = x+d*u
y' = y+d*v
in writer (T ((x',y'), w),[moveTo x' y'])

-- | 转向，逆时针为正
turn :: Double -> Turtle -> Logo
turn a (T (p,(u,v))) =
let a' = angToPi (-a) in
writer (T (p,(u*cos a' - v*sin a', u*sin a' + v*cos a')),[])

-- | 线性改变之后的路径大小
resize :: Double -> Turtle -> Logo
resize s (T (p,w)) = writer (T (p, join (***) (s *) w),[])

-- | 移动且画线
forward :: Double -> Turtle -> Logo
forward d (T ((x,y),w@(u,v))) =
let x' = x+d*u
y' = y+d*v
in writer (T ((x',y'), w),[lineTo x' y'])

-- | 简单的递归绘制接口
recDraw :: (Turtle -> Logo) -- ^ 递归调用绘制的基本图形
-> (Turtle -> Logo) -- ^ 每次调用之后的后处理操作
-> Int -- ^ 递归深度
-> Turtle -- ^ 起始点
-> Logo
recDraw drawFunc afterDraw n t = go n t
where
go n | n > 0 = \input -> drawFunc input >>= afterDraw >>= go (n - 1)
| otherwise = return

-- | 抽取Monad，顺序执行cairo绘制操作。
runLogo :: Logo -> Render ()
runLogo = sequence_ . execWriter

[/haskell]
上面这个模组是我蛋疼时候弄的，用cairo弄个了简单的Logo接口。
下面这个是画柱体的几个简单函数。cairo本身的接口太依赖具体的坐标了，不好用，不过只要能拿到顶点的坐标，高亮也好，透视也好，都能做出来，后端也很丰富。就是看足不足够蛋疼去自己diy个要的图形函数了。
[haskell]
-----------------------------------------------------------------------------
-- | Toy2.hs
-- Module : Main
-- Copyright : (c) 2011 Boyun Tang
-- License : BSD-style
-- Maintainer : tangboyun@hotmail.com
-- Stability : experimental
-- Portability : ghc
--
--
--
-----------------------------------------------------------------------------
module Main where
import Logo
import Graphics.Rendering.Cairo
import Control.Monad
import Graphics.Rendering.Cairo.Matrix
main :: IO ()
main = do
sur <- createImageSurface FormatARGB32 600 400
renderWith sur myPic
surfaceWriteToPNG sur "Star.png"


fmod :: Double -> Double -> Double
a `fmod` b =
a - b * (fromIntegral $ floor $ a / b)

rect a b =
let act = forward a >=> turn 90.0 >=>
forward b >=> turn 90.0
in act >=> act


-- | 柱体，a是底边长，b是柱高，c是斜边，ang是倾角
columnar a b c angle =
let ang = angle `fmod` 360.0
ang' = ang `fmod` 90.0
in case floor $ ang / 90.0 of
0 -> rect a b >=> move a >=> turn ang' >=>
forward c >=> turn (90.0 - ang') >=>
forward b >=> turn 90.0 >=>
forward a >=> turn ang' >=>
forward c >=> turn (180.0 - ang') >=>
move a >=> turn ang' >=>
forward c >=> turn 180.0 >=>
move c >=> turn (-ang') >=>
move a >=> turn 90.0 >=>
move b >=> turn 90.0

_ -> error "偷懒不实现了"


myPic = do
setSourceRGB 0 0 0
setLineWidth 1.2
-- 画三个柱体
runLogo $ initTurtle 100 300 >>= columnar 20 30 10 30.0 >>=
move 50 >>= columnar 20 60 10 40.0 >>=
move 50 >>= columnar 20 100 10 50.0
stroke

[/haskell]
编译：
ghc --make Toy2.hs

运行./Toy2

你真行。cairo我想过。做不那么漂亮。才去搜索的现成的图片。