/ 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) / Examples / Programming - drawing / Lissajous program

< prev

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 11 4c 69 73 73 61 6a | 6f 75 73 20 70 72 6f 67 |..Lissaj|ous prog|
|00000010| 72 61 6d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ram.....|........|
|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 66 74 46 43 4e 4c 66 | 74 01 00 00 00 00 00 00 |.ftFCNLf|t.......|
|00000050| 00 00 00 00 00 03 56 00 | 00 03 2f ad b8 3f a0 ad |......V.|../..?..|
|00000060| b8 3f a0 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 97 f4 00 00 |........|........|
|00000080| 7b 0d 54 68 65 20 66 6f | 6c 6c 6f 77 69 6e 67 20 |{.The fo|llowing |
|00000090| 70 72 6f 67 72 61 6d 20 | 64 72 61 77 73 20 61 20 |program |draws a |
|000000a0| 64 61 74 61 20 73 65 74 | 20 5b 78 69 2c 79 69 5d |data set| [xi,yi]|
|000000b0| 20 6f 66 20 74 68 65 20 | 66 6f 72 6d 0d 20 20 20 | of the |form.   |
|000000c0| 0d 20 20 20 20 20 20 20 | 20 78 69 20 3d 20 73 69 |.       | xi = si|
|000000d0| 6e 28 61 2a 69 29 2c 20 | 20 79 69 20 3d 20 63 6f |n(a*i), | yi = co|
|000000e0| 73 28 61 2a 69 29 2e 0d | 20 20 20 20 0d 54 6f 20 |s(a*i)..|    .To |
|000000f0| 63 6f 6d 70 69 6c 65 20 | 74 68 69 73 20 70 72 6f |compile |this pro|
|00000100| 67 72 61 6d 2c 20 73 65 | 6c 65 63 74 20 27 41 64 |gram, se|lect 'Ad|
|00000110| 64 20 74 6f 20 4d 65 6e | 75 27 20 66 72 6f 6d 20 |d to Men|u' from |
|00000120| 74 68 65 20 27 4d 69 73 | 63 27 20 6d 65 6e 75 2e |the 'Mis|c' menu.|
|00000130| 0d 54 6f 20 72 75 6e 20 | 74 68 69 73 20 70 72 6f |.To run |this pro|
|00000140| 67 72 61 6d 2c 20 73 65 | 6c 65 63 74 20 27 4c 69 |gram, se|lect 'Li|
|00000150| 73 73 61 6a 6f 75 73 27 | 20 66 72 6f 6d 20 74 68 |ssajous'| from th|
|00000160| 65 20 20 27 4d 69 73 63 | 27 20 6d 65 6e 75 2e 0d |e  'Misc|' menu..|
|00000170| 7d 20 0d 20 20 20 0d 0d | 70 72 6f 67 72 61 6d 20 |} .   ..|program |
|00000180| 4c 69 73 73 61 6a 6f 75 | 73 3b 0d 0d 20 20 63 6f |Lissajou|s;..  co|
|00000190| 6e 73 74 0d 20 20 20 20 | 68 4f 66 66 73 65 74 20 |nst.    |hOffset |
|000001a0| 3d 20 32 32 30 3b 0d 20 | 20 20 20 76 4f 66 66 73 |= 220;. |   vOffs|
|000001b0| 65 74 20 3d 20 32 32 30 | 3b 0d 20 20 20 20 68 5a |et = 220|;.    hZ|
|000001c0| 6f 6f 6d 20 3d 20 32 30 | 30 3b 0d 20 20 20 20 76 |oom = 20|0;.    v|
|000001d0| 5a 6f 6f 6d 20 3d 20 32 | 30 30 3b 0d 0d 76 61 72 |Zoom = 2|00;..var|
|000001e0| 0d 20 20 6e 72 50 6f 69 | 6e 74 73 2c 69 3a 20 69 |.  nrPoi|nts,i: i|
|000001f0| 6e 74 65 67 65 72 3b 0d | 20 20 61 2c 62 3a 20 72 |nteger;.|  a,b: r|
|00000200| 65 61 6c 3b 0d 20 20 0d | 62 65 67 69 6e 0d 20 20 |eal;.  .|begin.  |
|00000210| 6e 72 50 6f 69 6e 74 73 | 20 3a 3d 20 34 30 30 3b |nrPoints| := 400;|
|00000220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000230| 20 20 20 09 09 09 09 20 | 20 7b 20 64 65 66 61 75 |   .... | { defau|
|00000240| 6c 74 20 76 61 6c 75 65 | 73 20 7d 0d 20 20 61 20 |lt value|s }.  a |
|00000250| 3a 3d 20 31 3b 20 20 62 | 20 3a 3d 20 33 3b 0d 20 |:= 1;  b| := 3;. |
|00000260| 20 49 6e 70 75 74 28 27 | 4e 75 6d 62 65 72 20 6f | Input('|Number o|
|00000270| 66 20 70 6f 69 6e 74 73 | 27 2c 6e 72 50 6f 69 6e |f points|',nrPoin|
|00000280| 74 73 2c 61 2c 62 29 3b | 20 20 7b 20 67 65 74 20 |ts,a,b);|  { get |
|00000290| 74 68 65 20 76 61 6c 75 | 65 73 20 66 72 6f 6d 20 |the valu|es from |
|000002a0| 75 73 65 72 20 7d 0d 0d | 20 20 4d 6f 76 65 54 6f |user }..|  MoveTo|
|000002b0| 28 68 5a 6f 6f 6d 20 2a | 20 73 69 6e 28 61 2a 30 |(hZoom *| sin(a*0|
|000002c0| 29 20 2b 20 68 4f 66 66 | 73 65 74 2c 20 76 5a 6f |) + hOff|set, vZo|
|000002d0| 6f 6d 20 2a 20 63 6f 73 | 28 62 2a 30 29 20 2b 20 |om * cos|(b*0) + |
|000002e0| 76 4f 66 66 73 65 74 29 | 3b 0d 20 20 4f 70 65 6e |vOffset)|;.  Open|
|000002f0| 50 6f 6c 79 28 30 2c 20 | 66 61 6c 73 65 29 3b 20 |Poly(0, |false); |
|00000300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000310| 20 20 20 20 20 7b 20 6d | 65 72 67 65 20 6c 69 6e |     { m|erge lin|
|00000320| 65 73 20 69 6e 74 6f 20 | 61 20 70 6f 6c 79 67 6f |es into |a polygo|
|00000330| 6e 20 7d 0d 20 20 66 6f | 72 20 69 20 3a 3d 20 31 |n }.  fo|r i := 1|
|00000340| 20 74 6f 20 6e 72 50 6f | 69 6e 74 73 20 64 6f 20 | to nrPo|ints do |
|00000350| 62 65 67 69 6e 20 20 20 | 20 20 20 20 20 20 20 7b |begin   |       {|
|00000360| 20 63 61 6c 63 75 6c 61 | 74 65 20 74 68 65 20 70 | calcula|te the p|
|00000370| 6f 69 6e 74 73 20 7d 0d | 20 20 20 20 4c 69 6e 65 |oints }.|    Line|
|00000380| 54 6f 28 68 5a 6f 6f 6d | 20 2a 20 73 69 6e 28 61 |To(hZoom| * sin(a|
|00000390| 2a 69 29 20 2b 20 68 4f | 66 66 73 65 74 2c 20 76 |*i) + hO|ffset, v|
|000003a0| 5a 6f 6f 6d 20 2a 20 63 | 6f 73 28 62 2a 69 29 20 |Zoom * c|os(b*i) |
|000003b0| 2b 20 76 4f 66 66 73 65 | 74 29 3b 0d 20 20 65 6e |+ vOffse|t);.  en|
|000003c0| 64 3b 0d 20 20 43 6c 6f | 73 65 50 6f 6c 79 3b 0d |d;.  Clo|sePoly;.|
|000003d0| 65 6e 64 3b 0d 0d 00 00 | 00 00 00 00 00 00 00 00 |end;....|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 01 00 00 00 02 b9 | 00 00 01 b9 00 00 00 76 |........|.......v|
|00000410| 70 72 6f 67 72 61 6d 20 | 64 72 61 77 73 20 61 20 |program |draws a |
|00000420| 64 61 74 61 20 73 65 74 | 20 5b 78 69 2c 79 69 5d |data set| [xi,yi]|
|00000430| 11 4c 69 73 73 61 6a 6f | 75 73 20 70 72 6f 67 72 |.Lissajo|us progr|
|00000440| 61 6d 02 00 00 00 66 74 | 46 43 4e 4c 66 74 01 00 |am....ft|FCNLft..|
|00000450| 00 00 66 74 46 43 4e 4c | 66 74 01 00 ff ff ff ff |..ftFCNL|ft......|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 80 00 00 00 00 00 |........|........|
|00000470| 00 00 a4 fe a7 fd 00 00 | 03 56 00 00 03 2f 72 6f |........|.V.../ro|
|00000480| 67 72 61 6d 2c 20 73 65 | 6c 65 63 74 20 27 41 64 |gram, se|lect 'Ad|
|00000490| 64 20 74 6f 20 4d 65 6e | 75 27 20 66 72 6f 6d 20 |d to Men|u' from |
|000004a0| 74 68 65 20 27 4d 69 73 | 63 27 20 6d 65 6e 75 2e |the 'Mis|c' menu.|
|000004b0| 0d 54 6f 20 72 75 6e 20 | 74 68 69 73 20 70 72 6f |.To run |this pro|
|000004c0| 67 72 61 6d 2c 20 73 65 | 6c 65 63 74 20 27 4c 69 |gram, se|lect 'Li|
|000004d0| 73 73 61 6a 6f 75 73 27 | 20 66 72 6f 6d 20 74 68 |ssajous'| from th|
|000004e0| 65 20 20 27 4d 69 73 63 | 27 20 6d 65 6e 75 2e 0d |e  'Misc|' menu..|
|000004f0| 7d 20 0d 20 20 20 0d 0d | 70 72 6f 67 72 61 6d 20 |} .   ..|program |
|00000500| 00 00 00 08 00 29 01 3f | 00 f5 02 68 00 00 01 06 |.....).?|...h....|
|00000510| 00 04 00 09 00 00 06 4d | 6f 6e 61 63 6f 28 40 a1 |.......M|onaco(@.|
|00000520| 27 a0 00 51 6c 80 02 a6 | 23 20 00 01 d9 94 00 1a |'..Ql...|# ......|
|00000530| 20 68 02 a6 24 9c 02 a6 | 23 20 00 19 7a e4 00 0b | h..$...|# ..z...|
|00000540| 00 06 00 0b 00 06 02 a6 | 22 e0 02 80 90 c0 00 00 |........|".......|
|00000550| 00 00 ff ff ff ff 02 a6 | 24 00 00 0b d9 74 03 22 |........|$....t."|
|00000560| 14 88 00 00 00 02 00 2a | 00 11 02 80 38 a0 00 19 |.......*|....8...|
|00000570| 7a c0 02 a6 23 58 00 19 | 7a cc 02 a6 23 58 00 00 |z...#X..|z...#X..|
|00000580| 34 b0 00 00 34 b0 02 80 | 94 a0 00 45 74 60 00 45 |4...4...|...Et`.E|
|00000590| 74 20 02 9c fc 2f 00 00 | 00 01 00 45 45 50 02 80 |t .../..|...EEP..|
|000005a0| 91 62 00 00 00 04 02 80 | 91 4d 40 88 c9 3c 00 00 |.b......|.M@..<..|
|000005b0| 00 04 00 45 74 30 00 00 | 00 04 00 0b 73 e0 00 19 |...Et0..|....s...|
|000005c0| 7a cc 00 19 7a c0 02 a6 | 23 90 48 00 04 28 00 1a |z...z...|#.H..(..|
|000005d0| 18 8c 00 00 03 e1 02 a6 | 23 70 00 19 7a e4 00 11 |........|#p..z...|
|000005e0| 7e b8 02 a6 24 24 02 a6 | 23 90 00 01 2f a4 00 17 |~...$$..|#.../...|
|000005f0| 57 1c 00 00 00 04 02 a6 | 23 90 42 00 04 04 00 0b |W.......|#.B.....|
|00000600| 73 e0 02 9c fc 2f 02 a6 | 23 c0 02 a6 23 b0 02 a6 |s..../..|#...#...|
|00000610| 23 b4 00 00 00 02 00 00 | 00 10 00 00 00 00 00 00 |#.......|........|
|00000620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 04 00 00 |........|........|
|00000630| 00 01 00 00 00 78 00 03 | 00 00 00 48 00 48 00 00 |.....x..|...H.H..|
|00000640| 00 00 02 da 02 28 ff e1 | ff e2 02 f9 02 46 03 47 |.....(..|.....F.G|
|00000650| 05 28 03 fc 00 02 00 00 | 00 48 00 48 00 00 00 00 |.(......|.H.H....|
|00000660| 02 da 02 28 00 01 00 00 | 00 64 00 00 00 01 00 01 |...(....|.d......|
|00000670| 01 01 00 00 00 01 27 0f | 00 01 00 01 00 00 00 00 |......'.|........|
|00000680| 00 00 00 00 00 00 00 00 | 68 08 00 19 01 90 00 00 |........|h.......|
|00000690| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 01 00 00 |........|........|
|000006a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006b0| 00 07 06 70 72 6f 46 69 | 74 00 00 01 00 00 00 02 |...proFi|t.......|
|000006c0| b9 00 00 01 b9 00 00 00 | 76 02 80 c7 a0 23 a0 00 |........|v....#..|
|000006d0| 00 00 1c 00 76 00 01 66 | 49 4e 46 00 04 00 12 53 |....v..f|INF....S|
|000006e0| 54 52 20 00 00 00 4e 00 | 81 ff ff 00 00 00 00 02 |TR ...N.|........|
|000006f0| 80 c1 b0 00 82 ff ff 00 | 00 00 0c 02 80 c1 ec 00 |........|........|
|00000700| 83 ff ff 00 00 01 16 02 | 7e ea 2c 00 85 ff ff 00 |........|~.,.....|
|00000710| 00 01 2a 02 80 bf 44 00 | 84 ff ff 00 00 01 32 02 |..*...D.|......2.|
|00000720| 80 c2 00 bf f4 ff ff 00 | 00 01 ae 02 80 bf 40 00 |........|......@.|
|00000730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+