Unified · Split
| @@ -513,6 +513,7 @@ fmp->clphs += floor(cfreq * fmp->maxlens); · 512 unmodified lines | ||
| 513 | 513 | fmp->mlphs += floor(mfreq * fmp->maxlens); |
| 514 | 514 | #+END_SRC |
| 515 | 515 | * Feedback FM Variation |
| 516 | +@!(marker "feedback_fm")!@ | |
| 516 | 517 | The original FM pair algorithm can be slightly modified to |
| 517 | 518 | include =feedback=. To do this, the =sk_fmpair= struct is |
| 518 | 519 | encapsulated in a new struct called =sk_fmpair_fdbk=. |
| @@ -82,4 +82,8 @@ · 81 unmodified lines | ||
| 82 | 82 | `` |
| 83 | 83 | )) |
| 84 | 84 | |
| 85 | +(defn marker [id &opt msg] | |
| 86 | + (default msg "") | |
| 87 | + (prin (string "<a id=\"" id "\">" msg "</a>"))) | |
| 88 | + | |
| 85 | 89 | (import "keywords") |