爱气象,爱气象家园! 

气象家园

 找回密码
 立即注册

QQ登录

只需一步,快速开始

新浪微博登陆

只需一步, 快速开始

搜索
楼主: 帅得被人砍

[秀图] 送给渐行渐远的她

[复制链接]

新浪微博达人勋

发表于 2016-7-18 15:07:02 | 显示全部楼层
本帖最后由 风子 于 2016-7-18 16:28 编辑

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

heart

heart


要代码的来吧
  1. ; @Author: wqshen
  2. ; @Date: 2016-07-18 13:00
  3. ; @Last Modified by: wqshen

  4. begin
  5.     homeAttrs = True
  6.     homeAttrs@gsnMaximize = True
  7.     homeAttrs@gsnDraw = False
  8.     homeAttrs@gsnFrame = False
  9.     homeAttrs@trXMinF = -30
  10.     homeAttrs@trYMinF = -30
  11.     homeAttrs@trXMaxF = 30
  12.     homeAttrs@trYMaxF = 30
  13.     homeAttrs@tmXBOn = False
  14.     homeAttrs@tmYLOn = False
  15.     homeAttrs@tmYROn = False
  16.     homeAttrs@tmXTOn = False
  17.     homeAttrs@tmXBBorderOn = False
  18.     homeAttrs@tmXTBorderOn = False
  19.     homeAttrs@tmYLBorderOn = False
  20.     homeAttrs@tmYRBorderOn = False

  21.     girlAttrs  = True
  22.     girlAttrs@gsFillColor = "red"
  23.     girlAttrs@gsEdgesOn = False
  24.     girlAttrs@gsFillOpacityF = 0.8
  25.     boyAttrs = girlAttrs
  26.     boyAttrs@gsFillOpacityF = 0.6
  27.     wkstype = "X11"
  28.     wkstype@wkHeight = 1000
  29.     wkstype@wkWidth = 1000
  30.     wks = gsn_open_wks(wkstype, "RedHeartAndCupidArrow")
  31.     ;; 绘制爱之载体,家
  32.     home = gsn_blank_plot(wks, homeAttrs)
  33.     ;;-------数据准备------------
  34.     PI = 3.1415926
  35.     t = fspan(0, 2*PI, 1000)
  36.     x = 16*sin(t)^3
  37.     y = 13*cos(t) - 5*cos(2*t) - 2*cos(3*t) - cos(4*t)
  38.     heartDistX = -8.
  39.     heartDistY = 4.
  40.     k = heartDistY/heartDistX
  41.     ;;-------爱神之箭与情侣之心------------   
  42.     arrowAttrs = True
  43.     arrowAttrs@gsLineColor = "Orange"
  44.     arrowAttrs@gsLineThicknessF = 8
  45.     ;; 绘制爱神之箭,底部图层之箭体部分
  46.     arrow0 = gsn_add_polyline(wks, home, fspan(-25, 0, 2), k*fspan(-25, 0, 2), arrowAttrs)
  47.     ;; 绘制男友之真红心
  48.     boyHeart = gsn_add_polygon(wks, home, x+heartDistX, y+heartDistY, boyAttrs)
  49.     ;; 绘制女友之真红心
  50.     girlHeart = gsn_add_polygon(wks, home, x, y, girlAttrs)
  51.    
  52.     ;; 绘制爱神之箭,顶部图层之箭体部分
  53.     arrow1 = gsn_add_polyline(wks, home, fspan(0, 15, 2), k*fspan(0, 15, 2), arrowAttrs)
  54.     arrowAttrs@gsMarkerIndex = NhlNewMarker(wks, ">", 1, 0, 0, 1, 4, atan(k)*45.0/atan(1.0))
  55.     arrowAttrs@gsMarkerThicknessF = 10
  56.     arrowAttrs@gsMarkerColor = "Orange"
  57.     ;; 绘制爱神之箭,箭头部分
  58.     arrow2 = gsn_add_polymarker(wks, home, 15-0.5, k*(15-0.5), arrowAttrs)
  59.     ;; 绘制爱神之箭,箭尾部分
  60.     arrow3 = gsn_add_polymarker(wks, home, -25-1.2, k*(-25-1.2), arrowAttrs)
  61.     arrow4 = gsn_add_polymarker(wks, home, -25-2.4, k*(-25-2.4), arrowAttrs)

  62.     ;;-------------文本部分----------------
  63.     titleAttrs = True
  64.     titleAttrs@txFont = "simplex_script"
  65.     plainAttrs = titleAttrs
  66.     titleAttrs@txFontHeightF = 26
  67.     plainAttrs@txFontHeightF = 16
  68.     ;; 标题
  69.     title = gsn_add_text(wks, home, "Happy everyday", 0+heartDistX/2., 20, titleAttrs)
  70.     ;; 绘制格式文本
  71.     from = gsn_add_text(wks, home, "From ~F14~:", 11, 14, plainAttrs)
  72.     ;; 绘制格式文本
  73.     to = gsn_add_text(wks, home, "To ~F14~:", -25, -15, plainAttrs)
  74.     ;; 绘制爱之宣言
  75.     oathText = "The play is over but the audience may not just say goodbye, ~C~~C~" + \
  76.                "    and people with love are destined to reunite."
  77.     oath = gsn_add_text(wks, home, oathText, 0+heartDistX/2., -20, plainAttrs)

  78.     subjectAttrs = True
  79.     subjectAttrs@txFont = "triplex_italic"
  80.     subjectAttrs@txFontHeightF = 15
  81.     predicateAttrs = subjectAttrs
  82.     ;; 绘制落款人
  83.     subject = gsn_add_text(wks, home, "Passerby B", 12, -24, subjectAttrs)
  84.     ;; 绘制收信人
  85.     predicate = gsn_add_text(wks, home, "lovers", -20, -15, predicateAttrs)
  86.     draw(home)
  87.     frame(wks)
  88.     sleep(10)
  89. end
复制代码



点评

图很漂亮: 5.0 刚好需要: 0.0
谢谢共享: 5.0 已经有人发过了: 0.0
图很漂亮: 5 刚好需要: 0 谢谢共享: 5 已经有人发过了: 0
amazing  发表于 2016-10-10 15:04

评分

参与人数 2金钱 +15 贡献 +1 收起 理由
吴璇璇 + 5 我!太!喜欢!这个!啦!
婧观气变 + 10 + 1

查看全部评分

密码修改失败请联系微信:mofangbao
回复 支持 2 反对 0

使用道具 举报

新浪微博达人勋

发表于 2016-7-18 15:26:28 | 显示全部楼层
很有创意{:5_213:}
密码修改失败请联系微信:mofangbao
回复

使用道具 举报

新浪微博达人勋

发表于 2016-7-18 15:32:54 | 显示全部楼层
楼主强无敌
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2016-7-18 19:32:09 | 显示全部楼层
着图画的好厉害 楼主威武
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2016-10-10 14:48:15 | 显示全部楼层
楼主太厉害了{:eb502:}{:eb502:}
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2016-10-10 15:04:10 | 显示全部楼层
{:5_201:}{:5_201:}好有闲情雅致
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2017-5-19 13:50:19 | 显示全部楼层
厉害了 谢谢分享
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2017-5-19 15:41:18 | 显示全部楼层
厉害了
密码修改失败请联系微信:mofangbao
回复

使用道具 举报

新浪微博达人勋

发表于 2017-5-20 11:41:23 | 显示全部楼层
楼主真厉害,太漂亮了。
密码修改失败请联系微信:mofangbao

新浪微博达人勋

发表于 2017-5-20 11:55:32 | 显示全部楼层
这个代码可以啊
密码修改失败请联系微信:mofangbao
您需要登录后才可以回帖 登录 | 立即注册 新浪微博登陆

本版积分规则

Copyright ©2011-2014 bbs.06climate.com All Rights Reserved.  Powered by Discuz! (京ICP-10201084)

本站信息均由会员发表,不代表气象家园立场,禁止在本站发表与国家法律相抵触言论

快速回复 返回顶部 返回列表