Unified · Split
| @@ -513,6 +513,7 @@ fmp->clphs += floor(cfreq * fmp->maxlens); · 512 unmodified lines | |||
| 513 | fmp->mlphs += floor(mfreq * fmp->maxlens); | 513 | fmp->mlphs += floor(mfreq * fmp->maxlens); |
| 514 | #+END_SRC | 514 | #+END_SRC |
| 515 | * Feedback FM Variation | 515 | * Feedback FM Variation |
| 516 | @!(marker "feedback_fm")!@ | ||
| 516 | The original FM pair algorithm can be slightly modified to | 517 | The original FM pair algorithm can be slightly modified to |
| 517 | include =feedback=. To do this, the =sk_fmpair= struct is | 518 | include =feedback=. To do this, the =sk_fmpair= struct is |
| 518 | encapsulated in a new struct called =sk_fmpair_fdbk=. | 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 | (import "keywords") | 89 | (import "keywords") |