if (FALSE) {
data(font_example)
## first get some AmigaBitmapFont objects:
font8 <- getAmigaBitmapFont(font_example, 8)
font9 <- getAmigaBitmapFont(font_example, 9)
## now bind these bitmaps again in a single set
font.set <- c(font8, font9, name = "my_font_name")
## Amiga Basic codes can also be combined:
bas1 <- as.AmigaBasic("LET a = 1")
bas2 <- as.AmigaBasic("PRINT a")
bas <- c(bas1, bas2)
}
Run the code above in your browser using DataLab