if (FALSE) {
## 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.
PTPatternToMODPlug(pattern)
## If you want to handle the pattern data
## in R:
patModPlug <- PTPatternToMODPlug(pattern, F)
## We can do the same with a block:
block <- PTBlock(pattern, 1:10, 2:3)
PTPatternToMODPlug(block)
}
Run the code above in your browser using DataLab