home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p230 / 1.ddi / ACADLIB1.DOC < prev    next >
Encoding:
Text File  |  1989-06-12  |  36.0 KB  |  855 lines
  1.  
  2.  
  3.  
  4.             ú┴ ú├ ú┴ ú─ ú«ú╠ ú╔ ú┬        ╙├ ╗º ╩╓ ▓ß
  5.                         ░µ  ▒╛ú║    ú▒ú«ú░
  6.  
  7.       ------ ╓▒╜╙╔·│╔ú┴ú⌡ú⌠ú∩ú├ú┴ú─╡─ú─ú╫ú╟═╝╨╬╬─╝■╡─ ------
  8.                      ╕▀   ╝╢   ╙∩   ╤╘   ┐Γ
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.  
  21.                     ╓╨╣·┐╞╤º╘║╧ú═√╕▀╝╢╡τ─╘╝╝╩⌡╣½╦╛
  22.                          ╥╗╛┼░╦╞▀─Ω╩«╢■╘┬
  23.  
  24.  
  25.  
  26.  
  27.  
  28.                     ╡┌╥╗╒┬            ╨≥    ╤╘
  29.  
  30.     ú┴ú⌡ú⌠ú∩ú├ú┴ú─╩╟├└╣·ú┴ú⌡ú⌠ú∩úΣúσú≤úδ╣½╦╛┐¬╖ó╡─═¿╙├╝╞╦π╗·╕¿╓·╗µ═╝
  31. ╚φ╝■ú¼─┐╟░╦ⁿ╥╤│╔╬¬╣·─┌═Γ╬ó╗·╔╧╙ª╙├╫ε╣π╖║╡─ú├ú┴ú─╚φ╝■íú╙ª╙├┴∞╙≥░ⁿ└¿ú║
  32. ╡τ╫╙íó╗·╨╡íó╜¿╓■íó╗»╣ñíó╣ñ│╠íó╖■╫░íó╥╒╩⌡╡╚íú╦ⁿ╓«╦∙╥╘╡├╡╜╚τ┤╦╣π╖║╡─╙ª
  33. ╙├ú¼╩╟╥≥╬¬╞Σ╧╡═│╡─┐¬╖┼╨╘ú¼╝░╞Σ╠ß╣⌐╡─╕≈╓╓╢■┤╬┐¬╖ó╡─╩╓╢╬ú║╙├╗º┐╔╥╘╫╘╝║
  34. ▒α╓╞╕≈╓╓╫¿╥╡╡─╫¿╙├╞┴─╗╝░╩²╫╓╗»╥╟▓╦╡Ñú╗╩╣╙├├ⁿ┴ε╬─╝■ú¼╙├╞Σ╗∙▒╛├ⁿ┴ε╫Θ║╧
  35. │╔╕▀╝╢╡─├ⁿ┴εú╗╠ß╣⌐╨φ╢α╓╓═╝╨╬╩²╛▌╜╗╗╗╬─╝■ú║ú─ú╪ú╞ú¼ú─ú╪ú┬ú¼ú╔ú╟ú┼ú╙ú╗
  36. ú┴ú⌡ú⌠ú∩ú├ú┴ú──┌▓┐╘╦╨╨╡─▒α│╠╙∩╤╘ú┴ú⌡ú⌠ú∩ú╠úΘú≤ú≡ú╗╥╘╝░═¿╣²ú≤úΦúσú∞ú∞
  37. ├ⁿ┴ε╓▒╜╙╡≈╙├═Γ▓┐╡─╓┤╨╨│╠╨≥íú╒Γ╨⌐╩╓╢╬╬▐╥╔╩╟╓º│╓┴╦╙├╗º╜°╨╨╕≈╫¿╥╡╡─╢■┤╬
  38. ┐¬╖óú¼╚╗╢°╗╣╙╨║▄┤≤╡─╛╓╧▐╨╘ú║▒╪╨δ═¿╣²╫¬╗╗▓┼─▄░╤═╝╨╬╜╗╗╗╬─╝■▒Σ│╔┐╔╙├╡─
  39. ═╝╨╬╬─╝■ú╗├ⁿ┴ε╬─╝■╓┤╨╨╦┘╢╚┬²ú¼╟╥╚▒╔┘╤¡╗╖╙δ╖╓╓ºú╗ú┴ú⌡ú⌠ú∩ú╠úΘú≤ú≡╙∩╤╘
  40. ╩▄╡╜─┌┤µ╡─╧▐╓╞ú¼▓ó╙╔╙┌╩╟╜Γ╩═╓┤╨╨ú¼▓╗─▄▒α╓╞┤≤╨═íó╕┤╘╙╢°╨º┬╩╕▀╡─│╠╨≥ú¼
  41. ╢°╟╥╫≈╬¬╙∩╤╘╥▓▓╗╚τ╞Σ╦ⁿ╕▀╝╢▒α│╠╙∩╤╘╥╫╙┌╒╞╬╒íú╬¬╗║╜Γ╔╧╩÷├¼╢▄ú¼╬╥╣½╦╛╢╘
  42. ú┴ú⌡ú⌠ú∩ú├ú┴ú─╡─ú─ú╫ú╟═╝╨╬╬─╝■╜°╨╨┴╦╧╡═│╡╪╖╓╬÷ú¼┐¬╖ó│÷┐╔╣⌐╕▀╝╢╙∩╤╘╓▒
  43. ╜╙╡≈╙├╡─ú┴ú⌡ú⌠ú∩ú├ú┴ú─╜╙┐┌│╠╨≥┐Γú║ú┴ú├ú┴ú─ú«ú╠ú╔ú┬íú╦ⁿ┐╔╩╣─π╙├╕▀╝╢╙∩
  44. ╤╘╙├└α╦╞╙┌ú┴ú⌡ú⌠ú∩ú├ú┴ú─╡─═╝╨╬▒α╝¡├ⁿ┴ε╡─║»╩²╓▒╜╙╔·│╔ú─ú╫ú╟═╝╨╬╬─╝■íú
  45. ╞Σ║├┤ª╘┌╙┌┐╔╥╘╓▒╜╙╘┌╞┴─╗╔╧╢╘╞Σ╜°╨╨▒α╝¡íó╨▐╕─íó▓σ╚δ(╡≈╙├)ú¼╓▒╜╙╙├╗µ═╝
  46. ╗·╝░┤≥╙í╗·╩Σ│÷íú╘┌═╝╨╬▒α╝¡╫┤╠¼╧┬ú¼┐╔╓▒╜╙╔·│╔─π╦∙╨Φ╥¬╡─═╝╨╬┐Θú¼╢°╬▐╨Φ
  47. ╚╬║╬╫¬╗╗╣²│╠íú╦ⁿ╗╣╩╟▒φ╩╛ú┴ú⌡ú⌠ú∩ú├ú┴ú─═╝╨╬╡─╫ε╜⌠┤╒╡─╩²╛▌╬─╝■ú¼┤≤┤≤╜┌
  48. ╩í─π╡─┤┼┼╠┐╒╝Σíú╙╔╙┌ú┴ú├ú┴ú─ú«ú╠ú╔ú┬╩╟╙╔╕▀╝╢╙∩╤╘ú├ú¼ú╞ú∩ú≥ú⌠ú≥úßúε╡╚
  49. ╡≈╙├ú¼╥≥┤╦╥╗░π╙├╗º╥╫╙┌╒╞╬╒ú¼╩╣╙├╖╜▒πíú╦ⁿ╠╪▒≡╩╩║╧╙├╙┌╔·│╔╕≈╓╓╫¿╙├íó╕┤
  50. ╘╙╝░╚²╬¼╡─═╝╨╬┐Θú¼┐╔╤╕╦┘╜½╣ñ│╠╩²╛▌╫¬╗╗│╔╩╡╙├╡─═╝╨╬íú│╔╬¬╙├╗º╢■┤╬┐¬╖ó
  51. ╡─╙╨╨º╣ñ╛▀íú
  52.  
  53.  
  54.             ╡┌╢■╒┬              ú┴ú├ú┴ú─ú«ú╠ú╔ú┬╜Θ ╔▄
  55. ú▓ú«ú▒╙▓╝■╗╖╛│ú║è    ╙╔ú┴ú├ú┴ú─ú«ú╠ú╔ú┬╔·│╔╡─╚φ╝■┐╔╘╦╨╨╙┌ú╔ú┬ú═ú¡ú╨ú├ú»ú╪ú╘ú¼ú┴ú╘╝░╞Σ
  56. ╝µ╚▌╗·íú╫ε║├╥¬╙╨ú▒ú░╒╫╗≥ú▒ú░╒╫╥╘╔╧╡─┤≤╚▌┴┐╙▓┼╠íú─┌┤µ╬¬ú╡ú▒ú▓ú╦╗≥ú╢ú┤ì
  57. ú░ú╦íú╞Σ╦ⁿ╔Φ▒╕┐╔░┤ú┴ú╒ú╘ú╧ú├ú┴ú─╡─╥¬╟≤╤í╙├íú
  58.     ╘┌─│╨⌐╟Θ┐÷╧┬ú¼╝┤╩╣├╗╙╨═╝╨╬╝α╩╙╞≈ú¼╥▓┐╔╥╘└√╙├ú┴ú├ú┴ú─ú«ú╠ú╔ú┬╡─│╠
  59. ╨≥╔·│╔═╝╨╬╬─╝■ú¼╚╗║≤╙├╗µ═╝╗·╩Σ│÷íú
  60. ú▓ú«ú▓╚φ╝■╗╖╛│
  61.     ú┴ú├ú┴ú─ú«ú╠ú╔ú┬╩╟╘┌ú═ú╙ú«ú─ú╧ú╙╧╡═│╧┬ú¼╙├ú═úΘúπú≥ú∩ú≤ú∩úµú⌠  ú├   ì
  62. ú┤ú«ú░░µ╡─ú├╙∩╤╘┐¬╖ó╡─íú
  63.     ╥¬╟≤╡─╗╖╛│╚τ╧┬ú║
  64.     ú▒ú«▓┘╫≈╧╡═│▒╪╨δ╬¬ú═ú╙ú¡ú─ú╧ú╙ú¿╗≥ú╨ú├ú¡ú─ú╧ú╙ú⌐ú▓ú«ú░░µ╗≥╕ⁿ╕▀░µ
  65. ▒╛íú
  66.     ú▓ú«▓╔╙├╡─╕▀╝╢╙∩╤╘▒╪╨δ╬¬╥╘╧┬╝╕╓╓ú║
  67.         ú┴ú«ú═úΘúπú≥ú∩ú≤ú∩úµú⌠  ú╞ú∩ú≥ú⌠ú≥úßúε  ú│ú«ú│░µ╗≥╕ⁿ╕▀░µíú
  68.         ú┬ú«ú═úΘúπú≥ú∩ú≤ú∩úµú⌠  ú╨úßú≤úπúßú∞  ú│ú«ú│░µ╗≥╕ⁿ╕▀░µíú
  69.         ú├ú«ú═úΘúπú≥ú∩ú≤ú∩úµú⌠  ú├  ú┤ú«ú░░µ╗≥╕ⁿ╕▀░µíú
  70.         ú─ú«┐╔╥╘╙δú═úΘúπú≥ú∩úΣú∩úµú⌠  ú├  ú┤ú«ú░░µ│╠╨≥┴¼╜╙╡─╞Σ╦ⁿ╚╬║╬
  71.             ╙∩╤╘íú
  72.     ú│ú«ú╠úΘúεúδ│╠╨≥▒╪╨δ▓╔╙├ú═úΘúπú≥ú∩ú≤ú∩úµú⌠  ú╠úΘúεúδ  ú│ú«ú╡ú▒░µ
  73. ╗≥╕ⁿ╕▀░µ▒╛íú
  74.     ú┤ú«╙╔ú┴ú├ú┴ú─ú«ú╠ú╔ú┬│╠╨≥┐Γ╔·│╔╡─ú─ú╫ú╟═╝╨╬╬─╝■╡─░µ▒╛║┼╙δ▓╔╙├╡─
  75. ╤∙░σ═╝╨╬╬─╝■╙╨╣╪íú
  76.     ú╡ú«╘┌═╝╨╬╬─╝■╔·│╔╩▒ú¼╨Φ╘┌┼╠╔╧═¼╩▒┤≥┐¬ú╕ú¡ú▒ú░╕÷╬─╝■íú╥≥┤╦▒╪╨δ╘┌
  77. ╧╡═│╡─┼Σ╓├╬─╝■╓╨ú¼╜½┐╔═¼╩▒┤≥┐¬╡─╬─╝■╕÷╩²╢¿╬¬ú▓ú░╕÷ú¼╝┤ú╞úΘú∞úσú≤ú╜ú▓ì
  78. ú░íú
  79.     ú╢ú«╙╔╙┌ú┴ú├ú┴ú─ú«ú╠ú╔ú┬╓╨╡─║»╩²╧α╡▒╙┌ú┴ú╒ú╘ú╧ú├ú┴ú─═╝╨╬▒α╝¡╓╨╡─
  80. ─│╠⌡├ⁿ┴εú¿│²ú╧ú╨ú╬ú─ú╫ú╟╙δú├ú╠ú╧ú─ú╫ú╟═Γú⌐íú╥≥┤╦╙╨▒╪╥¬╩∞╧ñú┴ú╒ú╘ú╧ú├ì
  81. ú┴ú─╡─╩╣╙├╝░╞Σ╣ª─▄íú
  82.     ú╖ú«╦∙╙╨╛▀╙╨╢α╓╓─┌┤µ─ú╩╜╡─╙∩╤╘╙δú┴ú├ú┴ú─ú«ú╠ú╔ú┬╧α┴¼ú¼╢╝▒╪╨δ▓╔╙├
  83. ┤≤╡──┌┤µ─ú╩╜íú
  84. ú▓ú«ú│┐Γ║»╩²╟σ╡Ñú║
  85.     ú▒ú«ú┴ú╥ú├                          ╗µ╘▓╗í
  86.     ú▓ú«ú┴ú╔ú╘ú─ú┼ú╞                    ╩⌠╨╘╢¿╥σ
  87.     ú│ú«ú┬ú╠ú╧ú├ú╦                      ╔·│╔═╝╨╬┐Θ
  88.     ú┤ú«ú├ú╔ú╥ú├ú╠ú┼                    ╗µ╘▓
  89.     ú╡ú«ú├ú╠ú╧ú─ú╫ú╟                    ╣╪▒╒═╝╨╬╬─╝■
  90.     ú╢ú«ú─ú╧ú╒ú├ú╔ú╥                    ╗µ╘▓╗╖╗≥╩╡╨─╘▓
  91.     ú╖ú«ú╞ú┴ú├ú┼ú│ú─                    ╗µ╚²╬¼├µ
  92.     ú╕ú«ú╔ú╬ú╙ú┼ú╥ú╘                    ═╝╨╬┐Θ▓σ╚δ
  93.     ú╣ú«ú╠ú┴ú┘ú┼ú╥                      ╔Φ╡▒╟░▓π, ╗≥╤í╥╗╕÷╨┬╡─╡▒╟░▓π
  94.     ú▒ú░ú«ú╠ú╔ú╬ú┼                      ╗µ╓▒╧▀
  95.     ú▒ú▒ú«ú╠ú╔ú╬ú┼ú│ú─                  ╗µ╚²╬¼╓▒╧▀
  96.     ú▒ú▓ú«ú╧ú╨ú╬ú─ú╫ú╟                  ┤≥┐¬═╝╨╬╬─╝■
  97.     ú▒ú│ú«ú╨ú╠ú╔ú╬ú┼                    ╗µ╢¿┐φ╕┤║╧╧▀
  98.     ú▒ú┤ú«ú╨ú╧ú╔ú╬ú╘                    ╗µ╡π
  99.     ú▒ú╡ú«ú╨ú╧ú╠ú╔ú╬ú┼                  ╗µ▒Σ┐φ╕┤║╧╧▀
  100.     ú▒ú╢ú«ú╙ú╧ú╠ú╔ú─                    ╗µ╠ε│Σ╩╡╠σ
  101.     ú▒ú╖ú«ú╙ú╘ú┘ú╠ú┼                    ╔Φ╡▒╟░╫╓╠σ, ╗≥╔·│╔╥╗╕÷╨┬╡─╡▒
  102.                                         ╟░╫╓╠σ
  103.     ú▒ú╕ú«ú╘ú┼ú╪ú╘                      ▒Ω╫ó╬─╫╓
  104.     ú▒ú╣ú«ú╘ú╥ú┴ú├ú┼                    ╗µ┤°┐φ╢╚╓▒╧▀
  105.     ú▓ú░ú«ú╫ú┬ú╠ú╧ú├ú╦                  ╔·│╔═╝╨╬┐Θú¼▓ó╨╬│╔┤┼┼╠╬─╝■
  106. ú▓ú«ú┤ ╓º│╓╡─╕▀╝╢╙∩╤╘╝░┴¼╜╙╖╜╖¿
  107.     ú┴ú├ú┴ú─ú«ú╠ú╔ú┬╩╟╙├ú═úΘúπú≥ú∩ú≤ú∩úµú⌠  ú├  ú┤ú«ú░░µ╩╡╧╓╡─ú¼▒α╥δ
  108. ▓╔╙├┴╦┤≤─ú╩╜íú╥≥┤╦╚╬║╬┐╔╥╘╙δú═ú╙  ú├  ú┤ú«ú░░µ┴¼╜╙╡─╙∩╤╘╢╝┐╔╡≈╙├ú┴ú├
  109. ú┴ú─ú«ú╠ú╔ú┬╓╨╡─┐Γ║»╩²íú╧┬├µ╬╥├╟╕°│÷╙δ╚²╕÷▒Ω╫╝░µ▒╛╡─╕▀╝╢╙∩╤╘╡─┴¼╜╙╡─è╖╜╖¿íú╘┌┤╦╥╘═Γ╡─╚╬║╬╞Σ╦ⁿ▒α│╠╙∩╤╘ú¼╓╗╥¬─▄╙δú═ú╙  ú├  ú┤ú«ú░░µ┴¼╜╙ú¼▓╬
  110. ╒╒╞Σ╦╡├≈╩Θú¼╝┤┐╔╡≈╙├ú┴ú├ú┴ú─ú«ú╠ú╔ú┬┐Γ║»╩²íú
  111. ╥╗ú«ú├╙∩╤╘ú║
  112.     ú├▒α╥δ│╠╨≥▒╪╨δ▓╔╙├ú═úΘúπú≥ú∩ú≤ú∩úµú⌠  ú├  ú┤ú«ú░░µú¼╗≥╕ⁿ╕▀░µ▒╛íú
  113. ▒α╥δ─ú╩╜▒╪╨δ╤í┤≤╨═ú¼╗≥╛▐╨═ú¿╝┤╙├▒α╥δ╤í╧εú»ú┴ú╠ú¼ú»ú┴ú╚ú⌐ú«╘┌╬╥├╟╠ß╣⌐
  114. ╡─ú┴ú├ú┴ú─ú«ú╠ú╔ú┬╡─ú├╙∩╤╘░µ▒╛┼╠╔╧ú¼ ╣▓╙╨╥╘╧┬ú╡╕÷╬─╝■íú
  115.     ú▒ú«ú┴ú├ú┴ú─ú«ú╠ú╔ú┬ú¡ú¡ú¡ú¡ú¡╓▒╜╙╔·│╔ú┴ú⌡ú⌠ú∩ú├ú┴ú─  ú─ú╫ú╟═╝╨╬
  116. ╬─╝■╡─║»╩²┐Γíú
  117.     ú▓ú«ú┴ú╠ú╔ú┬ú├ú«ú╚ú¡ú¡ú¡ú¡ú¡║»╩²╦╡├≈═╖╬─╝■ú¼╦╡├≈╦∙╙╨┐Γ║»╩²╡─└α╨═
  118. ú¼╝░▓╬╩²└α╨═íú
  119.     ú│ú«ú┴ú├ú┴ú─ú«ú─ú╫ú╟ú¡ú¡ú¡ú¡ú¡╗∙╙┌ú┴ú⌡ú⌠ú∩ú├ú┴ú─  ú▓ú«ú╡░µ╡─╤∙░σ
  120. ═╝╨╬╬─╝■íú
  121.     ú┤ú«ú╚ú├ú┴ú─ú«ú─ú╫ú╟ú¡ú¡ú¡ú¡ú¡╗∙╙┌ú╚ú├ú┴ú─  ú▓ú«ú╡░µ╡─╤∙░σ═╝╨╬╬─
  122. ╝■íú
  123.     ú╡ú«ú─ú┼ú═ú╧ú«ú├ú¡ú¡ú¡ú¡ú¡ú┴ú├ú┴ú─ú«ú╠ú╔ú┬┐Γ║»╩²╡≈╙├╩╡└²íú
  124.     ú╢ú«ú┴ú├ú┴ú─ú╠ú╔ú┬ú«ú─ú╧ú├ú¡ú¡ú¡ú¡ú¡▒╛╩╓▓ßíú
  125.     ╧┬├µ╥╘ú─ú┼ú═ú╧│╠╨≥╬¬└²ú¼╕°│÷▒α╥δú¼┴¼╜╙╣²│╠ú║
  126.     ú▒ú«▒α╥δú║
  127.        ú═ú╙ú├ú»ú┴ú╠  úΣúσúφú∩ú╗
  128.     ú▓ú«┴¼╜╙ú║
  129.         ú╠ú╔ú╬ú╦  ú»ú╙ú╘ú┴ú├ú╦ú║ú╕ú░ú░ú░  úΣúσúφú∩ú¼ú¼ú¼ú┴ú├ú┴ú─
  130. ╢■ú«ú╞ú∩ú≥ú⌠ú≥úßúε  ╙∩╤╘ú║
  131.     ú╞ú∩ú≥ú⌠ú≥úßúε▒α╥δ│╠╨≥▒╪╨δ▓╔╙├ú═úΘúπú≥ú∩ú≤ú∩úµú⌠  ú╞ú∩ú≥ú⌠ú≥úßúε  ì
  132. ú│ú«ú│░µ╗≥╕ⁿ╕▀░µ▒╛íú╘┌╬╥├╟╠ß╣⌐╡─ú┴ú├ú┴ú─ú«ú╠ú╔ú┬╡─ú╞úµú∩ú≥ú⌠ú≥úßúε░µ
  133. ▒╛┼╠╔╧ú¼╣▓╙╨╥╘╧┬ú╕╕÷╬─╝■ú║
  134.     ú▒ú«ú┴ú├ú┴ú─ú«ú╠ú╔ú┬ú¡ú¡ú¡ú¡ú¡╓▒╜╙╔·│╔ú┴ú⌡ú⌠ú∩ú├ú┴ú─  ú─ú╫ú╟═╝╨╬
  135. ╬─╝■╡─║»╩²┐Γíú
  136.     ú▓ú«ú┴ú╠ú╔ú┬ú╞ú«ú╚ú¡ú¡ú¡ú¡ú¡║»╩²╦╡├≈═╖╬─╝■ú¼╦╡├≈╦∙╙╨┐Γ║»╩²╡─└α╨═
  137. ╝░╞Σ▓╬╩²└α╨═íú
  138.     ú│ú«ú┴ú├ú┴ú─ú«ú─ú╫ú╟ú¡ú¡ú¡ú¡ú¡╗∙╙┌ú┴ú⌡ú⌠ú∩ú├ú┴ú─  ú▓ú«ú╡░µ╡─╤∙░σ
  139. ═╝╬─╝■íú
  140.     ú┤ú«ú┴ú├ú┴ú─ú«ú╫ú╟ú¡ú¡ú¡ú¡ú¡╗∙╙┌ú╚ú├ú┴ú─  ú▓ú«ú╡░µ╡─╤∙░σ═╝╬─╝■íú
  141.     ú╡ú«ú─ú┼ú═ú╧ú«ú╞ú╧ú╥ú¡ú¡ú¡ú¡ú¡ú┴ú├ú┴ú─ú«ú╠ú╔ú┬┐Γ║»╩²╡≈╙├╩╡└²íú
  142.     ú╖ú«ú┴ú├ú┴ú─ú╠ú╔ú┬ú«ú─ú╧ú├ú¡ú¡ú¡ú¡ú¡▒╛╩╓▓ßíú
  143.     ú╖ú«ú╠ú╔ú┬ú╚ú«ú╠ú╔ú┬ú¡ú¡ú¡ú¡ú¡úⁿ
  144.     ú╕ú«ú╠ú╠ú╔ú┬ú├ú«ú╠ú╔ú┬ú¡ú¡ú¡ú¡ú¡úⁿ
  145.     ú╣ú«ú╠ú╠ú╔ú┬ú╞ú╨ú«ú╠ú╔ú┬ú¡ú¡ú¡ú¡ú¡úⁿú├╙∩╤╘▒Ω╫╝┐Γ║»╩²
  146.     ú▒ú░ú«ú╠ú╠ú╔ú┬ú╞ú┴ú«ú╠ú╔ú┬ú¡ú¡ú¡ú¡ú¡úⁿ
  147.     ú▒ú▒ú«ú┼ú═ú«ú╠ú╔ú┬ú¡ú¡ú¡ú¡ú¡úⁿ
  148.     ╧┬├µ╥╘ú─ú┼ú═ú╧ú«ú╞ú╧ú╥│╠╨≥╬¬└²ú¼╕°│÷▒α╥δú¼┴¼╜╙╣²│╠ú║
  149.     ú▒ú«▒α╥δú║
  150.         ú╞ú╧ú╥ú▒  ú─ú┼ú═ú╧
  151.         ú╨ú┴ú╙ú▓
  152.     ú▓ú«┴¼╜╙ú║
  153.         ú╠ú╔ú╬ú╦  ú─ú┼ú═ú╧ú¼ú¼ú¼ú┴ú├ú┴ú─
  154. ╫ó╥Γú║╦∙╙╨╫╓╖√┤«▒╪╨δ╙╨ú├╩⌠╨╘ú¼╝┤╫╓╖√┤«║≤╕·╥╗╫╓─╕ú├ú«ú¿└²╚τúºú┴ú├ú┴ú─ì
  155. ú«ú─ú╫ú╟úºú├ú⌐íú╦∙╙╨╥¬╟≤╩²╫Θ╫≈╬¬▓╬╩²╡─║»╩²ú¼╘┌╫≈▓╬╩²╠µ╗╗╩▒ú¼▒╪╨δ╙├╞Σ
  156. ╡┌╥╗╕÷╘¬╦╪╫≈╬¬▓╬╩²íúú¿└²╚τú╨ú┴ú├ú┼ú│ú─ú¿ú╪ú╪ú█ú▒ú▌ú¼ú┘ú┘ú█ú▒ú▌ú¼ú┌ú┌ì
  157. ú█ú▒ú▌ú¼ú╢ú⌐ú⌐
  158. ╚²ú«ú╨ú┴ú╙ú├ú┴ú╠╙∩╤╘ú║
  159.     ú╨ú┴ú╙ú├ú┴ú╠▒α╥δ│╠╨≥▒╪╨δ▓╔╙├ú═úΘúπú≥ú∩ú≤ú∩úµú⌠  ú╞ú∩ú≥ú⌠ú≥úßúε  ì
  160. ú│ú«ú│░µ╗≥╕ⁿ╕▀░µ▒╛íú╘┌╬╥├╟╠ß╣⌐╡─ú┴ú├ú┴ú─ú«ú╠ú╔ú┬╡─ú╨ú┴ú╙ú├ú┴ú╠░µ▒╛
  161. ┼╠╔╧╣▓╙╨╥╘╧┬ú╕╕÷╬─╝■ú║
  162.     ú▒ú«ú┴ú├ú┴ú─ú«ú╠ú╔ú┬ú¡ú¡ú¡ú¡ú¡╓▒╜╙╔·│╔ú┴ú⌡ú⌠ú∩ú├ú┴ú─  ú─ú╫ú╟═╝╨╬ì
  163. ╬─╝■╡─║»╩²┐Γíúè    ú▓ú«ú┴ú╠ú╔ú┬ú╨ú«ú╚ú¡ú¡ú¡ú¡ú¡║»╩²╦╡├≈═╖╬─╝■ú¼╦╡├≈╦∙╙╨┐Γ║»╩²╡─└α╨═ì
  164. ╝░╞Σ▓╬╩²└α╨═íú
  165.     ú│ú«ú┴ú├ú┴ú─ú«ú─ú╫ú╟ú¡ú¡ú¡ú¡ú¡╗∙╙┌ú┴ú⌡ú⌠ú∩ú├ú┴ú─  ú▓ú«ú╡░µ╡─╤∙░σì
  166. ═╝╬─╝■íú
  167.     ú┤ú«ú─ú┼ú═ú╧ú«ú╨ú┴ú╙ú¡ú¡ú¡ú¡ú¡ú┴ú├ú┴ú─ú«ú╠ú╔ú┬┐Γ║»╩²╡≈╙├╩╡└²íú
  168.     ú╡ú«ú┴ú├ú┴ú─ú╠ú╔ú┬ú«ú─ú╧ú├ú¡ú¡ú¡ú¡ú¡▒╛╩╓▓ßíú
  169.     ú╢ú«ú╠ú╔ú┬ú╚ú«ú╠ú╔ú┬ú¡ú¡ú¡ú¡ú¡úⁿ
  170.     ú╖ú«ú╠ú╠ú╔ú┬ú├ú«ú╠ú╔ú┬ú¡ú¡ú¡ú¡ú¡úⁿ
  171.     ú╕ú«ú╠ú╠ú╔ú┬ú╞ú╨ú«ú∞úΘúΓú¡ú¡ú¡ú¡ú¡úⁿú├╙∩╤╘▒Ω╫╝┐Γ║»╩²
  172.     ú╣ú«ú╠ú╠ú╔ú┬ú╞ú┴ú«ú╠ú╔ú┬ú¡ú¡ú¡ú¡ú¡úⁿ
  173.     ú▒ú░ú«ú┼ú═ú«ú╠ú╔ú┬ú¡ú¡ú¡ú¡ú¡úⁿ
  174.     ╧┬├µ╥╘ú─ú┼ú═ú╧ú«ú╨ú┴ú╙│╠╨≥╬¬└²ú¼╕°│÷▒α╥δú¼┴¼╜╙╣²│╠ú║
  175.     ú▒ú«▒α╥δú║
  176.     ú╨ú┴ú╙ú▒  úΣúσúφú∩
  177.     ú╨ú┴ú╙ú▓
  178.     ú▓ú«┴¼╜╙ú║
  179.     ú╠ú╔ú╬ú╦  ú─ú┼ú═ú╧ú¼ú¼ú¼ú┴ú├ú┴ú─
  180. ╫ó╥Γú║╦∙╙╨╫╓╖√┤«▒╪╨δ╥╘┴π╫≈╬¬╜ß╩°╖√íúú¿└²╚τúóú┴ú├ú┴ú─ú«ú─ú╫ú╟úóú¬ú├ú╚ì
  181. ú╙ú¿ú░ú⌐ú⌐╦∙╙╨╥¬╟≤╩²╫Θ╫≈╬¬▓╬╩²╡─║»╩²ú¼╘┌╫≈▓╬╩²╠µ╗╗╩▒ú¼▒╪╨δ╙├╞Σ╡┌╥╗╕÷ì
  182. ╘¬╦╪╫≈╬¬▓╬╩²íú
  183. ú¿└²╚τú╨ú┴ú├ú┼úúú─ú¿ú╪ú╪ú█ú▒ú▌ú¼ú┘ú┘ú█ú▒ú▌ú¼ú┌ú┌ú█ú▒ú▌ú¼ú╢ú⌐ú⌐ú«
  184. ú▓ú«ú╡┐Γ║»╩²▒Ω╫╝╖╡╗╪┬δ╢¿╥σú║
  185.     ú░ú╜╡≈╙├│╔╣ª
  186.     ú▒ú╜╬─╝■┤≥┐¬│÷┤φ
  187.     ú▓ú╜╢┴╬─╝■│÷┤φ
  188.     ú│ú╜╨┤╬─╝■│÷┤φ
  189.     ú┤ú╜╬─╝■╢¿╬╗│÷┤φ
  190. ú▓ú«ú╢  ú┴ú├ú┴ú─ú«ú╠ú╔ú┬┐Γ╝╙├▄╦╡├≈
  191.     ╙╔ú┴ú├ú┴ú─ú«ú╠ú╔ú┬│╠╨≥┐Γ╔·│╔╡─│╠╨≥▒╪╨Φ┼Σ╙╨╬╥╣½╦╛╫¿├┼╡─╝╙├▄┐¿╖╜─▄ì
  192. ╘╦╨╨íú
  193.  
  194.  
  195.                  ╡┌╚²╒┬  ú┴ú├ú┴ú─ú«ú╠ú╔ú┬┐Γ║»╩²╡≈╙├╖╜╖¿
  196.  
  197.    ú┴ú├ú┴ú─ú«ú╠ú╔ú┬╣▓╙╨┐╔╡≈╙├╡─║»╩²ú▒ú╣╕÷íú│²┴╦ú╧ú╨ú╬ú─ú╫ú╟╙δú├ú╠ú╧ú─ì
  198. ú╫ú╟║»╩²═Γú¼╞Σ╦ⁿ║»╩²╢╝╢╘╙ª╙┌ú┴ú⌡ú⌠ú∩ú├ú┴ú─╡─╥╗╕÷├ⁿ┴εíú╥≥╢°╧Ω╧╕┴╦╜Γú┴ì
  199. ú⌡ú⌠ú∩ú├ú┴ú─╧α╙ª╡─├ⁿ┴εú¼╗ß╙╨╓·╙┌╙├║├╒Γ╨⌐║»╩²íú╧┬├µ╕°│÷├┐╕÷║»╩²╡─╛▀╠σì
  200. ╡≈╙├╖╜╖¿ú¼╝░╞Σ╚δ┐┌▓╬╩²ú¼╖╡╗╪▓╬╩²╡─╢¿╥σíú
  201. ú│ú«ú▒  ú┴ú╥ú├
  202. ║»╩²╦╡├≈ú║      arc(x0,y0,r0,ang0,ang1)
  203.                 double x0,y0,r0,ang0,ang1;
  204. ╣ª─▄╦╡├≈ú║      ╗µ╥╗╕°╢¿╘▓╨─ú¼░δ╛╢╝░╞≡╩╝╜╟╙δ╓╒╓╣╜╟╡─╘▓╗ííú
  205. ▓╬╩²╦╡├≈ú║      ╦∙╙╨▓╬╩²╢╝╩╟╦½╛½╢╚╩╡╩²ú¼╞Σ╓╨ú╪ú░ú¼ú┘ú░╬¬╘▓╨─ú¼ú╥ú░╬¬ì
  206.                 ░δ╛╢ú¼ú┴ú╬ú╟ú╧ú¼ú┴ú╬ú╟ú╠╬¬╞≡╩╝╜╟╢╚╙δ╓╒╓╣╜╟╢╚ú¼╙╔╗í╢╚ì
  207.                 ▒φ╩╛íú
  208. ╡≈╙├╛┘└²ú║
  209.   ---------------------------- C ---------------------------------
  210.         int      circle(x0,y0,r);
  211.         double   x0,y0,r;
  212.         int      error;
  213.         error = arc(x0,y0,r0,ang0,ang1);
  214.     ------------------------- FORTRAN ------------------------------
  215.         INTERFACE TO INTEGER*2 FUNCTION ARC[C](X0,Y0,R0,ANG0,ANG1)
  216.         DOUBLE PRECISION X0,Y0,R0,ANG0,ANG1
  217.         ENDè        INTEGER*2 ARC
  218.         IERR = ARC(X0,Y0,R0,ANG0,ANG1)
  219.       ------------------------- PASCAL -------------------------------
  220.         FUNCTION arc(x0,y0,r0,ang0,ang1:REAL8):INTEGER2[C];EXTERN;
  221.         PROCEDURE arcp;
  222.         VAR error:INTEGER2;
  223.           BEGIN
  224.             error = arc(x0,y0,r0,ang0,ang1)
  225.           END;
  226. ╖╡╗╪╓╡╦╡├≈ú║╖╡╗╪╓╡╬¬ú╡▒φ╩╛░δ╛╢ ú≥╨í╙┌╗≥╡╚╙┌ú░íú╞Σ╦ⁿ╖╡╗╪╓╡▓╬╒╒ú▓ú«ú╡╜┌ì
  227.             ╢¿╥σíú
  228. ú│ú«ú▓  ú┴ú╘ú╘ú─ú┼ú╞
  229. ║»╩²╦╡├≈ú║      attdef(aname,adefault,aprompt,xb,yb,ascale,aangle,alab)
  230.                 char *aname,*adefault,*aprompt;
  231.                 double xb,yb,ascale,aangle;
  232.                 int alab;
  233. ╣ª─▄╦╡├≈ú║      ╢¿╥σ╥╗╕÷╩⌠╨╘íúú╔úεú≤úσú≥ú⌠╩▒ú¼╩⌠╨╘╓╡░┤╚▒╩í╓╡▓σ╚δíú
  234. ▓╬╩²╦╡├≈ú║      aname:    ╩⌠╨╘├√;
  235.                 adefault: ╩⌠╨╘╚▒╩í╓╡;
  236.                 aprompt:  ╩⌠╨╘╠ß╩╛;
  237.                 xb,yb:    ╩⌠╨╘╗∙╡π╡─╫°▒Ω╓╡;
  238.                 ascale:   ▒╚└²╓╡;
  239.                 aangle:   ╘┌XY╞╜├µ╔╧╚╞╗∙╡π╨²╫¬╡─╜╟╢╚,╗í╢╚╓╡;
  240.                 alab:     ▒Ω╓╛╓╡;
  241.                         0: ╥╘╧┬╚²╓╓╖╜╩╜╡─╖±;
  242.                         1: Invisible (▓╗┐╔╝√╖╜╩╜);
  243.                         2: Constant (║π╢¿╖╜╩╜);
  244.                         4: Verify (╤Θ╓ñ╖╜╩╜);
  245.                         1,2║═4╖╜╩╜┐╔╥╘╗∞║╧╩╣╙├,╚τ╙√╓├╖╜╩╜╬¬(IC),┐╔╓├
  246.                         lab=1+2=3.
  247. ╡≈╙├╛┘└²:
  248.      ---------------------------- C ---------------------------------
  249.         int   attdef(aname,adefault,aprompt,xb,yb,ascale,aangle,alab)
  250.         char *aname,*adefault,*aprompt;
  251.         double xb,yb,ascale,aangle;
  252.         int alab;
  253.         int      error;
  254.         error = attdef(aname,adefault,aprompt,xb,yb,ascale,aangle,alab);
  255.       ------------------------- FORTRAN ------------------------------
  256.         INTERFACE TO INTEGER*2 FUNCTION ATTDEF[C](ANAME[REFERENCE],
  257.      +               ADEFAULT[REFERENCE],APROMPT[REFERENCE],XB,
  258.      +               YB,ASCALE,AANGLE,ALAB)
  259.         CHARACTER*1 ANAME,ADEFAULT,APROMPT
  260.         INTEGER*2 ALAB
  261.         DOUBLE PRECISION XB,YB,ASCALE,AANGLE
  262.         END
  263.         INTEGER*2 ATTDEF
  264.         IERR = ATTDEF('ANAME'C,'ADEFAULT'C,' 'C,XB,YB,ASCALE,AANGLE,ALAB)
  265.        ------------------------- PASCAL -------------------------------
  266.         FUNCTION attdef(VARS aname,adefault,aprompt:BYTE;
  267.                         xb,yb,ascale,aangle:REAL8;
  268.                         alab:INTEGER2;):INTEGER2[C];EXTERN;
  269.           PROCEDURE attdefp;
  270.           VAR error:INTEGER2;
  271.           BEGINè            error = attdef("aname"*CHR(0),"adefault"*CHR(0)," "*CHR(0),
  272.                     xb,yb,ascale,aangle,alab)
  273.           END;
  274. ╖╡╗╪╓╡╦╡├≈ú║    ╦∙╙╨╖╡╗╪╓╡▓╬╒╒ú▓ú«ú╡╜┌╢¿╥σíú
  275. ú│ú«ú│    ú┬ú╠ú╧ú├ú╦
  276. ║»╩²╦╡├≈ú║      block(blk_name,xb,yb)
  277.                 char  blk_name[];
  278.                 double  xb,yb;
  279. ╣ª─▄╦╡├≈ú║      ┤╦║»╩²╜½┤╙┤≥┐¬═╝╨╬╬─╝■ú¿═¿╣²╡≈╙├ú╧ú╨ú╬ú─ú╫ú╟║»╩²ú⌐ú¼ì
  280.                 ╗≥┤╙╔╧╥╗┤╬╡≈╙├ú╦ú╠ú╧ú├ú╦╗≥ú╫ú┬ú╠ú╧ú├ú╦║»╩²┐¬╩╝ú¼╡╜▒╛ì
  281.                 ┤╬╡≈╙├╕├║»╩²╬¬╓╣╦∙╔·│╔╡─╦∙╙╨╩╡╠σ╫÷│╔╥╗╕÷═╝╨╬┐Θíú╕├═╝
  282.                 ╨╬┐Θ╬¬─┌▓┐┐Θú¼╜÷┐╔╘┌▒╛═╝╨╬─┌▓┐╥²╙├íú
  283. ▓╬╩²╦╡├≈ú║      ú┬ú╠ú╦ú¡ú╬ú┴ú═ú┼╬¬╫╓╖√┤«└α╨═ú¼▒φ╩╛┐Θ├√íúú╪ú┬ú¼ú┘ú┬╬¬  ì
  284.                 ╦½╛½╢╚╩╡╩²└α╨═ú¼▒φ╩╛┐Θ╡─╗∙╡πíú
  285. ╡≈╙├╛┘└²ú║
  286.    ---------------------------- C ---------------------------------
  287.         int     block(blk_name,xb,yb);
  288.         char    blk_name[];
  289.         double  xb,yb;
  290.         int    error;
  291.         error = block("block1",xb,yb);
  292.    ------------------------- FORTRAN ------------------------------
  293.         INTERFACE TO INTEGER*2 FUNCTION BLOCK[C](BLKNAME[REFERENCE],
  294.      +   XB,YB)
  295.         CHARACTER*1 BLKNAME
  296.         DOUBLE PRECISION XB,YB
  297.         END
  298.         INTEGER*2 BLOCK
  299.         IERR = BLOCK('BLOCK1'C,XB,YB)
  300.     ------------------------- PASCAL -------------------------------
  301.         FUNCTION block(VARS blk_name:STRING(31);xb,yb:REAL8):
  302.                        INTEGER2[C];EXTERN;
  303.           PROCEDURE blockp;
  304.             VAR error:INTEGER2;
  305.             BEGIN
  306.               error = block("block1"*CHR(0),xb,yb)
  307.             END;
  308. ╖╡╗╪╓╡╦╡├≈ú║    ╦∙╙╨╖╡╗╪╓╡▓╬╒╒ú▓ú«ú╡╜┌╢¿╥σíú
  309. ú│ú«ú┤  ú├ú╔ú╥ú├ú╠ú┼
  310. ║»╩²╦╡├≈ú║      circle(x0,y0,r)
  311.                 double x0,y0,r;
  312. ╣ª─▄╦╡├≈ú║      ╗µ╥╗╕°╢¿╘▓╨─╝░░δ╛╢╡─╘▓íú
  313. ▓╬╩²╦╡├≈ú║      ╦∙╙╨▓╬╩²╢╝╩╟╦½╛½╢╚╩╡╩²ú¼╞Σ╓╨ú°ú░ú¼ú∙ú░╬¬╘▓╨─ú¼ú≥╬¬░δì
  314.                 ╛╢íú
  315. ╡≈╙├╛┘└²ú║
  316.     ---------------------------- C ---------------------------------
  317.         int     circle(x0,y0,r);
  318.         double  x0,y0,r;
  319.         int     error;
  320.         error = circle(x0,y0,r);
  321.     ------------------------- FORTRAN ------------------------------
  322.         INTERFACE TO INTEGER*2 FUNCTION CIRCLE[C](X0,Y0,R)
  323.         DOUBLE PRECISION X0,Y0,R
  324.         END
  325.         INTEGER*2 CIRCLEè        IERR = CIRCLE(X0,Y0,R)
  326.     ------------------------- PASCAL -------------------------------
  327.         FUNCTION circle(x0,y0,r:REAL8):INTEGER2[C];EXTERN;
  328.         PROCEDURE circlep;
  329.           VAR error:INTEGER2;
  330.           BEGIN
  331.             error = circle(x0,y0,r)
  332.           END;
  333. ╖╡╗╪╓╡╦╡├≈ú║    ╖╡╗╪╓╡╬¬ú╡▒φ╩╛░δ╛╢╬¬ú≥╨í╙┌╗≥╡╚╙┌ú░╞Σ╦ⁿ╖╡╗╪╓╡▓╬╒╒ú▓ú«ì
  334.                 ú╡╜┌╢¿╥σíú
  335. ú│ú«ú╡ú├ú╠ú╧ú─ú╫ú╟
  336. ║»╩²╦╡├≈ú║      clodwg()
  337. ╣ª─▄╦╡├≈ú║      ╣╪▒╒═╝╨╬╬─╝■ú¼╔·│╔╥╗╕÷ú┴ú⌡ú⌠ú∩ú├ú┴ú─╡─ú╫ú╟═╝╨╬╬─╝■íú
  338. ▓╬╩²╦╡├≈ú║      ╬▐▓╬╩²íú
  339. ╡≈╙├╛┘└²ú║
  340.     ---------------------------- C ---------------------------------
  341.         int    clodwg();
  342.         int    error;
  343.         error = clodwg();
  344.     ------------------------- FORTRAN ------------------------------
  345.         INTERFACE TO INTEGER*2 FUNCTION CLODWG[C]()
  346.         END
  347.         INTEGER*2 CLODWG
  348.         IERR = CLODWG()
  349.     ------------------------- PASCAL -------------------------------
  350.         FUNCTION clodwg():INTEGER2[C];EXTERN;
  351.         PROCEDURE clodwgp;
  352.           VAR error:INTEGER2;
  353.           BEGIN
  354.             error = clodwg()
  355.           END;
  356. ╖╡╗╪╓╡╦╡├≈ú║    ╦∙╙╨╖╡╗╪╓╡▓╬╒╒ú▓ú«ú╡╜┌╢¿╥σíú
  357. ╫óú║    ╕├║»╩²▒╪╨δ╙δ║»╩²ú╧ú╨ú╬ú─ú╫ú╟│╔╢╘╩╣╙├ú¼▓╗╙ª╨╬│╔╟╢╠╫╡≈╙├íú
  358. ú│ú«ú╢  ú─ú╧ú╒ú╔ú╥
  359. ║»╩²╦╡├≈ú║      doucir(x0,y0,ir,or)
  360.                 double x0,y0,ir,or;
  361. ╣ª─▄╦╡├≈ú║      ╗µ╕°╢¿╘▓╨─╝░─┌ú¼═Γ╘▓░δ╛╢╡─╘▓╗╖íú╚⌠─┌╘▓░δ╛╢╬¬ú░ú¼╘≥╜½ì
  362.                 ╗µ│÷╩╡╨─╘▓íú
  363. ▓╬╩²╦╡├≈ú║      ╦∙╙╨▓╬╩²╢╝╩╟╦½╛½╢╚╩╡╩²ú¼╞Σ╓╨ú°ú░ú¼ú∙ú░╬¬╘▓╨─╫°▒Ωú¼úΘú≥
  364.                 ╬¬─┌╘▓░δ╛╢ú¼ú∩ú≥╬¬═Γ╘▓░δ╛╢íú
  365. ╡≈╙├╛┘└²ú║
  366.    ---------------------------- C ---------------------------------
  367.         int     doucir(x0,y0,ir,or);
  368.         double  x0,y0,ir,or;
  369.         int     error;
  370.         error = doucir(x0,y0,ir,or);
  371.     ------------------------- FORTRAN ------------------------------
  372.         INTERFACE TO INTEGER*2 FUNCTION DOUCIR[C](X0,Y0,IR,OR)
  373.         DOUBLE PRECISION X0,Y0,IR,OR
  374.         END
  375.         INTEGER*2 DOUCIR
  376.         IERR = DOUCIR(X0,Y0,IR,OR)
  377.     ------------------------- PASCAL -------------------------------
  378.         FUNCTION doucir(x0,y0,ir,or:REAL8):INTEGER2[C];EXTERN;
  379.         PROCEDURE doucirp;è          VAR error:INTEGER2;
  380.           BEGIN
  381.             error = doucir(x0,y0,ir,or)
  382.           END;
  383. ╖╡╗╪╓╡╦╡├≈ú║    ╚τ╣√úΘú≥╗≥ú∩ú≥╨í╙┌┴πú¼╘≥╖╡╗╪╓╡╬¬ú╡ú¼╚τ╣√úΘú≥ú╛ú∩ú≥╘≥ì
  384.                 ╖╡╗╪╓╡╬¬ú╢íú╞Σ╦ⁿ╖╡╗╪╓╡▓╬╒╒ú▓ú«ú╡╜┌╢¿╥σíú
  385. ú│ú«ú╖  ú╞ú┴ú├ú┼ú│ú─
  386. ║»╩²╦╡├≈ú║      face3d(xx,yy,zz,n)
  387.                 double xx[],yy[],zz[];
  388.                 int    n;
  389. ╣ª─▄╦╡├≈ú║      ╗µ╢α╕÷┴¼╜╙╡─╚²╬¼├µíú├┐╕÷╚²╬¼├µ╙╔╦─╕÷╚²╬¼╡π╫≈╬¬╢Ñ╡πú╗ì
  390.                 ╒Γ╦─╕÷╡π╙╔╦│╩▒╒δ╗≥─µ╩▒╒δ╕°│÷ú¼╟░╥╗╕÷╚²╬¼├µ╡─╫ε║≤┴╜╕÷
  391.                 ╢Ñ╡π╩╟║≤╥╗╚²╬¼├µ╡─┐¬╩╝┴╜╕÷╢Ñ╡πíú
  392. ▓╬╩²╦╡├≈ú║      ú°ú°ú¼ú∙ú∙ú¼ú·ú·╬¬╦½╛½╢╚╩╡╨═╩²╫Θú¼▒φ╩╛╚²╬¼├µ╢Ñ╡π╡─╚²
  393.                 ╬¼╫°▒Ωíúúε╬¬╒√╨╬╩²ú¼▒φ╩╛╚²╬¼├µ╢Ñ╡π╡─╕÷╩²ú¼▒╪╨δúεú╛ú╜ì
  394.                 ú┤ú«
  395. ╡≈╙├╛┘└²ú║
  396.     ---------------------------- C ---------------------------------
  397.         int     face3d(xx,yy,zz,n);
  398.         double  xx[],yy[],zz[];
  399.         int     error;
  400.         error = face3d(xx,yy,zz,n);
  401.     ------------------------- FORTRAN ------------------------------
  402.         INTERFACE TO INTEGER*2 FUNCTION FACE3D[C](XX[REFERENCE],
  403.      +                    YY[REFERENCE],ZZ[REFERENCE],N)
  404.         DOUBLE PRECISION XX,YY,ZZ
  405.         INTEGRE*2 N
  406.         END
  407.         INTEGER*2 FACE3D
  408.         IERR = FACE3D(XX,YY,ZZ,N)
  409.     ------------------------- PASCAL -------------------------------
  410.         FUNCTION face3d(VARS xx,yy,zz:REAL8,n:INTEGER2):INTEGER2[C];EXTERN;
  411.         PROCEDURE face3dp;
  412.           VAR error:INTEGER2;
  413.           BEGIN
  414.             error = face3d(xx,yy,zz,n)
  415.            END;
  416. ╖╡╗╪╓╡╦╡├≈ú║    ╚τ╣√úεú╝ú┤╘≥╖╡╗╪╓╡╬¬ú╡ú¼╞Σ╦ⁿ╖╡╗╪╓╡▓╬╒╒ú▓ú«ú╡╜┌╢¿╥σíú
  417. ú│ú«ú╕  ú╔ú╬ú╙ú┼ú╥ú╘
  418. ║»╩²╦╡├≈ú║      insert(blk_name,xb,yb,xr,yr,zr,ro)
  419.                 char    blk_name[];
  420.                 double  xb,yb,xr,yr,zr,ro;
  421. ╣ª─▄╦╡├≈ú║      ░┤╕°╢¿╡─▓σ╚δ╡πú¼╝░ú°ú¼ú∙ú¼ú·╖╜╧≥╡─╔∞╦⌡▒╚└²ú¼╥╘╝░╚╞┐Θì
  422.                 ╗∙╡π╡─╨²╫¬╜╟╢╚ú¼╘┌═╝╨╬╓╨▓σ╚δ╥╤╢¿╥σ╡─═╝╨╬┐Θíú╩╫╧╚ú¼╜½
  423.                 ╦╤╦≈▒╛═╝╨╬╢¿╥σ╡──┌▓┐┐Θú¼╚τ╣√├╗╙╨ú¼╘≥╜½╕°╢¿╡─┐Θ├√╫≈╬¬
  424.                 ═╝╨╬╬─╝■├√ú¼╦╤╦≈═Γ▓┐┐Θú¼╜°╨╨▓σ╚δíú
  425. ▓╬╩²╦╡├≈ú║      úΓú∞úδú«úεúßúφúσ╬¬╫╓╖√┤«└α╨═ú¼▒φ╩╛╥¬▓σ╚δ╡─┐Θ├√íú╞Σ╓╨
  426.                 ╢╝╩╟╦½╛½╢╚└α╨═ú¼╞Σ╓╨ú°úΓú¼ú∙úΓ╬¬▓σ╚δ╡πú╗ú°ú≥ú¼ú∙ú≥ú¼ì
  427.                 ú·ú≥; ╬¬ú╪ú¼ú┘ú¼ú┌╓ß╖╜╧≥╡─▓σ╚δ╔∞╦⌡▒╚└²ú╗ú≥ú∩╬¬╚╞┐Θ╗∙
  428.                 ╡πú¼╘┌ú╪ú┘╞╜├µ╔╧╡─╨²╫¬╜╟╢╚ú¼╙├╗í╢╚▒φ╩╛íú
  429. ╡≈╙├╛┘└²ú║
  430.     ---------------------------- C ---------------------------------
  431.         int     insert(blk_name,xb,yb,xr,yr,zr,ro);
  432.         char    blk_name[];
  433.         double  xb,yb,xr,yr,zr,ro;è        int    error;
  434.         error = insert(blk_name,xb,yb,xr,yr,zr,ro);
  435.     ------------------------- FORTRAN ------------------------------
  436.         INTERFACE TO INTEGER*2 FUNCTION INSERT[C](BLKNAME[REFERENCE],
  437.      +  XB,YB,XR,YR,ZR,RO)
  438.         CHARACTER*1 BLKNAME
  439.         DOUBLE PRECISION XB,YB,XR,YR,ZR,RO
  440.         END
  441.         INTEGER*2 INSERT
  442.         IERR = INSERT('BLOCK1'C,XB,YB,XR,YR,ZR,RO)
  443.     ------------------------- PASCAL -------------------------------
  444.         FUNCTION insert(VARS blk_name:BYTE;xb,yb,xr,yr,zr,ro:REAL8)
  445.         :INTEGER2[C];EXTERN;
  446.         PROCEDURE insertp;
  447.           VAR error:INTEGER2;
  448.           BEGIN
  449.             error = insert(blk_name,xb,yb,xr,yr,zr,ro)
  450.           END;
  451. ╖╡╗╪╓╡╦╡├≈ú║    ╚τ╣√╦∙╕°╡─┐Θ▓╗┤µ╘┌ú¼╘≥╖╡╗╪╓╡╬¬ú╡ú«╞Σ╦ⁿ╖╡╗╪╓╡▓╬╒╒ú▓ú«ì
  452.                 ú╡╜┌╢¿╥σíú
  453. ú│ú«ú╣  ú╠ú┴ú┘ú┼ú╥
  454. ║»╩²╦╡├≈ú║      layer(layer_name,color,ltype_name)
  455.                 char    layer_name[],ltype_name[];
  456.                 int      color;
  457. ╣ª─▄╦╡├≈ú║      ╚⌠╓╕╢¿▓π├√╡─▓π┤µ╘┌ú¼▓ó╟╥▓╗╩╟╡▒╟░▓πú¼╘≥╜½╞Σ╔Φ╓├╬¬╡▒╟░ì
  458.                 ▓πú¼╞Σ╦ⁿ▓╬╩²║÷┬╘ú╗╚⌠╕°╢¿▓π├√╡─▓π▓╗┤µ╘┌ú¼╘≥░┤╕°╢¿╡─╞Σ
  459.                 ╦ⁿ▓╬╩²╜¿┴ó╥╗╕÷╨┬▓πú¼▓ó╟╥╜½╞Σ╔Φ╓├╬¬╡▒╟░▓πíú
  460. ▓╬╩²╦╡├≈ú║      ú╠ú┴ú┘ú┼ú╥ú¡ú╬ú┴ú═ú┼╬¬╫╓╖√┤«└α╨═ú¼▒φ╩╛▓π├√íúú├ú╧ú╠ú╧
  461.                 ú╥╬¬╒√╨═ú¼▒φ╩╛╗µ╘┌╕├▓π╔╧╡─╩╡╠σ╤╒╔½íú╡▒ú▒ú╜ú╝ú├ú╧ú╠ú╧ì
  462.                 ú╥ú╜ú╝ú╖╩▒ú¼╤╒╔½║┼╙δú┴ú⌡ú⌠ú∩ú├ú┴ú─╡─▒Ω╫╝╢¿╥σ╧α═¼ú¼╞Σ
  463.                 ╦ⁿ╤╒╔½╓╡▓╗╚╖╢¿íúú╔ú╘ú┘ú╨ú┼ú¡ú╬ú┴ú═ú┼╬¬╫╓╖√┤«└α╨═ú¼▒φ
  464.                 ╩╛╧▀╨═├√íú
  465. ╡≈╙├╛┘└²ú║
  466.     ---------------------------- C ---------------------------------
  467.         int     layer(layer_name,color,ltype_name);
  468.         char    layer_name[],ltype_name[];
  469.         int     color;
  470.         int      error;
  471.         error = layer("layer1",color,"dot")
  472.       ------------------------- FORTRAN ------------------------------
  473.         INTERFACE TO INTEGER*2 FUNCTION LAYER[C](LAYERNAME[REFERENCE],
  474.      +      COLOR,LTYPENAME[REFERENCE])
  475.         CHARACTER*1 LAYERNAME,LTYPENAME
  476.         INTEGER*2 COLOR
  477.         END
  478.         INTEGER*2 LAYER
  479.         IERR = LAYER('LAYER1'C,COLOR,'dot'C)
  480.     ------------------------ PASCAL -------------------------------
  481.         FUNCTION layer(VARS layername:BYTE;color:INTEGER2;
  482.           VARS ltypename:BYTE):INTEGER2[C];EXTERN;
  483.           PROCEDURE layerp;
  484.             VAR error:INTEGER2;
  485.             BEGIN
  486.               error = layer("layer1"*CHR(0),color,"dot"*CHR(0))
  487.             END;è╖╡╗╪╓╡╦╡├≈ú║    ╦∙╙╨╖╡╗╪╓╡▓╬╒╒ú▓ú«ú╡╜┌╡─╢¿╥σíú
  488. ú│ú«ú▒ú░  ú╠ú╔ú┼ú╬
  489. ║»╩²╦╡├≈ú║      line(x0,y0,x1,y1)
  490.                 double x0,y0,x1,y1;
  491. ╣ª─▄╦╡├≈ú║      ░┤╕°╢¿╡─╞≡╡π╙δ╓╒╡π╫°▒Ωú¼╗µ╥╗╠⌡╓▒╧▀íú
  492. ▓╬╩²╦╡├≈ú║      ╦∙╙╨▓╬╩²╢╝╩╟╦½╛½╢╚╩╡╩²ú¼╞Σ╓╨ú°ú░ú¼ú∙ú░╬¬╞≡╡π╫°▒Ωú¼ú°ì
  493.                 ú▒ú¼ú∙ú▒╬¬╓╒╡π╫°▒Ωíú
  494. ╡≈╙├╛┘└²ú║
  495.     ---------------------------- C ---------------------------------
  496.         int     line(x0,y0,x1,y1);
  497.         double  x0,y0,x1,y1;
  498.         int     error;
  499.         error = line(x0,y0,x1,y1);
  500.  
  501.   ------------------------- FORTRAN ------------------------------
  502.         INTERFACE TO INTEGER*2 FUNCTION LINE[C](X0,Y0,X1,Y1)
  503.         DOUBLE PRECISION X0,Y0,X1,Y1
  504.         END
  505.         INTEGER*2 LINE;
  506.         IERR = LINE(X0,Y0,X1,Y1)
  507.     ------------------------- PASCAL -------------------------------
  508.         FUNCTION line(x0,y0,x1,y1:REAL8):INTEGER2[C];EXTERN;
  509.         PROCEDURE linep;
  510.           VAR error:INTEGER2;
  511.           BEGIN
  512.             error = line(x0,y0,x1,y1)
  513.           END;
  514. ╖╡╗╪╓╡╦╡├≈ú║╦∙╙╨╖╡╗╪╓╡▓╬╒╒ú▓ú«ú╡╜┌╡─╢¿╥σíú
  515. ╫óú║
  516. ú│ú«ú▒ú▒  ú∞úΘúεúσú│ú─
  517. ║»╩²╦╡├≈ú║    line3d(x0,y0,z0,x1,y1,z1)
  518.               double x0,y0,z0,x1,y1,z1;
  519. ╣ª─▄╦╡├≈ú║░┤╕°╢¿╡─╚²╬¼╞≡╡π╙δ╓╒╡π╫°▒Ωú¼╗µ╥╗╠⌡╚²╬¼╓▒╧▀íú
  520. ▓╬╩²╦╡├≈ú║╦∙╙╨▓╬╩²╢╝╩╟╦½╛½╢╚╩╡╨═ú¼╞Σ╓╨ú╪ú░ú¼ú┘ú░ú¼ú┌ú░╬¬╞≡╡π╫°▒Ωú¼ú╪
  521. ú▒ú¼ú┘ú▒ú¼ú┌ú▒╬¬╓╒╡π╫°▒Ωíú
  522. ╡≈╙├╛┘└²ú║
  523.     ---------------------------- C ---------------------------------
  524.         int    line3d(x0,y0,z0,x1,y1,z1);
  525.         double  x0,y0,z0,x1,y1,z1;
  526.         int    error;
  527.         error = line3d(x0,y0,z0,x1,y1,z1);
  528.   ------------------------- FORTRAN ------------------------------
  529.         INTERFACE TO INTEGER*2 FUNCTION LINE3D[C](X0,Y0,Z0,X1,Y1,Z1)
  530.         DOUBLE PRECISION X0,Y0,Z0,X1,Y1,Z1
  531.         END
  532.         INTEGER*2 LINE3D
  533.         IERR = LINE3D(X0,Y0,Z0,X1,Y1,Z1)
  534.   ------------------------- PASCAL -------------------------------
  535.         FUNCTION line3d(x0,y0,z0,x1,y1,z1:REAL8):INTEGER2[C];EXTERN;
  536.         PROCEDURE line3dp;
  537.           VAR error:INTEGER2;
  538.           BEGIN
  539.             error = line3d(x0,y0,z0,x1,y1,z1)
  540.           END;
  541. ╖╡╗╪╓╡╦╡├≈ú║╦∙╙╨╖╡╗╪╓╡▓╬╒╒ú▓ú«ú╡╜┌╡─╢¿╥σíúè╫óú║
  542. ú│ú«ú▒ú▓  ú╧ú╨ú╬ú─ú╫ú╟
  543. ║»╩²╦╡├≈ú║      opndwg(d_name,s_name)
  544.                 char d_name[],s_name[];
  545. ╣ª─▄╦╡├≈ú║╥└╒╒╕°╢¿╡─╤∙░σ═╝┤┤╜¿╓╕╢¿╡─═╝╨╬╬─╝■íú
  546. ▓╬╩²╦╡├≈ú║╦∙╙╨▓╬╩²╢╝╩╟╫╓╖√┤«└α╨═ú¼╞Σ╓╨úΣú▀úεúßúφúσ╬¬╥¬┤┤╜¿╡─ú─ú╫ú╟═╝╨╬
  547. ╬─╝■├√ú¼ú≤ú▀úεúßúφúσ╬¬╦∙╥└╒╒╡─╤∙░σ═╝╨╬╬─╝■├√íú
  548. ╡≈╙├╛┘└²ú║
  549.   ---------------------------- C ---------------------------------
  550.         int     opndwg(d_name,s_name);
  551.         char    d_name[],s_name[];
  552.         int     error;
  553.         error = opndwg("test.dwg","hcad");
  554.       ------------------------- FORTRAN ------------------------------
  555.  
  556.         INTERFACE TO INTEGER*2 FUNCTION OPNDWG[C](DNAME[REFERENCE],
  557.      +                   SNAME[REFERENCE])
  558.         CHARACTER*1 DNAME,SNAME
  559.         END
  560.         INTEGER*2 OPNDWG
  561.         IERR = OPNDWG("TEST.DWG"C,"HCAD.DWG"C)
  562.     ------------------------- PASCAL -------------------------------
  563.         FUNCTION opndwg(VARS dname,sname:BYTE):INTEGER2[C];EXTERN;
  564.         PROCEDURE opndwgp;
  565.           VAR error:INTEGER2;
  566.           BEGIN
  567.             error = opendwg("test.dwg"*CHR(0),"hcad"*CHR(0))
  568.           END;
  569. ╖╡╗╪╓╡╦╡├≈ú║╚τ╣√╤∙░σ═╝╬─╝■▓╗┤µ╘┌ú¼╘≥╖╡╗╪╓╡╬¬ú╡ú«╞Σ╦ⁿ╖╡╗╪╓╡▓╬╒╒ú▓ú«ú╡
  570. ╜┌╡─╢¿╥σíú
  571. ╫óú║▓╔╙├╤∙░σ═╝╔·│╔╨┬╡─═╝╨╬╬─╝■╙δú┴ú⌡ú⌠ú∩úπúßúΣ╡─▒α╝¡╨┬═╝╡─╖╜╖¿╧α═¼íúì
  572. ╒Γ╤∙┐╔╥╘╘┌╤∙░σ═╝╓╨╢¿╥σ║├╦∙╙╨╚▒╩í╓╡ú¼╚τ═╝╖∙ú¼═°╕±ú¼▓πú¼╧▀╨═ú¼╫╓╠σú¼▓╦ì
  573. ╡Ñ╬─╝■├√ú¼╡╚╡╚ú¼╔⌡╓┴╥╗╕÷úó▒│╛░úó═╝íú╥▓╛═╩╟╦╡┐╔╥╘╘┌╥╗╕÷╥╤╛¡╫≈║├╡─═╝╨╬ì
  574. ╔╧╝╠╨°╫≈═╝ú¼╨╬│╔╫ε╓╒═╝╨╬ú¼╡½╩╟▒╪╨δ╥¬╫ó╥Γ╤∙░σ═╝╡─░µ▒╛║┼╙δ╦∙╙├╡─╣ª─▄▒╪ì
  575. ╨δ╥╗╓┬íú╝┤▓╗─▄╘┌╡═░µ▒╛╡─╤∙░σ═╝╔╧╫≈╕▀░µ▒╛╡─╩╡╠σ═╝╦╪íú└²╚τ╙├ú▓ú«ú╡░µ╡─ì
  576. ═╝╫≈╤∙░σ═╝ú¼╘┌╞Σ╔╧╙├║»╩²ú╠ú╔ú╬ú┼ú│ú─╗µ┴╦╥╗╠⌡╚²╬¼╓▒╧▀íú╒Γ╜½╡╝╓┬╔·│╔╥╗ì
  577. ╕÷╖╟╖¿═╝╨╬íú
  578. ú│ú«ú▒ú│  ú╨ú╠ú╔ú╬ú┼
  579. ║»╩²╦╡├≈:       pline(xx,yy,width,bulge,n,c)
  580.                 double xx[],yy[],bulge[],width;
  581.                 int    n,c;
  582. ╣ª─▄╦╡├≈ú║      ╗µ╥╗╠⌡╕°╢¿┐φ╢╚╡─╕┤║╧╡─╟·╒█╧▀íú
  583. ▓╬╩²╦╡├≈ú║ú╪ú╪ú¼ú┘ú┘╬¬╦½╛½╢╚╩²╫Θú¼▒φ╩╛╕┤╧▀╜ß╡π╡─ú╪ú¼ú┘╫°▒Ωíúú╫ú╔ú─ú╘ì
  584. ú╚╬¬╦½╛½╢╚╩╡╩²ú¼▒φ╩╛╕├╠⌡╕┤║╧╧▀╡─┐φ╢╚íúú╬╬¬╒√╨═╩²ú¼▒φ╩╛╕├╠⌡╕┤║╧╧▀╜ß╡πì
  585. ╡─╕÷╩²íúú├╬¬╒√╨═╩²ú¼╩╟╕├╠⌡╕┤║╧╧▀┐¬╣╪▒Ω╓╛ú¼╝┤╞≡╡π╙δ╓╒╡π╩╟╖±╧α┴¼íú╚⌠ú├ì
  586. ú╜ú░╘≥╩╟┐¬╡─ú¼╚⌠ú├úíú╜ú░╘≥╩╟╣╪╡─íúú┬ú╒ú╠ú╟ú┼╬¬╦½╛½╢╚╩╡╩²╩²╫Θú¼▒φ╩╛╕┤ì
  587. ║╧╧▀╓╨╗í╢╬╡─═╣╢╚íú╚⌠ú┬ú╒ú╠ú╟ú┼ú█ú╔ú▌úíú╜ú░ú¼╘≥▒φ╩╛╕┤║╧╧▀╓╨╡┌ú╔╢╬╬¬╗íì
  588. ╢╬ú¼
  589.                                               |-- > 0 ─µ╩▒╒δ
  590.                        bulge[i] = (+/-)2*H/D -|
  591.                                                |-- < 0 ╦│╩▒╒δ
  592. ╞Σ╓╨ú─▒φ╩╛┴╜╢Ñ╡π╓«╝Σ╡─╛α└δíúú╚▒φ╩╛┤╙╕├╧▀╢╬╓╨╡π╡╜╗í╢╬╡─┤╣╓▒╛α└δíú╚⌠ú┬ì
  593. ú╒ú╠ú╟ú┼ú█ú╔ú▌ú╜ú░ú¼╘≥▒φ╩╛╕┤║╧╧▀ú╔╢╬╬¬╓▒╧▀╢╬íú
  594. ╡≈╙├╛┘└²ú║
  595.         ---------------------------- C ---------------------------------è        int     pline(xx,yy,width,bulge,n,c);
  596.         double  xx[],yy[],bulge[],width;
  597.         int     n,c;
  598.         int     error;
  599.         error = pline(xx,yy,width,bulge,n,c);
  600.         ------------------------- FORTRAN ------------------------------
  601.         INTERFACE TO INTEGER*2 FUNCTION PLINE[C](XX[REFERENCE],
  602.       +               YY[REFERENCE],WIDTH,BULGE[REFERENCE],N,C)
  603.         DOUBLE PRECISION XX,YY,WIDTH,BULGE
  604.         INTEGRE*2 N,C
  605.         END
  606.         INTEGER*2 PLINE
  607.         IERR = PLINE(XX,YY,WIDTH,BULGE,N,C)
  608.         ------------------------- PASCAL -------------------------------
  609.         FUNCTION pline(VARS xx,yy:REAL8;width:REAL8;VARS bulge:REAL8;
  610.                        n,c:INTEGER2):INTEGER2[C];EXTERN;
  611.          PROCEDURE plinep;
  612.           VAR error:INTEGER2;
  613.            BEGIN
  614.              error = pline(xx,yy,width,bulge,c,n)
  615.            END;
  616. ╖╡╗╪╓╡╦╡├≈ú║╚τ╣√ú╬ú╜ú╝ú░╘≥╖╡╗╪╓╡╬¬ú╡íú╞Σ╦ⁿ╖╡╗╪╓╡▓╬╒╒ú▓ú«ú╡╜┌╡─╢¿╥σíú
  617. ╫óú║╥¬╩╡╧╓═Ω╚½░┤╒╒ú┴ú⌡ú⌠ú∩úπúßúΣ╢¿╥σ╡─╕┤║╧╧▀ú¼╟δ╙├║»╩²ú╨ú∩ú∞úΘúεúσíú
  618. ú│ú«ú▒ú┤  ú╨ú╧ú╔ú╬ú╘
  619. ║»╩²╦╡├≈:       point(x0,y0)
  620.                 double x0,y0;
  621. ╣ª─▄╦╡├≈ú║░┤╕°╢¿╡─╫°▒Ω╗µ╡πíú
  622. ▓╬╩²╦╡├≈ú║ú╪ú░ú¼ú┘ú░╬¬╦½╛½╢╚╩╡╩²ú¼▒φ╩╛╕├╡π╡─╫°▒Ωíú
  623. ╡≈╙├╛┘└²ú║
  624.    ---------------------------- C ---------------------------------
  625.         int     point(x0,y0);
  626.         double  x0,y0;
  627.         int     error;
  628.         error = point(x0,y0)
  629.       ------------------------- FORTRAN ------------------------------
  630.         INTERFACE TO INTEGER*2 FUNCTION POINT[C](X0,Y0)
  631.         DOUBLE PRECISION X0,Y0
  632.         END
  633.         INTEGER*2 POINT
  634.         IERR = POINT(X0,Y0)
  635.    ------------------------- PASCAL -------------------------------
  636.         FUNCTION point(x0,y0:REAL8):INTEGER2[C];EXTERN;
  637.         PROCEDURE pointp;
  638.           VAR error:INTEGER2;
  639.           BEGIN
  640.             error = point(x0,y0)
  641.           END;
  642. ╖╡╗╪╓╡╦╡├≈ú║╦∙╙╨╖╡╗╪╓╡▓╬╒╒ú▓ú«ú╡╜┌╡─╢¿╥σíú
  643. ╫óú║
  644. ú│ú«ú▒ú╡  ú╨ú╧ú╠ú╔ú╬ú┼
  645. ║»╩²╦╡├≈:       poline(xx,yy,w0,w1,bulge,n,c)
  646.                 double xx[],yy[],w0[],w1[],bulge[];
  647.                 int    n,c;
  648. ╣ª─▄╦╡├≈ú║╗µ╥╗╠⌡▒Σ┐φ╡─╕┤║╧╟·╒█╧▀íú╕├╕┤║╧╧▀╓╨├┐╢╬╡─╞≡╩╝┐φ╢╚╙δ╓╒╓╣┐φ╢╚ì
  649. ╢╝┐╔╥╘▓╗═¼íúè▓╬╩²╦╡├≈ú║ú╪ú╪ú¼ú┘ú┘╬¬╦½╛½╢╚╩²╫Θú¼▒φ╩╛╕┤║╧╧▀╜ß╡π╡─ú╪ú¼ú┘╫°▒Ωíúú╫ú░ú¼ì
  650. ú╫ú▒╬¬╦½╛½╢╚╩²╫Θú¼▒φ╩╛╜ß╡π╡─┐φ╢╚╓╡íúú╫ú░ú¿ú╔ú⌐▒φ╩╛╜ß╡πú╔ú¡ú▒╡╜ú╔╢╬╡─ì
  651. ╓╒╓╣┐φ╢╚ú¼ú╫ú▒ú¿ú╔ú⌐▒φ╩╛╜ß╡πú╔╡╜ú╔ú½ú▒╢╬╡─╞≡╩╝┐φ╢╚íúú╬╬¬╒√╨═╩²▒φ╩╛╕├ì
  652. ╠⌡╕┤║╧╧▀╜ß╡π╡─╕÷╩²íúú├╬¬╒√╨═╩²ú¼╩╟╕├╠⌡╕┤║╧╧▀╡─┐¬╣╪▒Ω╓╛ú¼╝┤╞≡╡π╙δ╓╒╡πì
  653. ╩╟╖±╧α┴¼íú╚⌠ú├ú╜ú░╘≥╩╟┐¬╡─ú¼╚⌠ú├úíú╜ú░╘≥╩╟╣╪╡─íúú┬ú╒ú╠ú╟ú┼╬¬╦½╛½╢╚╩²ì
  654. ╫Θú¼▒φ╩╛╕┤║╧╧▀╓╨╗í╢╚╡─═╣╢╚íú╚⌠ú┬ú╒ú╠ú╟ú┼ú█ú╔ú▌úíú╜ú░ú¼╘≥╩╛╕┤║╧╧▀╓╨╡┌ì
  655. ú╔╢╬╬¬╗í╢╚ú¼ú┬ú╒ú╠ú╟ú┼╢¿╥σ▓╬╒╒ú│ú«ú▒ú▓  ú╨ú╠ú╔ú╬ú┼╓╨╡─╦╡├≈íú╚⌠ú┬ú╒ú╠ì
  656. ú╟ú┼ú█ú╔ú▌ú╜ú░ú¼╘≥▒φ╩╛╕┤║╧╧▀ú╔╢╬╬¬╓▒╧▀╢╬íú
  657. ╡≈╙├╛┘└²:
  658.     ---------------------------- C ---------------------------------
  659.         int     poline(xx,yy,w0,w1,bulge,n,c);
  660.         double  xx[],yy[],w0[],w1[],bulge[];
  661.         int     n,c;
  662.         int     error;
  663.         error = poline(xx,yy,w0,w1,bulge,n,c);
  664.       ------------------------- FORTRAN ------------------------------
  665.         INTERFACE TO INTEGER*2 FUNCTION POLINE[C](XX[REFERENCE],
  666.      +               YY[REFERENCE],W0[REFERENCE],W1[REFERENCE],
  667.      +               BULGE[REFERENCE],N,C)
  668.         DOUBLE PRECISION XX,YY,W0,W1,BULGE
  669.         INTEGRE*2 N,C
  670.         END
  671.         INTEGER*2 POLINE
  672.         IERR = POLINE(XX,YY,W0,W1,BULGE,N,C)
  673.     ------------------------- PASCAL -------------------------------
  674.         FUNCTION poline(VARS xx,yy,w0,w1:REAL8;VARS bulge:REAL8;
  675.                         n,c:INTEGER2):INTEGER2[C];EXTERN;
  676.           PROCEDURE polinep;
  677.             VAR error:INTEGER2;
  678.             BEGIN
  679.               error = poline(xx,yy,w0,w1,bulge,c,n)
  680.             END;
  681. ╖╡╗╪╦╡├≈ú║╚⌠ú╬ú╝ú╜ú░ú¼╘≥╖╡╗╪╓╡╬¬ú╡ú¼╞Σ╦ⁿ╖╡╗╪╓╡▓╬╒╒ú▓ú«ú╡╜┌╡─╢¿╥σíú
  682. ╫óú║╚⌠╕┤║╧╧▀╦∙╙╨╢╬╬¬═¼╥╗┐φ╢╚ú¼╗≥┐φ╢╚╛∙╬¬┴πú¼╘≥┐╔╡≈╙├╕ⁿ╝≥╡Ñ╡─║»╩²ú╨ú╠ì
  683. ú╔ú╬ú┼íú
  684. ú│ú«ú▒ú╢  ú╙ú╧ú╠ú╔ú─
  685. ║»╩²╦╡├≈:       solid(xx,yy,n)
  686.                 double xx[],yy[];
  687.                 int    n;
  688. ╣ª─▄╦╡├≈ú║╗µ╢α╕÷┴¼╨°╡─╠ε│Σ╩╡╠σú¼├┐╕÷╠ε│Σ╩╡╠σ╙╔╦─╕÷╡π╫≈╬¬╢Ñ╡πú¼╢Ñ╡π▓╗ì
  689. ═¼╡─╦│╨≥┐╔╡├╡╜▓╗═¼╩▒╜ß╡π═╝╨╬íú╟δ▓╬┐╝ú┴ú╒ú╘ú╧ú├ú┴ú─╙├╗º╩╓▓ß╣µ╢¿╢Ñ╡π╦│ì
  690. ╨≥íú╟░╥╗╕÷╠ε│Σ╩╡╠σ╡─╫ε║≤┴╜╕÷╢Ñ╡π╬¬║≤╥╗╕÷╠ε│Σ╩╡╠σ╡─┐¬╩╝┴╜╕÷╢Ñ╡πíú
  691. ▓╬╩²╦╡├≈ú║ú╪ú╪ú¼ú┘ú┘╬¬╦½╛½╢╚╩╡╨═╩²╫Θíú▒φ╩╛╠ε│Σ╩╡╠σ╡─╢Ñ╡π╫°▒Ωíúú╬╬¬╒√ì
  692. ╨═╩²ú¼▒φ╩╛╢Ñ╡π╡─╕÷╩²ú¼▒╪╨δú╬ú╛ú╜ú┤íú
  693.  
  694. ╡≈╙├╛┘└²ú║
  695.   ---------------------------- C ---------------------------------
  696.       int      solid(xx,yy,n);
  697.       double      xx[],yy[];
  698.       int      n;
  699.       int      error;
  700.       error = solid(xx,yy,n);
  701.     ------------------------- FORTRAN ------------------------------
  702.       INTERFACE TO INTEGER*2 FUNCTION SOLID[C](XY[REFERENCE],
  703.      +                 YY[REFERENCE],N)è      DOUBLE PRECISION XX,YY
  704.       INTEGER*2 N
  705.       END
  706.       INTEGER*2 SOLID
  707.       IERR = SOLID(XX,YY,N)
  708.     ------------------------- PASCAL -------------------------------
  709.       FUNCTION solid(VARS xx,yy:REAL8;n:INTEGER2):INTEGER2[C];EXTERN;
  710.       PROCEDURE solidp;
  711.         VAR error:INTEGER2;
  712.         BEGIN
  713.           error = solid(xx,yy,n)
  714.         END;
  715. ╖╡╗╪╓╡╦╡├≈ú║╚τ╣√ú╬ú╝ú┤╘≥╖╡╗╪╓╡╬¬ú╡íú╞Σ╦ⁿ╖╡╗╪╓╡▓╬╒╒ú▓ú«ú╡╜┌╡─╢¿╥σíú
  716. ╫óú║
  717. ú│ú«ú▒ú╖    ú╙ú╘ú┘ú╠ú┼
  718. ║»╩²╦╡├≈ú║style(style_name,shp_f1,shp_f2,height,width,angle,bud)
  719.             char      style_name[],shp_f1[],shp_f2[];
  720.             double      height,width,angle;
  721.             int      bud;
  722. ╣ª─▄╦╡├≈ú║╔Φ╓├╡▒╟░╫╓╠σú¼╚τ╣√╥¬╔Φ╓├╡─╡▒╟░╫╓╠σ▓╗┤µ╘┌ú¼╘≥╕∙╛▌╦∙╕°╡─╫╓╠σì
  723. ├√╝░╞Σ▓╬╩²╔·│╔╥╗╕÷╨┬╡─╫╓╠σú¼▓ó░╤╦ⁿ╫≈╬¬╡▒╟░╫╓╠σíú
  724. ▓╬╩²╦╡├≈ú║ú╙ú╘ú┘ú╠ú┼ú▀ú╬ú┴ú═ú┼╬¬╫╓╖√┤«└α╨═ú¼▒φ╩╛╫╓╠σ├√íúú╙ú╚ú╨ú¡ú╞ú▒ì
  725. ú¼ú╙ú╚ú╨ú¡ú╞ú▓╬¬╫╓╖√┤«└α╨═ú¼▒φ╩╛╕├╫╓╠σ╦∙╙├╡─╡┌ú▒ú¼ú▓╨═╬─╠σ├√ú¼▓╗╨Φ╥¬ì
  726. └⌐╒╣├√íúú╚ú┼ú╔ú╟ú╚ú╘▒φ╩╛╕▀╢╚ú¼╚τ╬¬┴πú¼╘≥▓╗╣╠╢¿íúú╫ú╔ú─ú╘ú╚╬¬╦½╛½╢╚╩╡ì
  727. ╩²ú¼▒φ╩╛┐φ╢╚╥≥╫╙íúú┴ú╬ú╟ú╠ú┼╬¬╦½╛½╢╚╩╡╩²╨═ú¼▒φ╩╛╟π╨▒╜╟╢╚ú¼╙├╗í╢╚▒φ╩╛ì
  728. íúú┬ú╒ú─╬¬╒√╨═ú¼▒φ╩╛╫╓╠σ╩╟╖±╖┤╧≥ú¼╡▀╡╣íúú┬ú╒ú─ú╜ú░▒φ╩╛╒²│úú╗ú┬ú╒ú─ú╜ì
  729. ú▓▒φ╩╛╖┤╧≥ú╗ú┬ú╒ú─ú╜ú┤▒φ╩╛╡▀╡╣ú╗ú┬ú╒ú─ú╜ú╢▒φ╩╛╝╚╖┤╧≥ú¼╙╓╡▀╡╣íú
  730. ╡≈╙├╛┘└²ú║
  731.     ---------------------------- C ---------------------------------
  732.       int      style(style_name,shp_f1,shp_f2,height,width,angle,bud);
  733.       char      style_name[],shp_f1[],shp_f2[];
  734.       double      height,width,angle;
  735.       int      bud;
  736.       int      error;
  737.       error = style("STANDARD","TXT","",height,width,angle,bud);
  738.     ------------------------- FORTRAN ------------------------------
  739.       INTERFACE TO INTEGER*2 FUNCTION STYLE[C](STYLENAME[REFERENCE],
  740.      +                 SHP_F1[REFERENCE],SHP_F2[REFERENCE],
  741.      +                 HEIGHT,WIDTH,ANGLE,BUD)
  742.       CHARACTER*1 STYLENAME,SHP_F1,SHP_F2
  743.       DOUBLE PRECISION HEIGHT,WIDTH,ANGLE
  744.       INTEGER*2 BUD
  745.       END
  746.       INTEGER*2 STYLE
  747.       IERR = STYLE('STANDARD'C,'TXT'C,''C,HEIGHT,WIDTH,ANGLE,BUD)
  748.     ------------------------- PASCAL -------------------------------
  749.       FUNCTION style(VARS style_name,shp_f1,shp_f2:BYTE;
  750.          height,width,angle:REAL8;bud:INTEGER2):INTEGER2[C];EXTERN;
  751.       PROCEDURE stylep;
  752.         VAR error:INTEGER2;
  753.         BEGIN
  754.           error = style("STANDARD"*CHR(0),"TXT"*CHR(0),""*CHR(0),
  755.                 height,width,angle,bud)
  756.         END;
  757. ╖╡╗╪╓╡╦╡├≈ú║╚τ╣√ú┬ú─╓╡╖╟╖¿ú¼╘≥╖╡╗╪╓╡╬¬ú╡íú╞Σ╦ⁿ╖╡╗╪╓╡▓╬╒╒ú▓ú«ú╡╜┌╡─╢¿ìè╥σíú
  758. ╫óú║   ▒╛║»╩²╓╗╩╩╙├╙┌ú▓ú«ú╡░µ╝╚╞Σ╕ⁿ╕▀░µ▒╛íú╥╗╕÷╫╓╠σ┐╔╙╔┴╜╕÷╨═╬─╝■╔·│╔ì
  759. íú╚τ╣√╜÷╙├╥╗╕÷╨═╬─╝■ú¼╘≥╡┌╢■╕÷╨═╬─╝■├√╕°╥╗╕÷┐╒╫╓╖√┤«╝┤┐╔íú
  760. ú│ú«ú▒ú╕  ú╘ú┼ú╪ú╘
  761. ║»╩²╦╡├≈ú║  text(x0,y0,height,angle,string)
  762.             double      x0,y0,height,angle;
  763.             char      string[];
  764. ╣ª─▄╦╡├≈ú║╥└╒╒╓╕╢¿╡─╬╗╓├ú¼╕▀╢╚╝░╜╟╢╚╘┌═╝╓╨▒Ω╫ó╕°╢¿╡─╫╓╖√┤«íú
  765. ▓╬╩²╦╡├≈ú║ú╪ú░ú¼ú┘ú░╬¬╦½╛½╢╚╩╡╩²ú¼▒φ╩╛╫╓╖√┤«╫≤╧┬╢╦╡π╡─╫°▒Ωíúú╚ú┼ú╔ú╟ì
  766. ú╚ú╘╬¬╦½╛½╢╚╩╡╩²ú¼▒φ╩╛╕▀╢╚íúú┴ú╬ú╟ú╠ú┼╬¬╦½╛½╢╚╩╡╩²ú¼▒φ╩╛╜╟╢╚íúú╙ú╘ú╥ì
  767. ú╔ú╬ú╟╬¬╫╓╖√┤«└α╨═ú¼╩╟╥¬▒Ω╫ó╡─╫╓╖√┤«íú
  768. ╡≈╙├╛┘└²ú║
  769.     ---------------------------- C ---------------------------------
  770.       int      text(x0,y0,height,angle,string);
  771.       double      x0,y0,height,angle;
  772.       char      string[];
  773.       int      error;
  774.       error = text(x0,y0,height,angle,"TEXT STRING")
  775.    ------------------------- FORTRAN ------------------------------
  776.       INTERFACE TO INTEGER*2 FUNCTION TEXT[C](X0,Y0,HEIGHT,
  777.      +                 ANGLE,STRING[REFERENCE])
  778.       DOUBLE PRECISION X0,Y0,HEIGHT,ANGLE
  779.       CHARACTER*1 STRING
  780.       INTEGER*2 BUD
  781.       END
  782.       INTEGER*2 TEXT
  783.       IERR = TEXT(X0,Y0,HEIGHT,ANGLE,'TEXT STRING'C)
  784.    ------------------------- PASCAL -------------------------------
  785.       FUNCTION text(x0.y0,height,angle:REAL8;VARS string:BYTE)
  786.                :INTEGER2[C];EXTERN;
  787.       PROCEDURE textp;
  788.         VAR error:INTEGER2;
  789.         BEGIN
  790.           error = text(x0,y0,height,angle,"TEXT STRING"*CHR(0))
  791.         END;
  792. ╖╡╗╪╓╡╦╡├≈ú║╦∙╙╨╖╡╗╪╓╡▓╬╒╒ú▓ú«ú╡╜┌╡─╢¿╥σíú
  793. ╫óú║
  794. ú│ú«ú▒ú╣  ú╘ú╥ú┴ú├ú┼
  795. ║»╩²╦╡├≈ú║  trace(x0,y0,x1,y1,w)
  796.             double x0,y0,x1,y1,w;
  797. ╣ª─▄╦╡├≈ú║╗µ╥╗╠⌡┤°┐φ╢╚╡─╓▒╧▀íú
  798. ▓╬╩²╦╡├≈ú║╦∙╙╨▓╬╩²╢╝╩╟╦½╛½╢╚╩╡╩²íú╞Σ╓╨ú╪ú░ú¼ú┘ú░▒φ╩╛╧▀╡─╞≡╡πú╗ú╪ú▒ú¼ì
  799. ú┘ú▒▒φ╩╛╧▀╡─╓╒╡πú╗ú╫▒φ╩╛╧▀╡─┐φ╢╚íú
  800. ╡≈╙├╛┘└²ú║
  801.    ---------------------------- C ---------------------------------
  802.       int      trace(x0,y0,x1,y1,w);
  803.       double      x0,y0,x1,y1,w;
  804.       int      error;
  805.       error = trace(x0,y0,x1,y1,w)
  806.    ------------------------- FORTRAN ------------------------------
  807.       INTERFACE TO INTEGER*2 FUNCTION TRACE[C](X0,Y0,X1,W)
  808.       DOUBLE PRECISION X0,Y0,X1,Y1,W
  809.       END
  810.       INTEGER*2 TRACE
  811.       IERR = TRACE(X0,Y0,X1,Y1,W)è   ------------------------- PASCAL -------------------------------
  812.       FUNCTION trace(x0,y0,x1,y1,w:REAL8):INTEGER2[C];EXTERN;
  813.       PROCEDURE tracep;
  814.         VAR error:INTEGER2;
  815.         BEGIN
  816.           error = trace(x0,y0,x1,y1,w)
  817.         END;
  818. ╖╡╗╪╓╡╦╡├≈ú║╚τ╣√╞≡╡π╙δ╓╒╡π╓╪║╧ú¼╘≥╖╡╗╪╓╡╬¬ú╡ú«╚τ╣√ú╫ú╝ú░╖╡╗╪╓╡╬¬ú╢ú«ì
  819. ╞Σ╦ⁿ╖╡╗╪╓╡▓╬╒╒ú▓ú«ú╡╜┌íú
  820. ╫óú║
  821. ú│ú«ú▓ú░  ú╫ú┬ú╠ú╧ú├ú╦
  822. ║»╩²╦╡├≈ú║  wblock(blk_name,xb,yb)
  823.             char blk_name[];
  824.             double      xb,yb;
  825. ╣ª─▄╦╡├≈ú║┤╦║»╩²╜½┤╙┤≥┐¬═╝╨╬╬─╝■ú¿═¿╣²╡≈╙├ú╧ú╨ú╬ú─ú╫ú╟║»╩²ú⌐ú¼╗≥┤╙╔╧ì
  826. ╥╗┤╬╡≈╙├ú┬ú╠ú╧ú├ú╦╗≥ú╫ú┬ú╠ú╧ú├ú╦ ║»╩²┐¬╩╝ú¼╡╜▒╛┤╬╡≈╙├╕├║»╩²╬¬╓╣╦∙╔·│╔ì
  827. ╡─╦∙╙╨╩╡╠σ╫÷│╔╥╗╕÷═╝╨╬┐Θíú▓ó╜½╞Σ╔·│╔ú╫ú╟╬─╝■ú¼╝┤═Γ▓┐═╝╨╬┐Θíú┐╔╙╔╞Σ╦ⁿì
  828. ═╝╨╬╥²╙├íú
  829. ▓╬╩²╦╡├≈ú║ú┬ú╠ú╦ú▀ú╬ú┴ú═ú┼╬¬╫╓╖√┤«└α╨═ú¼▒φ╩╛┐Θ├√íúú╪ú┬ú¼ú┘ú┬╬¬╦½╛½╢╚ì
  830. ╩╡╩²└α╨═ú¼▒φ╩╛┐Θ╡─╗∙╡πíú
  831. ╡≈╙├╛┘└²ú║
  832.    ---------------------------- C ---------------------------------
  833.       int      wblock(blk_name,xb,yb);
  834.       char      blk_name[];
  835.       double      xb,yb;
  836.       int      error;
  837.       error = wblock("Desk",xb,yb);
  838.    ------------------------- FORTRAN ------------------------------
  839.       INTERFACE TO INTEGER*2 FUNCTION WBLOCK[C](BLKNAME[REFERENCE],
  840.      +                 XB,YB)
  841.       CHARACTER*1 WBLKNAME
  842.       DOUBLE PRECISION XB,YB
  843.       END
  844.       INTEGER*2 WBLOCK
  845.       IERR = WBLOCK('Desk'C,XB,YB)
  846.     ------------------------- PASCAL -------------------------------
  847.       FUNCTION wblock(VARS blk_name:BYTE;xb,yb:REAL8)
  848.                :INTEGER2[C];EXTERN;
  849.       PROCEDURE wblockp;
  850.         VAR error:INTEGER2;
  851.         BEGIN
  852.           error = wblock("Desk"*CHR(0),xb,yb)
  853.         END;
  854. ╖╡╗╪╓╡╦╡├≈ú║╦∙╙╨╖╡╗╪╓╡▓╬╒╒ú▓ú«ú╡╜┌╡─╢¿╥σíú
  855.