hk0413_Base graphics_inclass3

https://en.wikipedia.org/wiki/Flag_of_Denmark

Proportion 28:34 (14:17) to 28:37

Dimensions: 3:1:3 width / 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)