home *** CD-ROM | disk | FTP | other *** search
/ gondwana.ecr.mu.oz.au/pub/ / Graphics.tar / Graphics / VOGLE.ZIP / VOGLE / SRC / MSFORT / A next >
Encoding:
Text File  |  2000-02-11  |  11.6 KB  |  465 lines
  1. Calling vinit
  2. C-vinit: A Sample String
  3.  
  4. Calling vexit
  5. C-vexit
  6.  
  7. Calling voutput
  8. C-voutput: A Sample String
  9.  
  10. Calling vnewdev
  11. C-vnewdev: A Sample String
  12.  
  13. Calling vgetdev
  14. C-vgetdev: A_device
  15.  
  16. vgetdev returns: A_device                                                      
  17.                                       
  18. Calling clear
  19. C-clear
  20.  
  21. Calling color(7)
  22. C-color: 7
  23.  
  24. Calling mapcolor(1, 2, 3, 4)
  25. C-mapcolor: 1 2 3 4
  26.  
  27. Calling clipping(.true.)
  28. C-clipping: 1
  29.  
  30. calling getkey()
  31. C-getkey: returning 11
  32.  
  33. getkey returns:          11
  34. calling getdepth()
  35. C-getdepth: returning 111
  36.  
  37. getdepth returns:         111
  38. calling locator()
  39. C-locator: returning 13 as fn val, x = 23.4, y = 44.2
  40.  
  41. locator returns:          13       23.400000       44.200000
  42. calling slocator()
  43. C-slocator: returning 13 as fn val, x = 23.4, y = 44.2
  44.  
  45. slocator returns:          13       23.400000       44.200000
  46. Calling viewport(10.0, 11.0, 12.0, 13.0)
  47. C-viewport: 10.000000 11.000000 12.000000 13.000000
  48.  
  49. Calling getviewport(a1, a2, a3, a4)
  50. C-getviewport: returning 1.0, 2.0, 3.0, 4.0
  51.  
  52. getviewport returns:        1.000000        2.000000        3.000000
  53.        4.000000
  54. Calling pushviewport
  55. C-pushviewport
  56.  
  57. Calling popviewport
  58. C-popviewport
  59.  
  60. Calling pushattributes
  61. C-pushattributes
  62.  
  63. Calling popattributes
  64. C-popattributes
  65.  
  66. Calling ortho(20.0, 30.0, 40.0, 50.0, 60.0, 70.0)
  67. C-ortho: 20.000000 30.000000 40.000000 50.000000 60.000000 70.000000
  68.  
  69. Calling ortho2(40.0, 50.0, 60.0, 70.0)
  70. C-ortho2: 40.000000 50.000000 60.000000 70.000000
  71.  
  72. Calling perspective(140.0, 150.0, 160.0, 170.0)
  73. C-perspective: 140.000000 150.000000 160.000000 170.000000
  74.  
  75. Calling window(20.0, 30.0, 40.0, 50.0, 60.0, 70.0)
  76. C-window: 20.000000 30.000000 40.000000 50.000000 60.000000 70.000000
  77.  
  78. Calling pushmatrix
  79. C-pushmatrix
  80.  
  81. Calling popmatrix
  82. C-popmatrix
  83.  
  84. Calling polarview(240.0, 250.0, 260.0, 270.0)
  85. C-polarview: 240.000000 250.000000 260.000000 270.000000
  86.  
  87. Calling lookat(20.0, 30.0, 40.0, 50.0, 60.0, 70.0, 80.0)
  88. C-lookat: 20.000000 30.000000 40.000000 50.000000 60.000000 70.000000 80.000000
  89.  
  90. Calling move(23.0, 24.0, 25.0)
  91. C-move: 23.000000 24.000000 25.000000
  92.  
  93. Calling rmove(230.0, 240.0, 250.0)
  94. C-rmove: 230.000000 240.000000 250.000000
  95.  
  96. Calling move2(240.0, 250.0)
  97. C-move2: 240.000000 250.000000
  98.  
  99. Calling rmove2(40.0, 50.0)
  100. C-rmove2: 40.000000 50.000000
  101.  
  102. Calling smove2(540.0, 550.0)
  103. C-smove2: 540.000000 550.000000
  104.  
  105. Calling rsmove2(1540.0, 1550.0)
  106. C-rsmove2: 1540.000000 1550.000000
  107.  
  108. Calling draw(23.0, 24.0, 25.0)
  109. C-draw: 23.000000 24.000000 25.000000
  110.  
  111. Calling rdraw(230.0, 240.0, 250.0)
  112. C-rdraw: 230.000000 240.000000 250.000000
  113.  
  114. Calling draw2(240.0, 250.0)
  115. C-draw2: 240.000000 250.000000
  116.  
  117. Calling rdraw2(40.0, 50.0)
  118. C-rdraw2: 40.000000 50.000000
  119.  
  120. Calling sdraw2(540.0, 550.0)
  121. C-sdraw2: 540.000000 550.000000
  122.  
  123. Calling rsdraw2(1540.0, 1550.0)
  124. C-rsdraw2: 1540.000000 1550.000000
  125.  
  126. Calling arcprecision(44)
  127. C-arcprecision: 44
  128.  
  129. Calling arc(1.0, 2.0, 3.0, 4.0, 5.0)
  130. C-arc: 1.000000 2.000000 3.000000 4.000000 5.000000
  131.  
  132. Calling sector(11.0, 12.0, 13.0, 14.0, 15.0)
  133. C-sector: 11.000000 12.000000 13.000000 14.000000 15.000000
  134.  
  135. Calling circle(11.0, 12.0, 13.0)
  136. C-circle: 11.000000 12.000000 13.000000
  137.  
  138. Calling curvebasis(a)
  139.    0.000000E+00        4.000000        8.000000       12.000000
  140.        1.000000        5.000000        9.000000       13.000000
  141.        2.000000        6.000000       10.000000       14.000000
  142.        3.000000        7.000000       11.000000       15.000000
  143. C-curvebasis:
  144. 0.000000 1.000000 2.000000 3.000000
  145. 4.000000 5.000000 6.000000 7.000000
  146. 8.000000 9.000000 10.000000 11.000000
  147. 12.000000 13.000000 14.000000 15.000000
  148.  
  149.  
  150. Calling curveprecision(45)
  151. C-curveprecision: 45
  152.  
  153. Calling rcurve(a)
  154.    0.000000E+00        4.000000        8.000000       12.000000
  155.        1.000000        5.000000        9.000000       13.000000
  156.        2.000000        6.000000       10.000000       14.000000
  157.        3.000000        7.000000       11.000000       15.000000
  158. C-rcurve:
  159. 0.000000 1.000000 2.000000 3.000000
  160. 4.000000 5.000000 6.000000 7.000000
  161. 8.000000 9.000000 10.000000 11.000000
  162. 12.000000 13.000000 14.000000 15.000000
  163.  
  164.  
  165. Calling curve(b)
  166.      100.000000      400.000000      700.000000     1000.000000
  167.      200.000000      500.000000      800.000000     1100.000000
  168.      300.000000      600.000000      900.000000     1200.000000
  169. C-curve:
  170. 100.000000 200.000000 300.000000
  171. 400.000000 500.000000 600.000000
  172. 700.000000 800.000000 900.000000
  173. 1000.000000 1100.000000 1200.000000
  174.  
  175.  
  176. Calling curven(6, c)
  177.       50.000000       80.000000      110.000000      140.000000
  178.      170.000000      200.000000
  179.       60.000000       90.000000      120.000000      150.000000
  180.      180.000000      210.000000
  181.       70.000000      100.000000      130.000000      160.000000
  182.      190.000000      220.000000
  183. C-curven: 6
  184. 50.000000 60.000000 70.000000
  185. 80.000000 90.000000 100.000000
  186. 110.000000 120.000000 130.000000
  187. 140.000000 150.000000 160.000000
  188. 170.000000 180.000000 190.000000
  189. 200.000000 210.000000 220.000000
  190.  
  191.  
  192. Calling rect(10.0, 11.0, 12.0, 13.0)
  193. C-rect: 10.000000 11.000000 12.000000 13.000000
  194.  
  195. Calling polyfill(.false.)
  196. C-polyfill: 0
  197.  
  198. Calling polyhatch(.true.)
  199. C-polyhatch: 1
  200.  
  201. Calling hatchang(45.0)
  202. C-hatchang: 45.000000
  203.  
  204. Calling hatchpitch(5.0)
  205. C-hatchpitch: 5.000000
  206.  
  207. Calling poly(6, c)
  208.       50.000000       80.000000      110.000000      140.000000
  209.      170.000000      200.000000
  210.       60.000000       90.000000      120.000000      150.000000
  211.      180.000000      210.000000
  212.       70.000000      100.000000      130.000000      160.000000
  213.      190.000000      220.000000
  214. C-poly: 6
  215. 50.000000 60.000000 70.000000
  216. 80.000000 90.000000 100.000000
  217. 110.000000 120.000000 130.000000
  218. 140.000000 150.000000 160.000000
  219. 170.000000 180.000000 190.000000
  220. 200.000000 210.000000 220.000000
  221.  
  222.  
  223. Calling poly2(6, d)
  224.       50.000000       80.000000      110.000000      140.000000
  225.      170.000000      200.000000
  226.       60.000000       90.000000      120.000000      150.000000
  227.      180.000000      210.000000
  228. C-poly2: 6
  229. 50.000000 60.000000
  230. 70.000000 80.000000
  231. 90.000000 100.000000
  232. 110.000000 120.000000
  233. 130.000000 140.000000
  234. 150.000000 160.000000
  235.  
  236.  
  237. Calling makepoly()
  238. C-makepoly
  239.  
  240. Calling closepoly()
  241. C-closepoly
  242.  
  243. Calling font(s)
  244. C-font: A_device
  245.  
  246. Calling numchars()
  247. C-numchars: returning 15
  248.  
  249. Numchars returns:          15
  250. Calling textsize(3.0, 4.5)
  251. C-textsize: 3.000000 4.500000
  252.  
  253. Calling textang(33.3)
  254. C-textang: 33.299999
  255.  
  256. Calling fixedwidth(2)
  257. C-fixedwidth: 2
  258.  
  259. Calling centertext(2)
  260. C-centertext: 2
  261.  
  262. Calling getcharsize('A', x, y)
  263. C-getcharsize: A, returning w = 11.3, h = 555.4
  264.  
  265. x =       11.300000 y =      555.400000
  266. Calling getfontsize(x, y)
  267. C-getfontsize: returning w = 11.3, h = 555.4
  268.  
  269. x =       11.300000 y =      555.400000
  270. Calling drawchar('K')
  271. C-drawchar: K
  272.  
  273. Calling drawstr('Hello')
  274. C-drawstr: Hello
  275.  
  276. Calling strlength(s)
  277. C-strlength: returning (float)strlen(A_device)
  278.  
  279. strlength returns:        8.000000
  280. Calling boxtext(1.0, 2.0, 3.0, 4.0, s)
  281. C-boxtext: 1.000000 2.000000 3.000000 4.000000 A_device
  282.  
  283. Calling boxfit(22.3, 44.5, 11)
  284. C-boxfit: 22.299999 44.500000 11
  285.  
  286. Calling translate(0.5, 0.6, 0.7)
  287. C-translate: 0.500000 0.600000 0.700000
  288.  
  289. Calling scale(0.5, 0.6, 0.7)
  290. C-scale: 0.500000 0.600000 0.700000
  291.  
  292. Calling rotate(22.4, 'x')
  293. C-rotate: 22.400000 x
  294.  
  295. Calling patchbasis(a, a)
  296.    0.000000E+00        4.000000        8.000000       12.000000
  297.        1.000000        5.000000        9.000000       13.000000
  298.        2.000000        6.000000       10.000000       14.000000
  299.        3.000000        7.000000       11.000000       15.000000
  300. C-patchbasis:
  301. 0.000000 1.000000 2.000000 3.000000
  302. 4.000000 5.000000 6.000000 7.000000
  303. 8.000000 9.000000 10.000000 11.000000
  304. 12.000000 13.000000 14.000000 15.000000
  305.  
  306. 0.000000 1.000000 2.000000 3.000000
  307. 4.000000 5.000000 6.000000 7.000000
  308. 8.000000 9.000000 10.000000 11.000000
  309. 12.000000 13.000000 14.000000 15.000000
  310.  
  311.  
  312. calling patchprecision(34, 45)
  313. C-patchprecision: 34 45
  314.  
  315. calling patchcurves(134, 415)
  316. C-patchcurves: 134 415
  317.  
  318. calling rpatch(a, a, a, a)
  319. C-rpatch:
  320. 0.000000 1.000000 2.000000 3.000000
  321. 4.000000 5.000000 6.000000 7.000000
  322. 8.000000 9.000000 10.000000 11.000000
  323. 12.000000 13.000000 14.000000 15.000000
  324.  
  325. 0.000000 1.000000 2.000000 3.000000
  326. 4.000000 5.000000 6.000000 7.000000
  327. 8.000000 9.000000 10.000000 11.000000
  328. 12.000000 13.000000 14.000000 15.000000
  329.  
  330. 0.000000 1.000000 2.000000 3.000000
  331. 4.000000 5.000000 6.000000 7.000000
  332. 8.000000 9.000000 10.000000 11.000000
  333. 12.000000 13.000000 14.000000 15.000000
  334.  
  335. 0.000000 1.000000 2.000000 3.000000
  336. 4.000000 5.000000 6.000000 7.000000
  337. 8.000000 9.000000 10.000000 11.000000
  338. 12.000000 13.000000 14.000000 15.000000
  339.  
  340.  
  341. calling patch(a, a, a)
  342. C-patch:
  343. 0.000000 1.000000 2.000000 3.000000
  344. 4.000000 5.000000 6.000000 7.000000
  345. 8.000000 9.000000 10.000000 11.000000
  346. 12.000000 13.000000 14.000000 15.000000
  347.  
  348. 0.000000 1.000000 2.000000 3.000000
  349. 4.000000 5.000000 6.000000 7.000000
  350. 8.000000 9.000000 10.000000 11.000000
  351. 12.000000 13.000000 14.000000 15.000000
  352.  
  353. 0.000000 1.000000 2.000000 3.000000
  354. 4.000000 5.000000 6.000000 7.000000
  355. 8.000000 9.000000 10.000000 11.000000
  356. 12.000000 13.000000 14.000000 15.000000
  357.  
  358.  
  359. calling point(500.0, 600.0, 700.0)
  360. C-point: 500.000000 600.000000 700.000000
  361.  
  362. calling point2(500.0, 600.0)
  363. C-point2: 500.000000 600.000000
  364.  
  365. Calling makeobj(3)
  366. C-makeobj: 3
  367.  
  368. Calling closeobj()
  369. C-closeobj
  370. Calling genobj()
  371. C-genobj: returning 77
  372. genobj returns:          77
  373. calling getopenobj()
  374. C-getopenobj: returning 88
  375. getopenobj returns:          88
  376. Calling callobj(23)
  377. C-callobj: 23
  378.  
  379. calling isobj(5)
  380. C-isobj: 5, returning 1
  381.  
  382. isobj returns: T
  383. Calling loadobj(8, s)
  384. C-loadobj: 8 A_device
  385.  
  386. Calling saveobj(9, s)
  387. C-saveobj: 9 A_device
  388.  
  389. Calling getgp(x, y, z)
  390. C-getgp: returning x = 1.0, y = 2.0, z = 3.0
  391.  
  392. x =        1.000000 y =        2.000000 z =        3.000000
  393. Calling getgp2(x, y)
  394. C-getgp2: returning x = 1.0, y = 2.0
  395.  
  396. x =        1.000000 y =        2.000000
  397. Calling sgetgp2(x, y)
  398. C-sgetgp2: returning x = 1.0, y = 2.0
  399.  
  400. x =        1.000000 y =        2.000000
  401. Calling getmatrix(w)
  402. C-getmatrix:
  403.  
  404.        1.000000        2.000000        3.000000        4.000000
  405.        1.000000        2.000000        3.000000        4.000000
  406.        1.000000        2.000000        3.000000        4.000000
  407.        1.000000        2.000000        3.000000        4.000000
  408. Calling multmatrix(a)
  409. C-multmatrix:
  410. 0.000000 1.000000 2.000000 3.000000
  411. 4.000000 5.000000 6.000000 7.000000
  412. 8.000000 9.000000 10.000000 11.000000
  413. 12.000000 13.000000 14.000000 15.000000
  414.  
  415.  
  416. Calling loadmatrix(a)
  417. C-loadmatrix:
  418. 0.000000 1.000000 2.000000 3.000000
  419. 4.000000 5.000000 6.000000 7.000000
  420. 8.000000 9.000000 10.000000 11.000000
  421. 12.000000 13.000000 14.000000 15.000000
  422.  
  423.  
  424. Calling getstring(3, s)
  425. C-getstring: bcol = 3 setting s to 'Hello there - bonk'
  426.  
  427. getstring(3, s) returns:          18Hello there - bonk                         
  428.                                                          
  429. Calling getaspect()
  430. C-getaspct: returning 0.75
  431.  
  432. getaspect returns:    7.500000E-01
  433. Calling getfactors(x, y)
  434. C-getfactors: returning 1.2, 1.3
  435.  
  436. getfactors returns:        1.200000        1.300000
  437. Calling getdisplaysize(x, y)
  438. C-getdisplaysize: returning 1024, 768
  439.  
  440. getdisplaysize returns:     1024.000000      768.000000
  441. C-backbuffer: returning 110
  442.  
  443. Calling backbuffer:         110
  444. Calling frontbuffer
  445. C-frontbuffer:
  446.  
  447. Calling swapbuffers
  448. C-swapbuffers:
  449.  
  450. Calling up(1.3, 2.3, 3.3)
  451. C-up: 1.300000, 2.300000, 3.300000
  452.  
  453. Calling prefsize(200, 200)
  454. C-prefsize: 200, 200
  455.  
  456. Calling prefposition(20, 30)
  457. C-prefposition: 20, 30
  458.  
  459. Calling backface(.true.)
  460. C-backface: 1
  461.  
  462. Calling backfacedir(1)
  463. C-backfacedir: 1
  464.  
  465.