/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (ppc).sea / pro Fit 5.0 demo (ppc) / Functions & Programs / •Gadgets / drawing macros / oval

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 04 6f 76 61 6c 00 00 | 00 00 00 00 00 00 00 00 |..oval..|........|
|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 66 74 46 43 4e 4c 66 | 74 01 00 00 00 00 00 00 |.ftFCNLf|t.......|
|00000050| 00 00 00 00 00 05 61 00 | 00 03 2f ad d6 1e f0 ad |......a.|../.....|
|00000060| d6 1e f0 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 fc ae 00 00 |........|........|
|00000080| 7b 20 0d 20 54 68 69 73 | 20 70 72 6f 67 72 61 6d |{ . This| program|
|00000090| 20 64 72 61 77 73 20 61 | 6e 20 6f 76 61 6c 20 73 | draws a|n oval s|
|000000a0| 68 61 70 65 20 61 74 20 | 74 68 65 20 6c 61 73 74 |hape at |the last|
|000000b0| 20 63 6c 69 63 6b 65 64 | 20 70 6f 69 6e 74 20 69 | clicked| point i|
|000000c0| 6e 20 74 68 65 20 64 72 | 61 77 69 6e 67 0d 20 77 |n the dr|awing. w|
|000000d0| 69 6e 64 6f 77 2e 20 54 | 68 65 20 6f 76 61 6c 20 |indow. T|he oval |
|000000e0| 73 68 61 70 65 20 69 73 | 20 64 72 61 77 6e 20 75 |shape is| drawn u|
|000000f0| 73 69 6e 67 20 61 20 73 | 6d 6f 6f 74 68 20 70 6f |sing a s|mooth po|
|00000100| 6c 79 67 6f 6e 2e 0d 20 | 0d 20 54 68 65 20 64 69 |lygon.. |. The di|
|00000110| 6d 65 6e 73 69 6f 6e 73 | 20 61 6e 64 20 6f 72 69 |mensions| and ori|
|00000120| 65 6e 74 61 74 69 6f 6e | 20 6f 66 20 74 68 65 20 |entation| of the |
|00000130| 6f 76 61 6c 20 61 72 65 | 20 73 65 74 20 69 6e 20 |oval are| set in |
|00000140| 74 68 65 20 70 72 6f 63 | 65 64 75 72 65 0d 20 49 |the proc|edure. I|
|00000150| 6e 69 74 69 61 6c 69 7a | 65 2c 20 62 65 6c 6f 77 |nitializ|e, below|
|00000160| 2e 0d 20 0d 20 54 6f 20 | 75 73 65 20 74 68 65 20 |.. . To |use the |
|00000170| 70 72 6f 67 72 61 6d 2c | 20 68 69 74 20 63 6d 64 |program,| hit cmd|
|00000180| 2d 4c 20 28 6f 72 20 63 | 6c 69 63 6b 20 74 68 65 |-L (or c|lick the|
|00000190| 20 41 64 64 20 62 75 74 | 74 6f 6e 29 2c 20 6c 6f | Add but|ton), lo|
|000001a0| 6f 6b 20 61 74 20 69 74 | 73 20 0d 09 6b 65 79 62 |ok at it|s ..keyb|
|000001b0| 6f 61 72 64 20 65 71 75 | 69 76 61 6c 65 6e 74 20 |oard equ|ivalent |
|000001c0| 69 6e 20 74 68 65 20 4d | 69 73 63 20 6d 65 6e 75 |in the M|isc menu|
|000001d0| 2c 20 63 6c 69 6b 20 69 | 6e 20 74 68 65 20 64 72 |, clik i|n the dr|
|000001e0| 61 77 69 6e 67 20 77 69 | 6e 64 6f 77 2c 20 0d 09 |awing wi|ndow, ..|
|000001f0| 61 6e 64 20 72 75 6e 20 | 74 68 65 20 70 72 6f 67 |and run |the prog|
|00000200| 72 61 6d 2e 20 54 68 65 | 6e 20 63 6c 69 63 6b 20 |ram. The|n click |
|00000210| 73 6f 6d 65 77 68 65 72 | 65 20 65 6c 73 65 20 61 |somewher|e else a|
|00000220| 6e 64 20 72 75 6e 20 74 | 68 65 20 70 72 6f 67 72 |nd run t|he progr|
|00000230| 61 6d 20 61 67 61 69 6e | 2e 20 0d 7d 0d 0d 0d 0d |am again|. .}....|
|00000240| 70 72 6f 67 72 61 6d 20 | 4f 76 61 6c 3b 0d 76 61 |program |Oval;.va|
|00000250| 72 20 68 2c 76 2c 6d 61 | 6a 6f 72 41 78 69 73 2c |r h,v,ma|jorAxis,|
|00000260| 6d 69 6e 6f 72 41 78 69 | 73 2c 78 2c 61 6e 67 3b |minorAxi|s,x,ang;|
|00000270| 0d 0d 70 72 6f 63 65 64 | 75 72 65 20 69 6e 69 74 |..proced|ure init|
|00000280| 69 61 6c 69 7a 65 3b 0d | 62 65 67 69 6e 0d 09 6d |ialize;.|begin..m|
|00000290| 61 6a 6f 72 41 78 69 73 | 3a 3d 35 30 3b 09 09 09 |ajorAxis|:=50;...|
|000002a0| 7b 20 6d 61 6a 6f 72 20 | 61 78 69 73 20 6f 66 20 |{ major |axis of |
|000002b0| 74 68 65 20 65 6c 6c 69 | 70 73 65 20 7d 0d 09 6d |the elli|pse }..m|
|000002c0| 69 6e 6f 72 41 78 69 73 | 3a 3d 31 30 3b 09 09 09 |inorAxis|:=10;...|
|000002d0| 7b 20 6d 69 6e 6f 72 20 | 61 78 69 73 20 6f 66 20 |{ minor |axis of |
|000002e0| 74 68 65 20 65 6c 6c 69 | 70 73 65 20 7d 0d 09 61 |the elli|pse }..a|
|000002f0| 6e 67 3a 3d 31 30 3b 09 | 09 09 09 09 09 09 09 09 |ng:=10;.|........|
|00000300| 7b 20 6f 72 69 65 6e 74 | 61 74 69 6f 6e 20 7d 0d |{ orient|ation }.|
|00000310| 09 0d 09 78 3a 3d 31 2d | 74 61 6e 28 70 69 2f 38 |...x:=1-|tan(pi/8|
|00000320| 29 2a 32 3b 0d 09 61 6e | 67 3a 3d 61 6e 67 2a 70 |)*2;..an|g:=ang*p|
|00000330| 69 2f 31 38 30 3b 0d 65 | 6e 64 3b 0d 0d 70 72 6f |i/180;.e|nd;..pro|
|00000340| 63 65 64 75 72 65 20 6c | 28 78 2c 79 3a 72 65 61 |cedure l|(x,y:rea|
|00000350| 6c 29 3b 0d 62 65 67 69 | 6e 0d 09 6c 69 6e 65 28 |l);.begi|n..line(|
|00000360| 63 6f 73 28 61 6e 67 29 | 2a 78 2b 73 69 6e 28 61 |cos(ang)|*x+sin(a|
|00000370| 6e 67 29 2a 79 2c 2d 73 | 69 6e 28 61 6e 67 29 2a |ng)*y,-s|in(ang)*|
|00000380| 78 20 2b 20 63 6f 73 28 | 61 6e 67 29 2a 79 29 3b |x + cos(|ang)*y);|
|00000390| 0d 65 6e 64 3b 0d 0d 70 | 72 6f 63 65 64 75 72 65 |.end;..p|rocedure|
|000003a0| 20 6d 28 78 2c 79 3a 72 | 65 61 6c 29 3b 0d 62 65 | m(x,y:r|eal);.be|
|000003b0| 67 69 6e 0d 09 6d 6f 76 | 65 28 63 6f 73 28 61 6e |gin..mov|e(cos(an|
|000003c0| 67 29 2a 78 2b 73 69 6e | 28 61 6e 67 29 2a 79 2c |g)*x+sin|(ang)*y,|
|000003d0| 2d 73 69 6e 28 61 6e 67 | 29 2a 78 20 2b 20 63 6f |-sin(ang|)*x + co|
|000003e0| 73 28 61 6e 67 29 2a 79 | 29 3b 0d 65 6e 64 3b 0d |s(ang)*y|);.end;.|
|000003f0| 0d 0d 62 65 67 69 6e 0d | 20 20 09 09 47 65 74 43 |..begin.|  ..GetC|
|00000400| 6c 69 63 6b 65 64 43 6f | 6f 72 64 28 68 2c 76 29 |lickedCo|ord(h,v)|
|00000410| 3b 0d 09 09 20 20 76 3a | 3d 76 2d 6d 69 6e 6f 72 |;...  v:|=v-minor|
|00000420| 41 78 69 73 3b 0d 09 09 | 20 09 7b 44 72 61 77 45 |Axis;...| .{DrawE|
|00000430| 6c 6c 69 70 73 65 28 68 | 2d 32 2a 6d 61 6a 6f 72 |llipse(h|-2*major|
|00000440| 41 78 69 73 2c 76 2c 68 | 2b 32 2a 6d 61 6a 6f 72 |Axis,v,h|+2*major|
|00000450| 41 78 69 73 2c 76 2b 34 | 2a 6d 69 6e 6f 72 41 78 |Axis,v+4|*minorAx|
|00000460| 69 73 29 3b 7d 0d 20 20 | 20 20 6f 70 65 6e 70 6f |is);}.  |  openpo|
|00000470| 6c 79 28 31 2c 31 29 3b | 0d 20 20 20 20 6d 6f 76 |ly(1,1);|.    mov|
|00000480| 65 74 6f 28 68 2c 76 29 | 3b 0d 20 20 20 20 6d 28 |eto(h,v)|;.    m(|
|00000490| 30 2c 2d 6d 69 6e 6f 72 | 41 78 69 73 29 3b 0d 20 |0,-minor|Axis);. |
|000004a0| 20 20 20 6c 28 6d 61 6a | 6f 72 41 78 69 73 2a 28 |   l(maj|orAxis*(|
|000004b0| 31 2d 78 29 2c 30 29 3b | 0d 20 20 20 20 6c 28 6d |1-x),0);|.    l(m|
|000004c0| 61 6a 6f 72 41 78 69 73 | 2a 28 31 2b 78 29 2c 6d |ajorAxis|*(1+x),m|
|000004d0| 69 6e 6f 72 41 78 69 73 | 2a 28 31 2b 78 29 29 3b |inorAxis|*(1+x));|
|000004e0| 0d 20 20 20 20 6c 28 30 | 2c 32 2a 6d 69 6e 6f 72 |.    l(0|,2*minor|
|000004f0| 41 78 69 73 2a 28 31 2d | 78 29 29 3b 0d 20 20 20 |Axis*(1-|x));.   |
|00000500| 20 6c 28 2d 6d 61 6a 6f | 72 41 78 69 73 2a 28 31 | l(-majo|rAxis*(1|
|00000510| 2b 78 29 2c 6d 69 6e 6f | 72 41 78 69 73 2a 28 31 |+x),mino|rAxis*(1|
|00000520| 2b 78 29 29 3b 0d 20 20 | 20 20 6c 28 2d 32 2a 6d |+x));.  |  l(-2*m|
|00000530| 61 6a 6f 72 41 78 69 73 | 2a 28 31 2d 78 29 2c 30 |ajorAxis|*(1-x),0|
|00000540| 29 3b 0d 20 20 20 20 6c | 28 2d 6d 61 6a 6f 72 41 |);.    l|(-majorA|
|00000550| 78 69 73 2a 28 31 2b 78 | 29 2c 2d 6d 69 6e 6f 72 |xis*(1+x|),-minor|
|00000560| 41 78 69 73 2a 28 31 2b | 78 29 29 3b 0d 20 20 20 |Axis*(1+|x));.   |
|00000570| 20 6c 28 30 2c 2d 32 2a | 6d 69 6e 6f 72 41 78 69 | l(0,-2*|minorAxi|
|00000580| 73 2a 28 31 2d 78 29 29 | 3b 0d 20 20 20 20 6c 28 |s*(1-x))|;.    l(|
|00000590| 6d 61 6a 6f 72 41 78 69 | 73 2a 28 31 2b 78 29 2c |majorAxi|s*(1+x),|
|000005a0| 2d 6d 69 6e 6f 72 41 78 | 69 73 2a 28 31 2b 78 29 |-minorAx|is*(1+x)|
|000005b0| 29 3b 0d 20 20 20 20 6c | 28 6d 61 6a 6f 72 41 78 |);.    l|(majorAx|
|000005c0| 69 73 2a 28 31 2d 78 29 | 2c 30 29 3b 0d 20 20 20 |is*(1-x)|,0);.   |
|000005d0| 20 63 6c 6f 73 65 70 6f | 6c 79 3b 0d 65 6e 64 3b | closepo|ly;.end;|
|000005e0| 0d 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 01 00 00 00 02 b9 | 00 00 01 b9 00 00 00 76 |........|.......v|
|00000610| 4a 47 66 02 3e 04 31 c7 | 0a 60 3d 6e ff ec 00 14 |JGf.>.1.|.`=n....|
|00000620| 4c ee 10 f0 ff d4 4e 5e | 20 5f 4f ef 00 0c 4e d0 |L.....N^| _O...N.|
|00000630| 04 6f 76 61 6c 1c 02 00 | 00 00 66 74 46 43 4e 4c |.oval...|..ftFCNL|
|00000640| 66 74 01 00 ff ff ff ff | 00 00 00 00 30 a2 00 00 |ft......|....0...|
|00000650| 00 00 66 74 46 43 4e 4c | 66 74 01 00 ff ff ff ff |..ftFCNL|ft......|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 ad d3 dd 7f 00 00 | 05 61 00 00 03 2f 67 0c |........|.a.../g.|
|00000680| 3f 06 2f 05 2f 0c a8 1b | 60 00 00 ca 55 8f 3f 06 |?././...|`...U.?.|
|00000690| 2f 05 2f 0c 70 00 1f 00 | 48 6e ff ee 4e ba fc 84 |/./.p...|Hn..N...|
|000006a0| 3e 1f 66 0c 55 8f 3f 2e | ff ee 4e ba fa b8 3e 1f |>.f.U.?.|..N...>.|
|000006b0| 0c 47 ff d5 66 14 55 8f | 3f 06 2f 05 2f 0c 70 00 |.G..f.U.|?././.p.|
|000006c0| 2f 00 2f 00 4e ba fc b8 | 3e 1f 4a 47 66 00 00 82 |/./.N...|>.JGf...|
|000006d0| 55 8f 70 00 2f 00 48 6e | ff f0 48 6e ff f2 4e ba |U.p./.Hn|..Hn..N.|
|000006e0| fb 64 3e 1f 66 6a 55 8f | 3f 2e ff f0 48 6e ff f6 |.d>.fjU.|?...Hn..|
|000006f0| 48 6e ff f8 48 6e ff fc | 4e ba fd a8 3e 1f 66 50 |Hn..Hn..|N...>.fP|
|00000700| 00 00 00 08 00 45 00 13 | 01 d0 02 07 00 00 01 06 |.....E..|........|
|00000710| 00 04 00 09 00 00 06 4d | 6f 6e 61 63 6f 2a 40 82 |.......M|onaco*@.|
|00000720| c6 08 00 00 00 e6 b0 b6 | 00 d4 33 80 00 d4 33 7c |........|..3...3||
|00000730| 00 d4 e9 86 00 08 00 e6 | a9 24 40 82 c5 02 00 00 |........|.$@.....|
|00000740| 00 e6 b0 b6 00 d4 33 80 | 00 d4 33 7c 00 d4 e9 6c |......3.|..3|...l|
|00000750| 00 08 00 e6 a5 f0 00 e6 | a5 f8 00 e6 a6 00 00 d4 |........|........|
|00000760| e9 4e 00 00 00 00 00 d4 | e9 4e 00 e6 a9 80 40 82 |.N......|.N....@.|
|00000770| c1 d2 00 d4 e9 6c 00 08 | 00 e6 aa ac 40 82 c3 90 |.....l..|....@...|
|00000780| 00 e6 a9 64 00 00 00 00 | 00 00 00 00 00 48 00 ff |...d....|.....H..|
|00000790| 00 00 00 08 00 01 00 08 | 00 d7 9a 03 ff 00 00 81 |........|........|
|000007a0| 00 08 00 00 ff ff ff ff | 00 00 00 00 00 00 00 e6 |........|........|
|000007b0| aa ac 40 82 c1 90 00 e6 | a9 92 40 82 00 00 00 00 |..@.....|..@.....|
|000007c0| 00 d4 2e 8e 00 e6 aa b4 | 40 83 19 82 00 ab 01 f4 |........|@.......|
|000007d0| 00 00 00 00 00 d4 33 7c | 00 c8 c3 6c 00 c8 c3 6c |......3||...l...l|
|000007e0| 00 e6 a9 ac 00 e6 aa ac | 00 01 00 00 00 81 ff ff |........|........|
|000007f0| 00 08 00 00 00 00 00 12 | 00 29 ff fd 00 0c ff 14 |........|.)......|
|00000800| 00 00 00 00 ff 00 00 03 | 00 01 6f ff 00 00 00 00 |........|..o.....|
|00000810| 00 06 00 00 80 00 00 00 | 00 10 00 00 00 00 00 00 |........|........|
|00000820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 04 00 00 |........|........|
|00000830| 00 01 00 00 00 78 00 03 | 00 00 00 48 00 48 00 00 |.....x..|...H.H..|
|00000840| 00 00 03 00 02 4c ff f4 | ff f4 03 0c 02 58 03 47 |.....L..|.....X.G|
|00000850| 05 28 03 fc 00 02 00 00 | 00 48 00 48 00 00 00 00 |.(......|.H.H....|
|00000860| 02 d8 02 28 00 01 00 00 | 00 64 00 00 00 01 00 03 |...(....|.d......|
|00000870| 03 03 00 00 00 01 27 0f | 00 01 00 01 00 00 00 00 |......'.|........|
|00000880| 00 00 00 00 00 00 00 00 | 60 08 00 19 01 90 00 00 |........|`.......|
|00000890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 00 07 06 70 72 6f 46 69 | 74 00 00 01 00 00 00 02 |...proFi|t.......|
|000008c0| b9 00 00 01 b9 00 00 00 | 76 00 d4 3a 0c 10 e6 00 |........|v..:....|
|000008d0| 00 00 1c 00 76 00 01 66 | 49 4e 46 00 04 00 12 53 |....v..f|INF....S|
|000008e0| 54 52 20 00 00 00 4e 00 | 81 ff ff 00 00 00 00 00 |TR ...N.|........|
|000008f0| d4 2c 08 00 82 ff ff 00 | 00 00 0c 00 d4 2b 88 00 |.,......|.....+..|
|00000900| 83 ff ff 00 00 01 16 00 | d4 2b cc 00 85 ff ff 00 |........|.+......|
|00000910| 00 01 2a 00 d4 2d 6c 00 | 84 ff ff 00 00 01 32 00 |..*..-l.|......2.|
|00000920| d4 2b f0 bf f4 ff ff 00 | 00 01 ae 00 d4 2b bc 00 |.+......|.....+..|
|00000930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000950| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000960| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+