-tstamp_0815 <-abline_at_date("2008-08-15", col='grey20', lty=2)
-tstamp_0905 <-abline_at_date("2008-09-05", col='grey70')
-tstamp_0924 <-abline_at_date("2008-09-24", col='grey20', lty=2)
-tstamp_1015 <-abline_at_date("2008-10-15", col='grey20', lty=2)
-tstamp_1105 <-abline_at_date("2008-11-05", col='white', lty=2)
-tstamp_1214 <-abline_at_date("2008-12-14", col='grey70')
-tstamp_0223 <-abline_at_date("2009-02-23", col='grey70')
-tstamp_0313 <-abline_at_date("2009-03-13", col='grey70')
-
-
-text(x=c(tstamp_0610+(tstamp_0815-tstamp_0610)/2,
- tstamp_0815+(tstamp_0905-tstamp_0815)/2,
- tstamp_0924+(tstamp_1015-tstamp_0924)/2,
- tstamp_1015+(tstamp_1105-tstamp_1015)/2,
- tstamp_1214+(tstamp_0223-tstamp_1214)/2,
- tstamp_0223+(tstamp_0313-tstamp_0223)/2),
- y=c(0),
- labels=c("Kernel bug", 'fix1', 'fix2', 'fix3', 'Notice bug', 'fix4')) #, 'fix 2', 'fix 3', 'fix 4'))
-
-legend(unclass(as.POSIXct("2009-03-13", origin="1970-01-01"))[1], 200,
- cex=0.7,
- legend=c("Registered", "Available", 'Kernel Update', 'MyOps Event'),
- pch=c('-', '-', '-', '-'),
- col=c('blue', 'red', 'grey20', 'grey70'),
- lty=c(1, 1, 2, 1), merge=T)
-
-end_image()
+# green
+tstamp_0610 <-abline_at_date("2008-06-10", col='grey20', lty=2, height=570)
+tstamp_0815 <-abline_at_date("2008-08-15", col='grey70', lty=1, height=570)
+
+# red
+#tstamp_0905 <-abline_at_date("2008-09-05", col='grey70', height=570)
+tstamp_0924 <-abline_at_date("2008-09-24", col='grey70', lty=1, height=570)
+tstamp_1015 <-abline_at_date("2008-10-15", col='grey20', lty=2, height=570)
+# blue
+#tstamp_1105 <-abline_at_date("2008-11-05", col='white', lty=2, height=570)
+#tstamp_1214 <-abline_at_date("2008-12-14", col='grey70', height=570)
+tstamp_0223 <-abline_at_date("2009-02-23", col='grey70', height=570)
+# red
+#tstamp_0313 <-abline_at_date("2009-03-13", col='grey70', height=570)
+
+#text(x=c(tstamp_0610+(tstamp_0815-tstamp_0610)/2,
+# tstamp_0815+(tstamp_0905-tstamp_0815)/2,
+# tstamp_0924+(tstamp_1015-tstamp_0924)/2,
+# tstamp_1015+(tstamp_1214-tstamp_1015)/2,
+# tstamp_1214+(tstamp_0223-tstamp_1214)/2,
+# tstamp_0223+(tstamp_0313-tstamp_0223)/2),
+# y=c(0),
+# labels=c("bug1", 'fix1', 'fix2', 'fix3', 'bug2', 'fix4')) #, 'fix 2', 'fix 3', 'fix 4'))
+
+text(x=c(tstamp_0610,
+ tstamp_0815,
+ tstamp_0924),
+ y=c(610),
+ adj=c(1, 0.5),
+ labels=c("bug1", 'fix1', 'fix2')) #, 'fix 2', 'fix 3', 'fix 4'))
+
+
+text(x=c(tstamp_1015,
+ tstamp_0223),
+ adj=c(0, 0.5),
+ y=c(610),
+ labels=c('bug2', 'fix3')) #, 'fix 2', 'fix 3', 'fix 4'))
+
+mtext("2008 2009", 1,2)
+legend(unclass(as.POSIXct("2009-02-23", origin="1970-01-01"))[1], 200,
+ cex=0.5,
+ legend=c("Kernel Bug", "Notice Bug", "Typical MyOps", 'Bugs', 'Fixes'),
+ pch=c('-', '-', '-'),
+ col=c('green', 'blue', 'red', 'grey20', 'grey70'),
+ lty=c(1, 1, 1, 2, 1), merge=T)
+
+ #legend=c("Registered", "Online", 'Kernel Update', 'MyOps Event'),
+ #pch=c('-', '-', '-', '-'),
+ #col=c('blue', 'red', 'grey20', 'grey70'),
+ #lty=c(1, 1, 2, 1), merge=T)
+
+#end_image()