## get some pattern data
pattern <- PTPattern(mod.intro, 1)
## Now create a MODPlug pattern from this.
## The result is placed on the system clipboard.
## You can check by pasting it into a text
## editor, or better yet, the MODPlug Tracker.
if (.Platform$OS.type == "windows") {
PTPatternToMODPlug(pattern)
}
## If you want to handle the pattern data
## in R:
patModPlug <- PTPatternToMODPlug(pattern, FALSE)
## We can do the same with a block:
block <- PTBlock(pattern, 1:10, 2:3)
PTPatternToMODPlug(block, FALSE)
Run the code above in your browser using DataLab