2020-04-13-In-class exercises3

Flag of Denmark

長寬比為34:28

垂直方向（紅：白：紅=3:1:3）

水平方向（紅：白：紅=3:1:4.5)

op <- par(bg="aliceblue")
plot.new()
plot.window(xlim=c(1, 34), 
            ylim=c(1, 28))
abline(h=seq(1, 1, 1), lty=3, 
       col='white')

title(main='flag of Denmark')
rect(0, 0, 12, 12, col="red", 
     border="white")
rect(16, 0, 34, 12, col="red", 
     border="white")
rect(0, 16, 12, 28, col="red", 
     border="white")
rect(16, 16, 34, 28, col="red", 
     border="white")
segments(0, 0, 0, 28)
segments(0, 0, 34, 0)
segments(34, 0, 34, 28)
segments(0, 28, 34, 28)