inochino_kagayaki.R

inochino_kagayaki.R

th <- seq(-2*pi,2*pi,.01)
x <- cos(th)
y <- sin(th)

#dev.off()
par(pty="s")
plot(0,0,xlim=c(-4,3),ylim=c(-3,2.5),col="white",xlab="",ylab="",main="OSAKA,KANSAI,JAPAN\nEXPO\n2025",sub="")

p <- function(v,cl){polygon(v[1]*x+v[2],v[3]*y+v[4],col=cl,border = cl)}
p(c(1,1,1,1),"red")
p(c(.5,1.2,.5,1.2),"white")
p(c(.25,1.4,.25,1.4),"blue")
p(c(1.25,1.5,.5,0),"red")
p(c(.5,1.5,.75,-1),"red")
p(c(1,.5,1,-2),"red")
p(c(.5,.75,.5,-2),"white")
p(c(.25,1,.25,-2),"blue")
p(c(.8,-1,.8,-2.3),"red")
p(c(.3,-1,.3,-2.5),"white")
p(c(.1,-1,.1,-2.7),"blue")
p(c(.6,-2,.6,-2.3),"red")
p(c(.45,-2.5,.9,-1.5),"red")
p(c(.75,-3,.75,-0.5),"red")
p(c(.4,-2.9,.4,-0.5),"white")
p(c(.2,-2.9,.2,-0.3),"blue")
p(c(.5,-2.1,.5,.4),"red")
p(c(.5,-2.7,.5,.6),"red")
p(c(.2,-2.9,.2,.6),"white")
p(c(.1,-3,.1,.6),"blue")
p(c(.6,-1.8,.6,1.2),"red")
p(c(.8,-0.5,.8,1.6),"red")