送给渐行渐远的她

帅得被人砍

前几天看到一个帖子，求心形图，其实没什么难的，只要用心就好，可能她不会喜欢，但是尽力就好。代码我就不公开了，相信你们可以的。不过有问题可以讨论

风子

楼主花了很多心思啊，这张图很有美感

heart

要代码的来吧

1. ; @Author: wqshen
   
2. ; @Date: 2016-07-18 13:00
   
3. ; @Last Modified by: wqshen
   
4. 
   
5. begin
   
6.     homeAttrs = True
   
7.     homeAttrs@gsnMaximize = True
   
8.     homeAttrs@gsnDraw = False
   
9.     homeAttrs@gsnFrame = False
   
10.     homeAttrs@trXMinF = -30
    
11.     homeAttrs@trYMinF = -30
    
12.     homeAttrs@trXMaxF = 30
    
13.     homeAttrs@trYMaxF = 30
    
14.     homeAttrs@tmXBOn = False
    
15.     homeAttrs@tmYLOn = False
    
16.     homeAttrs@tmYROn = False
    
17.     homeAttrs@tmXTOn = False
    
18.     homeAttrs@tmXBBorderOn = False
    
19.     homeAttrs@tmXTBorderOn = False
    
20.     homeAttrs@tmYLBorderOn = False
    
21.     homeAttrs@tmYRBorderOn = False
    
22. 
    
23.     girlAttrs  = True
    
24.     girlAttrs@gsFillColor = "red"
    
25.     girlAttrs@gsEdgesOn = False
    
26.     girlAttrs@gsFillOpacityF = 0.8
    
27.     boyAttrs = girlAttrs
    
28.     boyAttrs@gsFillOpacityF = 0.6
    
29.     wkstype = "X11"
    
30.     wkstype@wkHeight = 1000
    
31.     wkstype@wkWidth = 1000
    
32.     wks = gsn_open_wks(wkstype, "RedHeartAndCupidArrow")
    
33.     ;; 绘制爱之载体，家
    
34.     home = gsn_blank_plot(wks, homeAttrs)
    
35.     ;;-------数据准备------------
    
36.     PI = 3.1415926
    
37.     t = fspan(0, 2*PI, 1000)
    
38.     x = 16*sin(t)^3
    
39.     y = 13*cos(t) - 5*cos(2*t) - 2*cos(3*t) - cos(4*t)
    
40.     heartDistX = -8.
    
41.     heartDistY = 4.
    
42.     k = heartDistY/heartDistX
    
43.     ;;-------爱神之箭与情侣之心------------   
    
44.     arrowAttrs = True
    
45.     arrowAttrs@gsLineColor = "Orange"
    
46.     arrowAttrs@gsLineThicknessF = 8
    
47.     ;; 绘制爱神之箭，底部图层之箭体部分
    
48.     arrow0 = gsn_add_polyline(wks, home, fspan(-25, 0, 2), k*fspan(-25, 0, 2), arrowAttrs)
    
49.     ;; 绘制男友之真红心
    
50.     boyHeart = gsn_add_polygon(wks, home, x+heartDistX, y+heartDistY, boyAttrs)
    
51.     ;; 绘制女友之真红心
    
52.     girlHeart = gsn_add_polygon(wks, home, x, y, girlAttrs)
    
53.    
    
54.     ;; 绘制爱神之箭，顶部图层之箭体部分
    
55.     arrow1 = gsn_add_polyline(wks, home, fspan(0, 15, 2), k*fspan(0, 15, 2), arrowAttrs)
    
56.     arrowAttrs@gsMarkerIndex = NhlNewMarker(wks, ">", 1, 0, 0, 1, 4, atan(k)*45.0/atan(1.0))
    
57.     arrowAttrs@gsMarkerThicknessF = 10
    
58.     arrowAttrs@gsMarkerColor = "Orange"
    
59.     ;; 绘制爱神之箭，箭头部分
    
60.     arrow2 = gsn_add_polymarker(wks, home, 15-0.5, k*(15-0.5), arrowAttrs)
    
61.     ;; 绘制爱神之箭，箭尾部分
    
62.     arrow3 = gsn_add_polymarker(wks, home, -25-1.2, k*(-25-1.2), arrowAttrs)
    
63.     arrow4 = gsn_add_polymarker(wks, home, -25-2.4, k*(-25-2.4), arrowAttrs)
    
64. 
    
65.     ;;-------------文本部分----------------
    
66.     titleAttrs = True
    
67.     titleAttrs@txFont = "simplex_script"
    
68.     plainAttrs = titleAttrs
    
69.     titleAttrs@txFontHeightF = 26
    
70.     plainAttrs@txFontHeightF = 16
    
71.     ;; 标题
    
72.     title = gsn_add_text(wks, home, "Happy everyday", 0+heartDistX/2., 20, titleAttrs)
    
73.     ;; 绘制格式文本
    
74.     from = gsn_add_text(wks, home, "From ~F14~:", 11, 14, plainAttrs)
    
75.     ;; 绘制格式文本
    
76.     to = gsn_add_text(wks, home, "To ~F14~:", -25, -15, plainAttrs)
    
77.     ;; 绘制爱之宣言
    
78.     oathText = "The play is over but the audience may not just say goodbye, ~C~~C~" + \
    
79.                "    and people with love are destined to reunite."
    
80.     oath = gsn_add_text(wks, home, oathText, 0+heartDistX/2., -20, plainAttrs)
    
81. 
    
82.     subjectAttrs = True
    
83.     subjectAttrs@txFont = "triplex_italic"
    
84.     subjectAttrs@txFontHeightF = 15
    
85.     predicateAttrs = subjectAttrs
    
86.     ;; 绘制落款人
    
87.     subject = gsn_add_text(wks, home, "Passerby B", 12, -24, subjectAttrs)
    
88.     ;; 绘制收信人
    
89.     predicate = gsn_add_text(wks, home, "lovers", -20, -15, predicateAttrs)
    
90.     draw(home)
    
91.     frame(wks)
    
92.     sleep(10)
    
93. end
    

复制代码

喵星教授Mamonde

大神，这怎么画的？能教教我吗

mofangbao

木有脚本哈，楼主标题是送给谁的额

燕子来了

我们好奇的是她是谁？

帅得被人砍

mofangbao 发表于 2016-7-12 08:31
木有脚本哈，楼主标题是送给谁的额

园长都来了呀。不留点积分什么的，哈哈，就是自己用ncl根据点线面画的一个图，挺简单的，送人的东西自己还做伸手党就说不过去了吧，哈哈

四叶草

看到图就晓得又是大神出新货啦果断进来看看，真的只有图

勿忘草

{:5_213:}

js250768097

这图也只能送懂的人。。。一般妹子真心不买账啊。。。

xigua

{:5_213:}{:5_213:}{:eb502:}{:eb502:}

maomao(陪你长大

NCL可以画这么漂亮的图啊