home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / X / mit / demos / gpc / fig_enums.h < prev    next >
Encoding:
C/C++ Source or Header  |  1991-02-15  |  7.3 KB  |  219 lines
  1. /* $XConsortium: fig_enums.h,v 5.1 91/02/16 10:07:33 rws Exp $ */
  2.  
  3. /*
  4.  */
  5. /*--------------------------------------------------------------------*\
  6. |
  7. |  Copyright (C) 1989,1990, 1991, National Computer Graphics Association
  8. |
  9. |  Permission is granted to any individual or institution to use, copy, or
  10. |  redistribute this software so long as it is not sold for profit, provided
  11. |  this copyright notice is retained.
  12. |
  13. |                         Developed for the
  14. |                National Computer Graphics Association
  15. |                         2722 Merrilee Drive
  16. |                         Fairfax, VA  22031
  17. |                           (703) 698-9600
  18. |
  19. |                                by
  20. |                 SimGraphics Engineering Corporation
  21. |                    1137 Huntington Drive  Unit A
  22. |                      South Pasadena, CA  91030
  23. |                           (213) 255-0900
  24. |---------------------------------------------------------------------
  25. |
  26. | Author        :    SimGraphics Engineering Corportation
  27. |
  28. | File          :    fig_enums.h
  29. | Date          :    Fri Feb  9 10:46:55 PST 1990
  30. | Project       :    PLB
  31. | Description   :    Static integer variable initialized to a broad
  32. |            range of values.  Usefule for passing parameters
  33. |            to FORTRAN77 subprograms
  34. | Status        :    Version 1.0
  35. |
  36. | Revisions     :    
  37. |
  38. \*--------------------------------------------------------------------*/
  39. /* Phigs f77 constants */
  40. /* INTEGERS */
  41. /* Positive */
  42. static int PHIGS_f77_0=0, PHIGS_f77_1=1, PHIGS_f77_2=2, PHIGS_f77_3=3;
  43. static int PHIGS_f77_4=4, PHIGS_f77_5=5, PHIGS_f77_6=6, PHIGS_f77_7=7;
  44. static int PHIGS_f77_8=8, PHIGS_f77_9=9;
  45. static int PHIGS_f77_10=10, PHIGS_f77_11=11, PHIGS_f77_12=12, PHIGS_f77_13=13;
  46. static int PHIGS_f77_14=14, PHIGS_f77_15=15, PHIGS_f77_16=16, PHIGS_f77_17=17;
  47. static int PHIGS_f77_18=18, PHIGS_f77_19=19;
  48. static int PHIGS_f77_20=20, PHIGS_f77_21=21, PHIGS_f77_22=22, PHIGS_f77_23=23;
  49. static int PHIGS_f77_24=24, PHIGS_f77_25=25, PHIGS_f77_26=26, PHIGS_f77_27=27;
  50. static int PHIGS_f77_28=28, PHIGS_f77_29=29;
  51. static int PHIGS_f77_30=30, PHIGS_f77_31=31, PHIGS_f77_32=32, PHIGS_f77_33=33;
  52. static int PHIGS_f77_34=34, PHIGS_f77_35=35, PHIGS_f77_36=36, PHIGS_f77_37=37;
  53. static int PHIGS_f77_38=38, PHIGS_f77_39=39;
  54. static int PHIGS_f77_40=40, PHIGS_f77_41=41, PHIGS_f77_42=42, PHIGS_f77_43=43;
  55. static int PHIGS_f77_44=44, PHIGS_f77_45=45, PHIGS_f77_46=46, PHIGS_f77_47=47;
  56. static int PHIGS_f77_48=48, PHIGS_f77_49=49;
  57. static int PHIGS_f77_50=50, PHIGS_f77_51=51, PHIGS_f77_52=52, PHIGS_f77_53=53;
  58. static int PHIGS_f77_54=54, PHIGS_f77_55=55, PHIGS_f77_56=56, PHIGS_f77_57=57;
  59. static int PHIGS_f77_58=58, PHIGS_f77_59=59;
  60.  
  61. /* Negative */
  62. static int PHIGS_f77_m0=  0, PHIGS_f77_m1= -1;
  63. static int PHIGS_f77_m2= -2, PHIGS_f77_m3= -3;
  64. static int PHIGS_f77_m4= -4, PHIGS_f77_m5= -5;
  65. static int PHIGS_f77_m6= -6, PHIGS_f77_m7= -7;
  66. static int PHIGS_f77_m8= -8, PHIGS_f77_m9= -9;
  67. static int PHIGS_f77_m10= -10, PHIGS_f77_m11= -11;
  68. static int PHIGS_f77_m12= -12, PHIGS_f77_m13= -13;
  69. static int PHIGS_f77_m14= -14, PHIGS_f77_m15= -15;
  70. static int PHIGS_f77_m16= -16, PHIGS_f77_m17= -17;
  71. static int PHIGS_f77_m18= -18, PHIGS_f77_m19= -19;
  72. static int PHIGS_f77_m20= -20, PHIGS_f77_m21= -21;
  73. static int PHIGS_f77_m22= -22, PHIGS_f77_m23= -23;
  74. static int PHIGS_f77_m24= -24, PHIGS_f77_m25= -25;
  75. static int PHIGS_f77_m26= -26, PHIGS_f77_m27= -27;
  76. static int PHIGS_f77_m28= -28, PHIGS_f77_m29= -29;
  77.  
  78. /* Quick Reference defines */
  79. #define Fi0 &PHIGS_f77_0
  80. #define Fi1 &PHIGS_f77_1
  81. #define Fi2 &PHIGS_f77_2
  82. #define Fi3 &PHIGS_f77_3
  83. #define Fi4 &PHIGS_f77_4
  84. #define Fi5 &PHIGS_f77_5
  85. #define Fi6 &PHIGS_f77_6
  86. #define Fi7 &PHIGS_f77_7
  87. #define Fi8 &PHIGS_f77_8
  88. #define Fi9 &PHIGS_f77_9
  89. #define Fi10 &PHIGS_f77_10
  90. #define Fi11 &PHIGS_f77_11
  91. #define Fi12 &PHIGS_f77_12
  92. #define Fi13 &PHIGS_f77_13
  93. #define Fi14 &PHIGS_f77_14
  94. #define Fi15 &PHIGS_f77_15
  95. #define Fi16 &PHIGS_f77_16
  96. #define Fi17 &PHIGS_f77_17
  97. #define Fi18 &PHIGS_f77_18
  98. #define Fi19 &PHIGS_f77_19
  99. #define Fi20 &PHIGS_f77_20
  100. #define Fi21 &PHIGS_f77_21
  101. #define Fi22 &PHIGS_f77_22
  102. #define Fi23 &PHIGS_f77_23
  103. #define Fi24 &PHIGS_f77_24
  104. #define Fi25 &PHIGS_f77_25
  105. #define Fi26 &PHIGS_f77_26
  106. #define Fi27 &PHIGS_f77_27
  107. #define Fi28 &PHIGS_f77_28
  108. #define Fi29 &PHIGS_f77_29
  109. #define Fi30 &PHIGS_f77_30
  110. #define Fi31 &PHIGS_f77_31
  111. #define Fi32 &PHIGS_f77_32
  112. #define Fi33 &PHIGS_f77_33
  113. #define Fi34 &PHIGS_f77_34
  114. #define Fi35 &PHIGS_f77_35
  115. #define Fi36 &PHIGS_f77_36
  116. #define Fi37 &PHIGS_f77_37
  117. #define Fi38 &PHIGS_f77_38
  118. #define Fi39 &PHIGS_f77_39
  119. #define Fi40 &PHIGS_f77_40
  120. #define Fi41 &PHIGS_f77_41
  121. #define Fi42 &PHIGS_f77_42
  122. #define Fi43 &PHIGS_f77_43
  123. #define Fi44 &PHIGS_f77_44
  124. #define Fi45 &PHIGS_f77_45
  125. #define Fi46 &PHIGS_f77_46
  126. #define Fi47 &PHIGS_f77_47
  127. #define Fi48 &PHIGS_f77_48
  128. #define Fi49 &PHIGS_f77_49
  129. #define Fi50 &PHIGS_f77_50
  130. #define Fi51 &PHIGS_f77_51
  131. #define Fi52 &PHIGS_f77_52
  132. #define Fi53 &PHIGS_f77_53
  133. #define Fi54 &PHIGS_f77_54
  134. #define Fi55 &PHIGS_f77_55
  135. #define Fi56 &PHIGS_f77_56
  136. #define Fi57 &PHIGS_f77_57
  137. #define Fi58 &PHIGS_f77_58
  138. #define Fi59 &PHIGS_f77_59
  139.  
  140. #define Fim0 &PHIGS_f77_m0
  141. #define Fim1 &PHIGS_f77_m1
  142. #define Fim2 &PHIGS_f77_m2
  143. #define Fim3 &PHIGS_f77_m3
  144. #define Fim4 &PHIGS_f77_m4
  145. #define Fim5 &PHIGS_f77_m5
  146. #define Fim6 &PHIGS_f77_m6
  147. #define Fim7 &PHIGS_f77_m7
  148. #define Fim8 &PHIGS_f77_m8
  149. #define Fim9 &PHIGS_f77_m9
  150. #define Fim10 &PHIGS_f77_m10
  151. #define Fim11 &PHIGS_f77_m11
  152. #define Fim12 &PHIGS_f77_m12
  153. #define Fim13 &PHIGS_f77_m13
  154. #define Fim14 &PHIGS_f77_m14
  155. #define Fim15 &PHIGS_f77_m15
  156. #define Fim16 &PHIGS_f77_m16
  157. #define Fim17 &PHIGS_f77_m17
  158. #define Fim18 &PHIGS_f77_m18
  159. #define Fim19 &PHIGS_f77_m19
  160.  
  161. /* REALS */
  162. /* Some Numbers */
  163. static float PHIGS_f77_f_0=0., PHIGS_f77_f_1=1.;
  164. static float PHIGS_f77_f_2=2., PHIGS_f77_f_3=3.;
  165. static float PHIGS_f77_f_4=4., PHIGS_f77_f_5=5.;
  166. static float PHIGS_f77_f_6=6., PHIGS_f77_f_7=7.;
  167. static float PHIGS_f77_f_8=8., PHIGS_f77_f_9=9.;
  168. static float PHIGS_f77_f_m0=  0., PHIGS_f77_f_m1= -1.;
  169. static float PHIGS_f77_f_m2= -2., PHIGS_f77_f_m3= -3.;
  170. static float PHIGS_f77_f_m4= -4., PHIGS_f77_f_m5= -5.;
  171. static float PHIGS_f77_f_m6= -6., PHIGS_f77_f_m7= -7.;
  172. static float PHIGS_f77_f_m8= -8., PHIGS_f77_f_m9= -9.;
  173. static float PHIGS_f77_f_p0=.0, PHIGS_f77_f_p1=.1;
  174. static float PHIGS_f77_f_p2=.2, PHIGS_f77_f_p3=.3;
  175. static float PHIGS_f77_f_p4=.4, PHIGS_f77_f_p5=.5;
  176. static float PHIGS_f77_f_p6=.6, PHIGS_f77_f_p7=.7;
  177. static float PHIGS_f77_f_p8=.8, PHIGS_f77_f_p9=.9;
  178. #define Fr0 &PHIGS_f77_f_0
  179. #define Fr1 &PHIGS_f77_f_1
  180. #define Fr2 &PHIGS_f77_f_2
  181. #define Fr3 &PHIGS_f77_f_3
  182. #define Fr4 &PHIGS_f77_f_4
  183. #define Fr5 &PHIGS_f77_f_5
  184. #define Fr6 &PHIGS_f77_f_6
  185. #define Fr7 &PHIGS_f77_f_7
  186. #define Fr8 &PHIGS_f77_f_8
  187. #define Fr9 &PHIGS_f77_f_9
  188.  
  189. #define Frm0 &PHIGS_f77_f_m0
  190. #define Frm1 &PHIGS_f77_f_m1
  191. #define Frm2 &PHIGS_f77_f_m2
  192. #define Frm3 &PHIGS_f77_f_m3
  193. #define Frm4 &PHIGS_f77_f_m4
  194. #define Frm5 &PHIGS_f77_f_m5
  195. #define Frm6 &PHIGS_f77_f_m6
  196. #define Frm7 &PHIGS_f77_f_m7
  197. #define Frm8 &PHIGS_f77_f_m8
  198. #define Frm9 &PHIGS_f77_f_m9
  199.  
  200. #define Frp0 &PHIGS_f77_f_p0
  201. #define Frp1 &PHIGS_f77_f_p1
  202. #define Frp2 &PHIGS_f77_f_p2
  203. #define Frp3 &PHIGS_f77_f_p3
  204. #define Frp4 &PHIGS_f77_f_p4
  205. #define Frp5 &PHIGS_f77_f_p5
  206. #define Frp6 &PHIGS_f77_f_p6
  207. #define Frp7 &PHIGS_f77_f_p7
  208. #define Frp8 &PHIGS_f77_f_p8
  209. #define Frp9 &PHIGS_f77_f_p9
  210.  
  211. /* Common multiples of PI */
  212. static float PHIGS_f77_f_pxpi=3.1415927;
  213. static float PHIGS_f77_f_px2pi=6.2831853;
  214. static float PHIGS_f77_f_pxpio2=1.5707963;
  215.  
  216. /* Convert degrees to radians */
  217. static float PHIGS_f77_f_pxdtr=0.017453292;
  218.  
  219.