let the computer make diminutions

[Stefan Thomas]

Dear community,
I have the following problem:
for examinations I have to write lot of examples, e.g. for ear-training-dictations, etc.
A lot of these examples have the same basic structure, e.g. lamentobass but these examples are not identical, they use the basic structure in combination with diminutions.
One example for basic structure could be:
structureAright = \relative c'' { c2. b a gis }
structureAleft = { a2. g f e }
And the versions with diminutions could be:
diminutedright = \relative c'' { c4 d4. c8 c8 b b4. a8 a8 gis16 a b4 e, }
 diminutedleft = { a, 2 a4 gis2 g4 fis2 f4 e2 gis4 }
My question now:
Is it possible to generate the examples with diminutions automatically? Are there maybee some helper apllications available? Is it possible that someone of You has tried something similar to this?