***～会飞的蝎子～学习宁静致远

LaTeX output in sas

pushViewport(viewport(xscale=c(0, 1), yscale=c(0.5, 1),
             clip=TRUE))
             
res <- 50
for (i in 1:res)
  grid.rect(y=1 - (i-1)/res, just="top",
            gp=gpar(col=NULL, fill=grey(0.5*i/res)))

moon <- function(x, y, size) {
  angle <- seq(-90, 90, length=50)/180*pi
  x1 <- x + size*cos(angle)
  y1 <- y + size*sin(angle)
  mod <- 0.8
  x2 <- x + mod*(x1 - x)
  grid.polygon(c(x1, rev(x2)), c(y1, rev(y1)),
               default.unit="native",
               gp=gpar(col=NULL, fill="white"))
}

moon(.1, .9, .03)

star <- function(x, y, size) {
  x1 <- c(x,           x + size*.1, x + size*.5, x + size*.1,
          x,           x - size*.1, x - size*.5, x - size*.1) + .05
  y1 <- c(y - size,    y - size*.1, y,           y + size*.1,
          y + size*.7, y + size*.1, y,           y - size*.1) + .05
  grid.polygon(x1, y1, 
               default.unit="native",
               gp=gpar(col=NULL, fill="white"))
}

star(.5, .7, .02)
star(.8, .9, .02)
star(.72, .74, .02)
star(.62, .88, .02)

grid.circle(runif(20, .2, 1), runif(20, .6, 1), r=.002,
            default.unit="native",
            gp=gpar(col=NULL, fill="white"))

hill <- function(height=0.1, col="black") {
  n <- 100
  x <- seq(0, 1, length=n)
  y1 <- sin(runif(1) + x*2*pi)
  y2 <- sin(runif(1) + x*4*pi)
  y3 <- sin(runif(1) + x*8*pi)
  y <- 0.6 + height*((y1 + y2 + y3)/3)
  grid.polygon(c(x, rev(x)), c(y, rep(0, n)),
               default.unit="native",
               gp=gpar(col=NULL, fill=col))
}

hill()

rdir <- function(n) {
  sample(seq(-45, 45, length=10), n)/180*pi
}

grid.text("Once upon a time ...",
          x=.15, y=.51, just="bottom",
          default.unit="native",
          gp=gpar(col="white", fontface="italic", fontsize=10))

popViewport()

grid.rect()


注： 重画此靓图，除需以上格式外，请执行下述操作
1. download: RGraphics from CRAN
2. include libraries as following:
> library(grid)
> library(lattice)
> library(RGraphics)

　　中新社报道，江和平表示，以往央视在进行节目实况直播时，为保证播出安全，都会有30秒的技术延时。也就是说，电视观众所看到的节目，实际上是30秒之前发生的实况，而这一点是世界各国电视台所普遍采用的。

　　但在北京奥运会上，央视播出的节目将不再有30秒的技术延时，做到播出的节目与在国际广播电视中心所传送的国际信号同步，即观众所看到的将是真正的实况。

　　报道说，北京奥运会时央视将有七个频道转播赛事，投入的人员达到3000人，节目总量超过2500小时。

　　央视表示不会延时直播，不过中宣部近日却下达通知，要求所有地方电视台在转播奥运会实况时，画面必须延迟10秒左右。

　　据香港《明报》昨日报道，为了防止包括外国运动员在内的人，在赛场或者颁奖台上展出政治性标语或做出令人反感的动作，或类似奥运圣火在希腊取火时出现藏独旗帜，中国政府将严格控制电视转播奥运赛事。

消息来源：联合早报网