当前时区为 UTC + 8 小时



发表新帖 回复这个主题  [ 20 篇帖子 ]  前往页数 1, 2  下一页
作者 内容
1 楼 
 文章标题 : 谁会作这样的图。
帖子发表于 : 2012-01-12 22:46 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
http://vector.tutsplus.com/tutorials/de ... sterpiece/

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


_________________
● 鸣学


页首
 用户资料  
 
2 楼 
 文章标题 : Re: 谁会作这样的图。
帖子发表于 : 2012-01-12 22:47 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
http://www.shutterstock.com/pic-5059334 ... graph.html


_________________
● 鸣学


页首
 用户资料  
 
3 楼 
 文章标题 : Re: 谁会作这样的图。
帖子发表于 : 2012-01-12 22:50 
头像

注册: 2010-06-16 1:05
帖子: 14668
地址: Tencent
系统: Mac OS X
送出感谢: 1
接收感谢: 153
这不是excel的功能吗?


_________________
twitter求fo:http://twitter.com/maplebeats
博客求踩:http://maplebeats.com


页首
 用户资料  
 
4 楼 
 文章标题 : Re: 谁会作这样的图。
帖子发表于 : 2012-01-12 23:06 
头像

注册: 2007-07-30 18:28
帖子: 22033
地址: 空气中
系统: Linux
送出感谢: 17
接收感谢: 69
inkscape 画一个,然后 clone 出那个点点线,

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

星星直接星星工具画 *

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

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

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


_________________
『这个世界都是我的 ,我爱你们』

ENTP ⥂ INTP ⥄ INFP ⇦ INTJ

在此发布的文章使用 Creative Commons Attribution-ShareAlike 4.0 协议


页首
 用户资料  
 
5 楼 
 文章标题 : Re: 谁会作这样的图。
帖子发表于 : 2012-01-12 23:17 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
我只是想作3d bar chart。

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


_________________
● 鸣学


页首
 用户资料  
 
6 楼 
 文章标题 : Re: 谁会作这样的图。
帖子发表于 : 2012-01-12 23:18 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
http://classic.makesweet.com/logo/


_________________
● 鸣学


页首
 用户资料  
 
7 楼 
 文章标题 : Re: 谁会作这样的图。
帖子发表于 : 2012-01-12 23:22 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
● 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/


_________________
● 鸣学


页首
 用户资料  
 
8 楼 
 文章标题 : Re: 谁会作这样的图。
帖子发表于 : 2012-01-12 23:36 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
想脚本搞。不想开office


_________________
● 鸣学


页首
 用户资料  
 
9 楼 
 文章标题 : Re: 谁会作这样的图。
帖子发表于 : 2012-01-12 23:58 
头像

注册: 2009-07-25 1:57
帖子: 701
送出感谢: 5
接收感谢: 13
代码:
texdoc pgfplots

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


_________________
https://github.com/tangboyun
http://tangboyun.is-programmer.com/
提问的智慧————Eric Steven Raymond
回答的智慧————Andrew Clarke
吾尝终日而思矣,不如须臾之所学也;吾尝跂而望矣,不如登高之博见也。
急急急标题什么的,最讨厌了!
急急复急急,急急何其多,我生待急急,万事急急急。


最后由 tangboyun 编辑于 2012-01-13 0:03,总共编辑了 1 次

页首
 用户资料  
 
10 楼 
 文章标题 : Re: 谁会作这样的图。
帖子发表于 : 2012-01-13 0:00 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
tex没3d嘛。否则不用想。


_________________
● 鸣学


页首
 用户资料  
 
11 楼 
 文章标题 : Re: 谁会作这样的图。
帖子发表于 : 2012-01-13 0:07 
头像

注册: 2009-07-25 1:57
帖子: 701
送出感谢: 5
接收感谢: 13
它这个3d plot本身不难用tex做出来,那两个包都带3d plot的,bar图也比较简单,主要它的那行数字标签是带透视的。拿笔在那边做仿射变换就太苦逼了。


_________________
https://github.com/tangboyun
http://tangboyun.is-programmer.com/
提问的智慧————Eric Steven Raymond
回答的智慧————Andrew Clarke
吾尝终日而思矣,不如须臾之所学也;吾尝跂而望矣,不如登高之博见也。
急急急标题什么的,最讨厌了!
急急复急急,急急何其多,我生待急急,万事急急急。


页首
 用户资料  
 
12 楼 
 文章标题 : Re: 谁会作这样的图。
帖子发表于 : 2012-01-13 12:23 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
所以,这样的图,没现成的。想 eps 编辑。要是eps可以外部调整那bar的高度,多好。


_________________
● 鸣学


页首
 用户资料  
 
13 楼 
 文章标题 : Re: 谁会作这样的图。
帖子发表于 : 2012-01-13 13:03 
头像

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


_________________
https://github.com/tangboyun
http://tangboyun.is-programmer.com/
提问的智慧————Eric Steven Raymond
回答的智慧————Andrew Clarke
吾尝终日而思矣,不如须臾之所学也;吾尝跂而望矣,不如登高之博见也。
急急急标题什么的,最讨厌了!
急急复急急,急急何其多,我生待急急,万事急急急。


页首
 用户资料  
 
14 楼 
 文章标题 : Re: 谁会作这样的图。
帖子发表于 : 2012-01-13 14:40 
头像

注册: 2009-07-25 1:57
帖子: 701
送出感谢: 5
接收感谢: 13
[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
附件:
Star.png
Star.png [ 2.09 KiB | 被浏览 1391 次 ]


_________________
https://github.com/tangboyun
http://tangboyun.is-programmer.com/
提问的智慧————Eric Steven Raymond
回答的智慧————Andrew Clarke
吾尝终日而思矣,不如须臾之所学也;吾尝跂而望矣,不如登高之博见也。
急急急标题什么的,最讨厌了!
急急复急急,急急何其多,我生待急急,万事急急急。


页首
 用户资料  
 
15 楼 
 文章标题 : Re: 谁会作这样的图。
帖子发表于 : 2012-01-13 15:13 
头像

注册: 2005-08-14 21:55
帖子: 58428
地址: 长沙
送出感谢: 4
接收感谢: 274
你真行。cairo我想过。做不那么漂亮。才去搜索的现成的图片。


_________________
● 鸣学


页首
 用户资料  
 
显示帖子 :  排序  
发表新帖 回复这个主题  [ 20 篇帖子 ]  前往页数 1, 2  下一页

当前时区为 UTC + 8 小时


在线用户

正在浏览此版面的用户:没有注册用户 和 2 位游客


不能 在这个版面发表主题
不能 在这个版面回复主题
不能 在这个版面编辑帖子
不能 在这个版面删除帖子
不能 在这个版面提交附件

前往 :  
本站点为公益性站点,用于推广开源自由软件,由 DiaHosting VPSBudgetVM VPS 提供服务。
我们认为:软件应可免费取得,软件工具在各种语言环境下皆可使用,且不会有任何功能上的差异;
人们应有定制和修改软件的自由,且方式不受限制,只要他们自认为合适。

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
简体中文语系由 王笑宇 翻译