银星no2第一[泪] 又有动力苟到明年白情了[抓狂][抓狂][抓狂][抓狂][抓狂][抓狂][抓狂][悲伤]这个组合槽点挺多的，两个前p的(gui之前是不是p的？记不清了)两个现w的。银星在夏活绞尽脑汁跟sin搭话[笑cry]跟Akira就是被各种ijime[笑cry]跟gui就是怎么讲也讲不懂原典[笑cry]大概只有跟rindou能正常对话了[笑cry]

【GFRIEND确定31日举办线上演唱会 引发粉丝期待】。GFRIEND确定31日举办线上演唱会 引发粉丝期待韩国人气女团GFriend确定31日举办线上演唱会。6日，GFriend通过官方社交媒体网站媒体平台账号，发布将举办“2020 GFriend ONLINE CONCERT GFRIEND C:ON”，并公开团体照。“2020 GFriend ONLINE CONCERT GFRIEND C:ON”演唱会将于31日下午5点（韩国时间）通过官方粉丝社区工具w公开，成员们不仅会演唱多首金曲还准备了特别的舞台。这是该组合的首次线上演唱会，令粉丝们期待不已。另一方面，组合GFriend此前7月发行的专辑《回:Song of the Sirens》，主打歌《Apple》在各个音源网站取得了良好成绩。#GFRIEND# #金韶情# #So Won# #所愿# #郑艺琳# #Ye Rin# #丁恩妃# #Eun Ha# #银河# #崔俞娜# #Yu Ju# #俞宙# #黄恩妃# #Sin B# #信飞# #金艺源# #Um Ji# #严智#

library(grid)
# heart function
heart <- function(lcolor) {
t = seq(0, 2 * pi, by = 0.1)
x = 16 * sin(t)^3
y = 13 * cos(t) - 5 * cos(2 * t) - 2 * cos(3 * t) - cos(4 * t)
a = (x - min(x))/(max(x) - min(x))
b = (y - min(y))/(max(y) - min(y))
grid.lines(a, b, gp = gpar(col = lcolor, lty = "solid", lwd = 3))
}
heart("hotpink")
# rose function
grid.newpage()
rose = function() {
grid.circle(x = 0.5, y = 0.5, r = 0.5, gp = gpar(fill = "red",

lwd = 3))
vp <- viewport(0.5, 0.5, w = 0.9, h = 0.9)
pushViewport(vp)
grid.polygon(x = c(0.08, 0.5, 0.94), y = c(0.22, 1.03, 0.22),

gp = gpar(lwd = 3))
vp2 <- viewport(0.5, 0.5, w = 0.4, h = 0.4)
pushViewport(vp2)
grid.circle(x = 0.5, y = 0.5, r = 0.5, gp = gpar(fill = "red",

lwd = 3))
vp3 <- viewport(0.5, 0.5, w = 0.9, h = 0.9, angle = 180)
pushViewport(vp3)
grid.polygon(x = c(0.08, 0.5, 0.94), y = c(0.22, 1.03, 0.22),

gp = gpar(lwd = 3))
}

# pattern 2
grid.newpage()
vp1 <- viewport(0.4, 0.5, w = 0.5, h = 0.5, angle = 15)
pushViewport(vp1)
heart("red")
vp2 <- viewport(0.9, 0.27, w = 0.7, h = 0.7, angle = -30)
pushViewport(vp2)
heart("hotpink")
grid.text("Happy valentine's day!", x = 0.2, y = 1.2, just = c("center",

"bottom"), gp = gpar(fontsize = 20), vp = vp)
vp3 <- viewport(-0.65, 1.2, w = 0.3, h = 0.3, angle = -30)
pushViewport(vp3)
rose()