MacWorld 1997 September

home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (68k).sea / pro Fit 5.0 demo (68k) / External Modules / External modules sources / C / lissajous.c < prev next >
MacBinary | 1996-04-21 | 4.9 KB | [TEXT/KAHL]
view JSON data |
view as text |
open on a Mac |
open on a PC

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: lissajous.c
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Compact Compressed (Unix) `(archive/compact)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Sun Apr 21 14:29:47 1996, modified Sun Apr 21 14:29:47 1996, creator Think C, type ASCII, 4311 bytes "lissajous.c" , at 0x1157 410 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[KAHL]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 6c 69 73 73 61 6a | 6f 75 73 2e 63 00 00 00 |..lissaj|ous.c...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 01 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 10 d7 00 | 00 01 9a ad a0 2f 1b ad |........|...../..|
|00000060| a0 2f 1b 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |./......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 a7 91 00 00 |........|........|
|00000080| 2f 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/*******|********|
|00000090| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2f 0d 2f 2a 20 4c 69 73 |********|/./* Lis|
|000000e0| 73 61 6a 6f 75 73 2e 63 | 20 20 20 20 20 20 20 20 |sajous.c|        |
|000000f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000120| 20 20 20 20 20 20 20 09 | 20 20 20 20 20 20 20 2a |       .|       *|
|00000130| 2f 0d 2f 2a 20 20 20 20 | 20 20 20 20 20 20 20 20 |/./*    |        |
|00000140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000180| 20 20 20 20 20 20 20 20 | 20 2a 2f 0d 2f 2a 20 56 |        | */./* V|
|00000190| 65 72 73 69 6f 6e 20 32 | 36 2e 39 2e 39 34 20 20 |ersion 2|6.9.94  |
|000001a0| 09 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.       |        |
|000001b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 2a |        |       *|
|000001e0| 2f 0d 2f 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/./*****|********|
|000001f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2f 0d 0d 0d 20 23 |********|**/... #|
|00000240| 69 6e 63 6c 75 64 65 20 | 22 70 72 6f 46 69 74 5f |include |"proFit_|
|00000250| 69 6e 74 65 72 66 61 63 | 65 2e 68 22 20 0d 20 23 |interfac|e.h" . #|
|00000260| 69 6e 63 6c 75 64 65 20 | 3c 6d 61 74 68 2e 68 3e |include |<math.h>|
|00000270| 20 2f 2f 66 6f 72 20 63 | 6f 73 20 61 6e 64 20 73 | //for c|os and s|
|00000280| 69 6e 0d 0d 0d 0d 0d 2f | 2a 2a 2a 2a 2a 2a 2a 2a |in...../|********|
|00000290| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000002d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2f |********|*******/|
|000002e0| 0d 0d 76 6f 69 64 20 53 | 65 74 55 70 20 28 09 73 |..void S|etUp (.s|
|000002f0| 68 6f 72 74 2a 20 63 6f | 6e 73 74 20 6d 6f 64 75 |hort* co|nst modu|
|00000300| 6c 65 4b 69 6e 64 2c 09 | 09 2f 2a 20 73 65 74 20 |leKind,.|./* set |
|00000310| 6d 6f 64 75 6c 65 4b 69 | 6e 64 20 74 6f 20 69 73 |moduleKi|nd to is|
|00000320| 46 75 6e 63 74 69 6f 6e | 20 6f 72 20 69 73 50 72 |Function| or isPr|
|00000330| 6f 67 72 61 6d 20 2a 2f | 0d 09 09 09 09 53 74 72 |ogram */|.....Str|
|00000340| 32 35 35 20 6e 61 6d 65 | 2c 09 09 09 09 09 2f 2a |255 name|,...../*|
|00000350| 20 74 68 65 20 6e 61 6d | 65 20 6f 66 20 74 68 65 | the nam|e of the|
|00000360| 20 70 72 6f 67 72 61 6d | 20 6f 72 20 66 75 6e 63 | program| or func|
|00000370| 74 69 6f 6e 20 28 70 61 | 73 63 61 6c 20 73 74 72 |tion (pa|scal str|
|00000380| 69 6e 67 29 20 2a 2f 0d | 09 09 09 09 6c 6f 6e 67 |ing) */.|....long|
|00000390| 2a 20 63 6f 6e 73 74 20 | 72 65 71 75 69 72 65 64 |* const |required|
|000003a0| 47 6c 6f 62 61 6c 73 2c | 09 2f 2a 20 74 68 65 20 |Globals,|./* the |
|000003b0| 6e 75 6d 62 65 72 20 6f | 66 20 62 79 74 65 73 20 |number o|f bytes |
|000003c0| 74 6f 20 62 65 20 61 6c | 6c 6f 63 61 74 65 64 20 |to be al|located |
|000003d0| 69 6e 20 45 78 74 4d 6f | 64 75 6c 65 73 50 61 72 |in ExtMo|dulesPar|
|000003e0| 61 6d 42 6c 6f 63 6b 2e | 67 6c 6f 62 61 6c 73 20 |amBlock.|globals |
|000003f0| 2a 2f 0d 09 09 09 09 09 | 09 09 09 09 09 09 09 2f |*/......|......./|
|00000400| 2a 20 73 65 74 20 72 65 | 71 75 69 72 65 64 47 6c |* set re|quiredGl|
|00000410| 6f 62 61 6c 73 20 74 6f | 20 30 20 69 66 20 79 6f |obals to| 0 if yo|
|00000420| 75 20 64 6f 6e 27 74 20 | 75 73 65 20 74 68 69 73 |u don't |use this|
|00000430| 20 66 65 61 74 75 72 65 | 20 2a 2f 0d 09 09 09 09 | feature| */.....|
|00000440| 45 78 74 4d 6f 64 75 6c | 65 73 50 61 72 61 6d 42 |ExtModul|esParamB|
|00000450| 6c 6f 63 6b 2a 20 70 62 | 29 09 09 2f 2a 20 74 68 |lock* pb|)../* th|
|00000460| 65 20 63 6f 6d 70 6c 65 | 74 65 20 70 61 72 61 6d |e comple|te param|
|00000470| 65 74 65 72 20 62 6c 6f | 63 6b 20 70 61 73 73 65 |eter blo|ck passe|
|00000480| 64 20 62 79 20 70 72 6f | 20 46 69 74 20 74 6f 20 |d by pro| Fit to |
|00000490| 74 68 65 20 2a 2f 0d 09 | 09 09 09 09 09 09 09 09 |the */..|........|
|000004a0| 09 09 09 2f 2a 20 72 6f | 75 74 69 6e 65 73 20 64 |.../* ro|utines d|
|000004b0| 65 66 69 6e 65 64 20 69 | 6e 20 74 68 69 73 20 66 |efined i|n this f|
|000004c0| 69 6c 65 2e 20 49 6e 20 | 6d 6f 73 74 20 63 61 73 |ile. In |most cas|
|000004d0| 65 73 20 69 74 20 63 61 | 6e 20 62 65 20 69 67 6e |es it ca|n be ign|
|000004e0| 6f 72 65 64 20 2a 2f 0d | 2f 2a 20 53 65 74 55 70 |ored */.|/* SetUp|
|000004f0| 20 69 73 20 63 61 6c 6c | 65 64 20 6f 6e 63 65 20 | is call|ed once |
|00000500| 77 68 65 6e 20 74 68 65 | 20 65 78 74 65 72 6e 61 |when the| externa|
|00000510| 6c 20 6d 6f 64 75 6c 65 | 20 69 73 20 6c 69 6e 6b |l module| is link|
|00000520| 65 64 20 74 6f 20 70 72 | 6f 46 69 74 20 2a 2f 0d |ed to pr|oFit */.|
|00000530| 7b 0d 09 2a 6d 6f 64 75 | 6c 65 4b 69 6e 64 3d 69 |{..*modu|leKind=i|
|00000540| 73 50 72 6f 67 72 61 6d | 3b 09 09 09 09 09 09 2f |sProgram|;....../|
|00000550| 2a 20 77 65 20 64 65 66 | 69 6e 65 20 61 20 70 72 |* we def|ine a pr|
|00000560| 6f 67 72 61 6d 20 2a 2f | 0d 09 53 65 74 50 61 73 |ogram */|..SetPas|
|00000570| 63 61 6c 53 74 72 28 6e | 61 6d 65 2c 22 5c 70 4c |calStr(n|ame,"\pL|
|00000580| 69 73 73 61 6a 6f 75 73 | 22 2c 32 35 35 29 3b 09 |issajous|",255);.|
|00000590| 09 2f 2a 20 69 74 73 20 | 6e 61 6d 65 20 2a 2f 0d |./* its |name */.|
|000005a0| 09 2a 72 65 71 75 69 72 | 65 64 47 6c 6f 62 61 6c |.*requir|edGlobal|
|000005b0| 73 20 3d 20 30 3b 09 09 | 09 09 09 09 2f 2a 20 77 |s = 0;..|..../* w|
|000005c0| 65 20 64 6f 6e 27 74 20 | 6e 65 65 64 20 67 6c 6f |e don't |need glo|
|000005d0| 62 61 6c 20 64 61 74 61 | 20 2a 2f 0d 7d 0d 0d 2f |bal data| */.}../|
|000005e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000005f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000600| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000610| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000620| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000630| 2a 2a 2a 2a 2a 2a 2a 2f | 0d 0d 76 6f 69 64 20 49 |*******/|..void I|
|00000640| 6e 69 74 69 61 6c 69 7a | 65 50 72 6f 67 20 28 45 |nitializ|eProg (E|
|00000650| 78 74 4d 6f 64 75 6c 65 | 73 50 61 72 61 6d 42 6c |xtModule|sParamBl|
|00000660| 6f 63 6b 2a 20 70 62 29 | 0d 09 2f 2a 20 43 61 6e |ock* pb)|../* Can|
|00000670| 20 62 65 20 6c 65 66 74 | 20 65 6d 74 70 79 20 69 | be left| emtpy i|
|00000680| 66 20 6e 6f 74 20 6e 65 | 65 64 65 64 2e 20 2a 2f |f not ne|eded. */|
|00000690| 0d 09 2f 2a 20 63 61 6c | 6c 65 64 20 77 68 65 6e |../* cal|led when|
|000006a0| 20 74 68 65 20 65 78 74 | 65 72 6e 61 6c 20 6d 6f | the ext|ernal mo|
|000006b0| 64 75 6c 65 20 69 73 20 | 6c 69 6e 6b 65 64 20 74 |dule is |linked t|
|000006c0| 6f 20 70 72 6f 46 69 74 | 20 61 66 74 65 72 20 53 |o proFit| after S|
|000006d0| 65 74 55 70 20 77 61 73 | 20 63 61 6c 6c 65 64 20 |etUp was| called |
|000006e0| 2a 2f 0d 09 2f 2a 20 63 | 61 6e 20 62 65 20 75 73 |*/../* c|an be us|
|000006f0| 65 64 20 74 6f 20 69 6e | 69 74 69 74 69 61 6c 69 |ed to in|ititiali|
|00000700| 7a 65 20 67 6c 6f 62 61 | 6c 20 76 61 72 69 61 62 |ze globa|l variab|
|00000710| 6c 65 73 2c 20 65 74 63 | 2e 20 2a 2f 0d 7b 0d 09 |les, etc|. */.{..|
|00000720| 2f 2a 20 69 6e 69 74 69 | 61 6c 69 7a 65 20 64 65 |/* initi|alize de|
|00000730| 66 61 75 6c 74 20 76 61 | 6c 75 65 73 3a 20 2a 2f |fault va|lues: */|
|00000740| 0d 09 09 70 62 2d 3e 76 | 5b 31 5d 20 3d 20 33 3b |...pb->v|[1] = 3;|
|00000750| 09 09 09 2f 2a 20 74 68 | 65 20 66 72 65 71 75 65 |.../* th|e freque|
|00000760| 6e 63 79 20 61 6c 6f 6e | 67 20 78 20 2a 2f 0d 09 |ncy alon|g x */..|
|00000770| 09 70 62 2d 3e 76 5b 32 | 5d 20 3d 20 34 3b 09 09 |.pb->v[2|] = 4;..|
|00000780| 09 2f 2a 20 74 68 65 20 | 66 72 65 71 75 65 6e 63 |./* the |frequenc|
|00000790| 79 20 61 6c 6f 6e 67 20 | 79 20 2a 2f 0d 09 09 70 |y along |y */...p|
|000007a0| 62 2d 3e 76 5b 33 5d 20 | 3d 20 30 2e 35 3b 09 09 |b->v[3] |= 0.5;..|
|000007b0| 09 2f 2a 20 74 68 65 20 | 73 74 65 70 20 77 69 64 |./* the |step wid|
|000007c0| 74 68 20 2a 2f 0d 09 09 | 70 62 2d 3e 76 5b 34 5d |th */...|pb->v[4]|
|000007d0| 20 3d 20 33 30 30 3b 09 | 09 09 2f 2a 20 74 68 65 | = 300;.|../* the|
|000007e0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 70 6f 69 6e 74 | number |of point|
|000007f0| 73 20 2a 2f 0d 0d 7d 0d | 0d 2f 2a 2a 2a 2a 2a 2a |s */..}.|./******|
|00000800| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000810| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000820| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000830| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000840| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000850| 2a 2f 0d 0d 23 64 65 66 | 69 6e 65 20 48 5f 5a 4f |*/..#def|ine H_ZO|
|00000860| 4f 4d 20 32 30 30 2e 30 | 0d 23 64 65 66 69 6e 65 |OM 200.0|.#define|
|00000870| 20 56 5f 5a 4f 4f 4d 20 | 32 30 30 2e 30 0d 23 64 | V_ZOOM |200.0.#d|
|00000880| 65 66 69 6e 65 20 48 5f | 4f 46 46 53 45 54 20 32 |efine H_|OFFSET 2|
|00000890| 38 30 2e 30 0d 23 64 65 | 66 69 6e 65 20 56 5f 4f |80.0.#de|fine V_O|
|000008a0| 46 46 53 45 54 20 32 32 | 30 2e 30 0d 0d 76 6f 69 |FFSET 22|0.0..voi|
|000008b0| 64 20 52 75 6e 28 45 78 | 74 4d 6f 64 75 6c 65 73 |d Run(Ex|tModules|
|000008c0| 50 61 72 61 6d 42 6c 6f | 63 6b 2a 20 70 62 29 0d |ParamBlo|ck* pb).|
|000008d0| 2f 2a 20 70 72 6f 20 46 | 69 74 20 63 61 6c 6c 73 |/* pro F|it calls|
|000008e0| 20 74 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 77 | this fu|nction w|
|000008f0| 68 65 6e 20 74 68 65 20 | 6e 61 6d 65 20 6f 66 20 |hen the |name of |
|00000900| 74 68 65 20 70 72 6f 67 | 72 61 6d 20 69 73 20 63 |the prog|ram is c|
|00000910| 68 6f 73 65 6e 20 66 72 | 6f 6d 20 74 68 65 20 2a |hosen fr|om the *|
|00000920| 2f 0d 2f 2a 20 52 75 6e | 20 50 72 6f 67 72 61 6d |/./* Run| Program|
|00000930| 20 73 75 62 6d 65 6e 75 | 20 69 6e 20 74 68 65 20 | submenu| in the |
|00000940| 6d 65 6e 75 20 43 61 6c | 63 20 2a 2f 0d 7b 0d 09 |menu Cal|c */.{..|
|00000950| 09 64 6f 75 62 6c 65 09 | 65 78 31 3d 70 62 2d 3e |.double.|ex1=pb->|
|00000960| 76 5b 31 5d 2c 20 65 78 | 32 3d 70 62 2d 3e 76 5b |v[1], ex|2=pb->v[|
|00000970| 32 5d 2c 09 2f 2a 20 62 | 75 66 66 65 72 73 20 66 |2],./* b|uffers f|
|00000980| 6f 72 20 69 6e 70 75 74 | 20 2a 2f 0d 09 09 09 09 |or input| */.....|
|00000990| 65 78 33 3d 70 62 2d 3e | 76 5b 33 5d 2c 20 65 78 |ex3=pb->|v[3], ex|
|000009a0| 34 3d 70 62 2d 3e 76 5b | 34 5d 3b 09 2f 2a 20 64 |4=pb->v[|4];./* d|
|000009b0| 65 66 61 75 6c 74 20 76 | 61 6c 75 65 73 20 61 72 |efault v|alues ar|
|000009c0| 65 20 73 74 6f 72 65 64 | 20 69 6e 20 76 5b 2e 2e |e stored| in v[..|
|000009d0| 5d 20 2a 2f 0d 09 09 49 | 6e 70 75 74 52 65 63 20 |] */...I|nputRec |
|000009e0| 72 3b 09 09 09 09 09 2f | 2a 20 64 74 6f 20 2a 2f |r;...../|* dto */|
|000009f0| 0d 09 09 69 6e 74 20 69 | 3b 0d 09 09 64 6f 75 62 |...int i|;...doub|
|00000a00| 6c 65 20 61 6e 67 6c 65 | 3b 0d 0d 2f 2f 20 67 65 |le angle|;..// ge|
|00000a10| 74 20 74 68 65 20 70 61 | 72 61 6d 65 74 65 72 73 |t the pa|rameters|
|00000a20| 20 66 72 6f 6d 20 75 73 | 65 72 2c 20 66 6f 72 20 | from us|er, for |
|00000a30| 74 68 69 73 20 77 65 20 | 70 72 65 70 61 72 65 20 |this we |prepare |
|00000a40| 74 68 65 20 69 6e 70 75 | 74 52 65 63 20 72 20 2a |the inpu|tRec r *|
|00000a50| 2f 0d 09 09 72 5b 30 5d | 2e 78 20 3d 20 26 65 78 |/...r[0]|.x = &ex|
|00000a60| 31 3b 0d 09 09 72 5b 30 | 5d 2e 73 20 3d 20 22 5c |1;...r[0|].s = "\|
|00000a70| 70 46 72 65 71 75 65 6e | 63 79 20 78 22 3b 0d 0d |pFrequen|cy x";..|
|00000a80| 09 09 72 5b 31 5d 2e 78 | 20 3d 20 26 65 78 32 3b |..r[1].x| = &ex2;|
|00000a90| 0d 09 09 72 5b 31 5d 2e | 73 20 3d 20 22 5c 70 46 |...r[1].|s = "\pF|
|00000aa0| 72 65 71 75 65 6e 63 79 | 20 79 22 3b 0d 0d 09 09 |requency| y";....|
|00000ab0| 72 5b 32 5d 2e 78 20 3d | 20 26 65 78 33 3b 0d 09 |r[2].x =| &ex3;..|
|00000ac0| 09 72 5b 32 5d 2e 73 20 | 3d 20 22 5c 70 53 74 65 |.r[2].s |= "\pSte|
|00000ad0| 70 20 5b 72 61 64 5d 22 | 3b 0d 0d 09 09 72 5b 33 |p [rad]"|;....r[3|
|00000ae0| 5d 2e 78 20 3d 20 26 65 | 78 34 3b 0d 09 09 72 5b |].x = &e|x4;...r[|
|00000af0| 33 5d 2e 73 20 3d 20 22 | 5c 70 4e 75 6d 62 65 72 |3].s = "|\pNumber|
|00000b00| 20 6f 66 20 70 6f 69 6e | 74 73 22 3b 0d 09 09 69 | of poin|ts";...i|
|00000b10| 66 20 28 49 6e 70 75 74 | 42 6f 78 28 34 2c 20 26 |f (Input|Box(4, &|
|00000b20| 72 29 29 20 72 65 74 75 | 72 6e 3b 0d 0d 09 09 69 |r)) retu|rn;....i|
|00000b30| 66 20 28 65 78 34 20 3e | 20 33 32 37 36 37 29 20 |f (ex4 >| 32767) |
|00000b40| 09 09 09 09 09 2f 2a 20 | 6d 61 6b 65 20 73 75 72 |...../* |make sur|
|00000b50| 65 20 65 78 34 20 63 61 | 6e 20 62 65 20 63 61 73 |e ex4 ca|n be cas|
|00000b60| 74 20 74 6f 20 61 6e 20 | 69 6e 74 65 67 65 72 20 |t to an |integer |
|00000b70| 2a 2f 0d 09 09 09 65 78 | 34 20 3d 20 33 32 37 36 |*/....ex|4 = 3276|
|00000b80| 37 3b 0d 09 09 65 6c 73 | 65 20 69 66 20 28 65 78 |7;...els|e if (ex|
|00000b90| 34 20 3c 20 30 29 0d 09 | 09 09 65 78 34 20 3d 20 |4 < 0)..|..ex4 = |
|00000ba0| 30 3b 0d 09 09 70 62 2d | 3e 76 5b 31 5d 20 3d 20 |0;...pb-|>v[1] = |
|00000bb0| 65 78 31 3b 09 09 09 09 | 09 09 2f 2a 20 64 65 66 |ex1;....|../* def|
|00000bc0| 61 75 6c 74 73 20 66 6f | 72 20 6e 65 78 74 20 74 |aults fo|r next t|
|00000bd0| 69 6d 65 20 2a 2f 0d 09 | 09 70 62 2d 3e 76 5b 32 |ime */..|.pb->v[2|
|00000be0| 5d 20 3d 20 65 78 32 3b | 0d 09 09 70 62 2d 3e 76 |] = ex2;|...pb->v|
|00000bf0| 5b 33 5d 20 3d 20 65 78 | 33 3b 0d 09 09 70 62 2d |[3] = ex|3;...pb-|
|00000c00| 3e 76 5b 34 5d 20 3d 20 | 65 78 34 3b 0d 0d 09 2f |>v[4] = |ex4;.../|
|00000c10| 2a 20 73 74 61 72 74 20 | 64 72 61 77 69 6e 67 20 |* start |drawing |
|00000c20| 74 68 65 20 63 75 72 76 | 65 3a 20 2a 2f 0d 09 09 |the curv|e: */...|
|00000c30| 47 72 4d 6f 76 65 54 6f | 28 48 5f 5a 4f 4f 4d 2b |GrMoveTo|(H_ZOOM+|
|00000c40| 48 5f 4f 46 46 53 45 54 | 2c 20 56 5f 4f 46 46 53 |H_OFFSET|, V_OFFS|
|00000c50| 45 54 29 3b 09 2f 2a 20 | 6d 6f 76 65 20 74 6f 20 |ET);./* |move to |
|00000c60| 74 68 65 20 73 74 61 72 | 74 69 6e 67 20 70 6f 69 |the star|ting poi|
|00000c70| 6e 74 20 2a 2f 0d 09 09 | 4f 70 65 6e 50 6f 6c 79 |nt */...|OpenPoly|
|00000c80| 67 6f 6e 28 30 2c 30 29 | 3b 0d 09 09 61 6e 67 6c |gon(0,0)|;...angl|
|00000c90| 65 20 3d 20 30 3b 0d 09 | 09 66 6f 72 20 28 69 20 |e = 0;..|.for (i |
|00000ca0| 3d 20 31 3b 69 3c 3d 20 | 65 78 34 3b 69 2b 2b 29 |= 1;i<= |ex4;i++)|
|00000cb0| 0d 09 09 09 7b 09 47 72 | 4c 69 6e 65 54 6f 28 09 |....{.Gr|LineTo(.|
|00000cc0| 48 5f 5a 4f 4f 4d 2a 63 | 6f 73 28 65 78 31 20 2a |H_ZOOM*c|os(ex1 *|
|00000cd0| 20 61 6e 67 6c 65 29 2b | 48 5f 4f 46 46 53 45 54 | angle)+|H_OFFSET|
|00000ce0| 2c 0d 09 09 09 09 09 09 | 09 56 5f 5a 4f 4f 4d 2a |,.......|.V_ZOOM*|
|00000cf0| 73 69 6e 28 65 78 32 20 | 2a 20 61 6e 67 6c 65 29 |sin(ex2 |* angle)|
|00000d00| 2b 56 5f 4f 46 46 53 45 | 54 29 3b 0d 09 09 09 09 |+V_OFFSE|T);.....|
|00000d10| 61 6e 67 6c 65 20 2b 3d | 20 65 78 33 3b 0d 09 09 |angle +=| ex3;...|
|00000d20| 09 7d 20 2f 2a 20 66 6f | 72 20 69 20 2a 2f 20 0d |.} /* fo|r i */ .|
|00000d30| 0d 09 09 43 6c 6f 73 65 | 50 6f 6c 79 67 6f 6e 28 |...Close|Polygon(|
|00000d40| 29 3b 0d 09 7d 20 2f 2a | 20 72 75 6e 20 2a 2f 0d |);..} /*| run */.|
|00000d50| 0d 2f 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |./******|********|
|00000d60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000d70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000d80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000d90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000da0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2f 0d 0d 76 6f 69 64 |********|*/..void|
|00000db0| 20 43 6c 65 61 6e 55 70 | 20 28 45 78 74 4d 6f 64 | CleanUp| (ExtMod|
|00000dc0| 75 6c 65 73 50 61 72 61 | 6d 42 6c 6f 63 6b 2a 20 |ulesPara|mBlock* |
|00000dd0| 70 62 29 0d 09 2f 2a 20 | 63 61 6c 6c 65 64 20 77 |pb)../* |called w|
|00000de0| 68 65 6e 20 74 68 65 20 | 66 75 6e 63 74 69 6f 6e |hen the |function|
|00000df0| 20 6f 72 20 70 72 6f 67 | 72 61 6d 20 69 73 20 72 | or prog|ram is r|
|00000e00| 65 6d 6f 76 65 64 20 66 | 72 6f 6d 20 70 72 6f 20 |emoved f|rom pro |
|00000e10| 46 69 74 27 73 20 6d 65 | 6e 75 73 20 2a 2f 0d 09 |Fit's me|nus */..|
|00000e20| 2f 2a 20 69 6e 20 6d 6f | 73 74 20 63 61 73 65 73 |/* in mo|st cases|
|00000e30| 2c 20 74 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |, this f|unction |
|00000e40| 63 61 6e 20 62 65 20 65 | 6d 70 74 79 20 2a 2f 0d |can be e|mpty */.|
|00000e50| 7b 0d 7d 0d 0d 0d 2f 2a | 2a 2a 2a 2a 2a 2a 2a 2a |{.}.../*|********|
|00000e60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ea0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2f 0d |********|******/.|
|00000eb0| 09 09 09 09 09 09 2f 2a | 20 66 6f 72 20 66 75 6e |....../*| for fun|
|00000ec0| 63 74 69 6f 6e 73 2c 20 | 6e 6f 74 20 75 73 65 64 |ctions, |not used|
|00000ed0| 20 68 65 72 65 3a 20 2a | 2f 0d 2f 2a 2a 2a 2a 2a | here: *|/./*****|
|00000ee0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ef0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000f30| 2a 2a 2f 0d 0d 76 6f 69 | 64 20 49 6e 69 74 69 61 |**/..voi|d Initia|
|00000f40| 6c 69 7a 65 46 75 6e 63 | 20 28 42 6f 6f 6c 65 61 |lizeFunc| (Boolea|
|00000f50| 6e 2a 20 63 6f 6e 73 74 | 20 68 61 73 44 65 72 69 |n* const| hasDeri|
|00000f60| 76 61 74 69 76 65 73 2c | 20 53 74 72 32 35 35 20 |vatives,| Str255 |
|00000f70| 64 65 73 63 72 31 73 74 | 4c 69 6e 65 2c 20 53 74 |descr1st|Line, St|
|00000f80| 72 32 35 35 20 64 65 73 | 63 72 32 6e 64 4c 69 6e |r255 des|cr2ndLin|
|00000f90| 65 2c 09 09 0d 09 09 09 | 09 09 73 68 6f 72 74 2a |e,......|..short*|
|00000fa0| 20 63 6f 6e 73 74 20 6e | 75 6d 62 65 72 4f 66 50 | const n|umberOfP|
|00000fb0| 61 72 61 6d 73 2c 20 44 | 65 66 61 75 6c 74 50 61 |arams, D|efaultPa|
|00000fc0| 72 61 6d 49 6e 66 6f 2a | 20 63 6f 6e 73 74 20 61 |ramInfo*| const a|
|00000fd0| 30 2c 20 45 78 74 4d 6f | 64 75 6c 65 73 50 61 72 |0, ExtMo|dulesPar|
|00000fe0| 61 6d 42 6c 6f 63 6b 2a | 20 70 62 29 0d 7b 7d 0d |amBlock*| pb).{}.|
|00000ff0| 76 6f 69 64 20 46 75 6e | 63 20 28 09 64 6f 75 62 |void Fun|c (.doub|
|00001000| 6c 65 20 78 2c 20 50 61 | 72 61 6d 41 72 72 61 79 |le x, Pa|ramArray|
|00001010| 20 61 2c 09 64 6f 75 62 | 6c 65 2a 20 63 6f 6e 73 | a,.doub|le* cons|
|00001020| 74 20 79 2c 20 45 78 74 | 4d 6f 64 75 6c 65 73 50 |t y, Ext|ModulesP|
|00001030| 61 72 61 6d 42 6c 6f 63 | 6b 2a 20 70 62 29 09 09 |aramBloc|k* pb)..|
|00001040| 0d 7b 7d 0d 76 6f 69 64 | 20 44 65 72 69 76 61 74 |.{}.void| Derivat|
|00001050| 69 76 65 73 28 64 6f 75 | 62 6c 65 20 78 2c 20 50 |ives(dou|ble x, P|
|00001060| 61 72 61 6d 41 72 72 61 | 79 20 61 2c 20 50 61 72 |aramArra|y a, Par|
|00001070| 61 6d 41 72 72 61 79 20 | 64 79 64 61 2c 20 45 78 |amArray |dyda, Ex|
|00001080| 74 4d 6f 64 75 6c 65 73 | 50 61 72 61 6d 42 6c 6f |tModules|ParamBlo|
|00001090| 63 6b 2a 20 70 62 29 0d | 7b 7d 0d 73 68 6f 72 74 |ck* pb).|{}.short|
|000010a0| 20 43 68 65 63 6b 28 73 | 68 6f 72 74 20 70 61 72 | Check(s|hort par|
|000010b0| 61 6d 4e 6f 2c 20 44 65 | 66 61 75 6c 74 50 61 72 |amNo, De|faultPar|
|000010c0| 61 6d 49 6e 66 6f 2a 20 | 63 6f 6e 73 74 20 61 30 |amInfo* |const a0|
|000010d0| 2c 20 45 78 74 4d 6f 64 | 75 6c 65 73 50 61 72 61 |, ExtMod|ulesPara|
|000010e0| 6d 42 6c 6f 63 6b 2a 20 | 70 62 29 0d 7b 72 65 74 |mBlock* |pb).{ret|
|000010f0| 75 72 6e 20 6f 6b 3b 7d | 0d 76 6f 69 64 20 46 69 |urn ok;}|.void Fi|
|00001100| 72 73 74 20 28 50 61 72 | 61 6d 41 72 72 61 79 20 |rst (Par|amArray |
|00001110| 61 2c 20 45 78 74 4d 6f | 64 75 6c 65 73 50 61 72 |a, ExtMo|dulesPar|
|00001120| 61 6d 42 6c 6f 63 6b 2a | 20 70 62 29 0d 7b 7d 0d |amBlock*| pb).{}.|
|00001130| 76 6f 69 64 20 4c 61 73 | 74 20 28 45 78 74 4d 6f |void Las|t (ExtMo|
|00001140| 64 75 6c 65 73 50 61 72 | 61 6d 42 6c 6f 63 6b 2a |dulesPar|amBlock*|
|00001150| 20 70 62 29 0d 7b 7d 00 | 00 00 00 00 00 00 00 00 | pb).{}.|........|
|00001160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001180| 00 00 01 00 00 00 01 54 | 00 00 00 54 00 00 00 46 |.......T|...T...F|
|00001190| 66 0a 48 c4 2f 04 4e ba | 00 40 58 4f 30 07 4c ee |f.H./.N.|.@XO0.L.|
|000011a0| 10 f0 ff ca 4e 5e 4e 75 | 4e 56 00 00 48 e7 00 18 |....N^Nu|NV..H...|
|000011b0| 0b 6c 69 73 73 61 6a 6f | 75 73 2e 63 02 00 00 00 |.lissajo|us.c....|
|000011c0| 54 45 58 54 4b 41 48 4c | 01 00 00 3c 00 c0 00 00 |TEXTKAHL|...<....|
|000011d0| 00 00 54 45 58 54 4b 41 | 48 4c 01 00 00 3c 00 c0 |..TEXTKA|HL...<..|
|000011e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000011f0| 00 00 a7 69 ce 71 00 00 | 10 d7 00 00 01 9a ff fa |...i.q..|........|
|00001200| 48 6e ff ff 48 6e ff fa | 2f 38 02 a6 4e ba 00 dc |Hn..Hn..|/8..N...|
|00001210| 3e 00 4f ef 00 0c 67 18 | 48 6e ff ff 48 6e ff fa |>.O...g.|Hn..Hn..|
|00001220| 2f 38 02 aa 4e ba 00 c4 | 3e 00 4f ef 00 0c 66 30 |/8..N...|>.O...f0|
|00001230| 70 40 c0 2e ff ff 67 06 | 20 6e ff fa a0 1f 10 2e |p@....g.| n......|
|00001240| ff ff 48 80 32 3c 00 80 | c2 00 67 10 20 6e ff fa |..H.2<..|..g. n..|
|00001250| a1 28 26 48 20 0b 67 04 | 20 4b a0 23 70 00 28 80 |.(&H .g.| K.#p.(.|
|00001260| 30 07 4c ee 18 80 ff ee | 4e 5e 4e 75 4e 56 ff fa |0.L.....|N^NuNV..|
|00001270| 48 e7 01 08 42 47 2d 6e | 00 08 ff fa 66 04 70 00 |H...BG-n|....f.p.|
|00001280| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00001290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000012a0| 00 00 00 00 00 00 00 03 | 00 04 00 57 00 03 03 10 |........|...W....|
|000012b0| 02 70 00 57 00 03 03 10 | 02 70 ad 9f e9 21 00 00 |.p.W....|.p...!..|
|000012c0| 08 11 00 00 08 11 00 00 | 06 ef 00 00 00 00 00 04 |........|........|
|000012d0| 00 01 00 01 00 00 01 00 | 00 00 01 54 00 00 00 54 |........|...T...T|
|000012e0| 00 00 00 46 02 94 a5 c0 | 20 52 00 00 00 1c 00 46 |...F....| R.....F|
|000012f0| 00 01 4d 50 53 52 00 00 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|00001300| 00 1e 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |........|........|
|00001310| ff ff 00 00 00 4c 00 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|00001320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001330| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001340| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001350| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+