开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > GDI/图象编程 > 查看源码
SVGADEM2.C
资源名称：SVGACC10.zip　[点击查看]
上传用户：kammenn
上传日期：2007-06-26
资源大小：210k
文件大小：30k
源码类别：

GDI/图象编程

开发平台：

C/C++

SVGADEM2.C：源码内容
  1. /****************************************************************************
  2.  
  3.   'SVGACC' A Super Vga Graphics Library for use with Microsoft and
  4.   Borland C/C++
  5.   Copyright 1993-1994 by Stephen L. Balkum and Daniel A. Sill
  7.   GIF and 'Graphics Intechange Format' are trademarks (tm) of
  8.   Compuserve, Incorporated, an H&R Block Company.
  10. **************** UNREGISTERD SHAREWARE VERSION ***********************
  11. * FOR EVUALATION ONLY. NOT FOR RESALE IN ANY FORM. SOFTWARE WRITTEN  *
  12. * USING THIS UNREGISTERED SHAREWARE GRAPHICS LIBRARY MAY NOT BY SOLD *
  13. * OR USED FOR ANY PURPOSE OTHER THAN THE EVUALTION OF THIS LIBRARY.  *
  14. **********************************************************************
  16. **************** NO WARRANTIES AND NO LIABILITY **********************
  17. * Stephen L. Balkum and Daniel A. Sill provide no warranties, either *
  18. * expressed or implied, of merchantability, or fitness, for a        *
  19. * particular use or purpose of this SOFTWARE and documentation.      *
  20. * In no event shall Stephen L. Balkum or Daniel A. Sill be held      *
  21. * liable for any damages resulting from the use or misuse of the     * 
  22. * SOFTWARE and documentation.                                        *
  23. **********************************************************************
  25. ************** U.S. GOVERNMENT RESTRICTED RIGHTS *********************
  26. * Use, duplication, or disclosure of the SOFTWARE and documentation  *
  27. * by the U.S. Government is subject to the restictions as set forth  *
  28. * in subparagraph (c)(1)(ii) of the Rights in Technical Data and     *
  29. * Computer Software cluse at DFARS 252.227-7013.                     *
  30. * Contractor/manufacturer is Stephen L. Balkum and Daniel A. Sill,   *
  31. * P.O. Box 7704, Austin, Texas 78713-7704                            *
  32. **********************************************************************
  34. **********************************************************************
  35. * By using this SOFTWARE or documentation, you agree to the above    *
  36. * terms and conditions.                                              *
  37. **********************************************************************
  39.  ***************************************************************************/
  41. #define MODULE
  43. #include <stdio.h>
  44. #include <conio.h>
  45. #include <malloc.h>
  46. #include <string.h>
  47. #include <dos.h>
  48. #include <math.h>
  50. #include "svgacc.h"
  52. #include "svgademo.h"
  54. char showgif(char fname[]);
  55. void showhouse(D2Point *plotarray, D2Point *oplotarray);
  56. void showstar(D2Point *plotarray, D2Point *oplotarray);
  59. /********
  60.  * DO2D *
  61.  ********/
  63. char do2d(void)
  64. {
  65. int i, trans;
  66. int spcing, cntx, cnty;
  67. D2Point pointarray[9];
  68. D2Point plotarray[9];
  69. D2Point oplotarray[9];
  70. char ret;
  71. char title[TITLEN];
  72. char buf[TITLEN];
  73. char buf2[TITLEN];
  75. /*
  76.  * Set up the Title
  77.  */
  78. sprintf(title,"DEMO 11: 2D functions");
  79. palset(pal,0,255);
  81. /*
  82.  * Set up the star patter of points
  83.  */
  84. cntx = maxx / 2;
  85. cnty = (maxy - 32) / 2 + 32;
  86. spcing = maxx / 15;
  87. pointarray[0].x = 0;
  88. pointarray[0].y = -spcing * 3;
  89. pointarray[1].x = spcing;
  90. pointarray[1].y = -spcing;
  91. pointarray[2].x = spcing * 3;
  92. pointarray[2].y = 0;
  93. pointarray[3].x = spcing;
  94. pointarray[3].y = spcing;
  95. pointarray[4].x = 0;
  96. pointarray[4].y = spcing * 3;
  97. pointarray[5].x = -spcing;
  98. pointarray[5].y = spcing;
  99. pointarray[6].x = -spcing * 3;
  100. pointarray[6].y = 0;
  101. pointarray[7].x = -spcing;
  102. pointarray[7].y = -spcing;
  103. pointarray[8].x = 0;
  104. pointarray[8].y = -spcing * 3;
  106. /*
  107.  * Show d2translate
  108.  */
  109. fillscreen(0);
  110. setview(0,0,maxx,maxy);
  111. drwstring(1,7,0,title,10,0);
  112. sprintf(buf,"d2translate(point,xtrans,ytrans,inarray,outarray);");
  113. drwstring(1,7,0,buf,10,16);
  114. setview(0,32,maxx,maxy);
  115. d2translate(9,cntx,cnty,pointarray,plotarray);
  116. showstar(plotarray,oplotarray);
  117. ret = getkey();
  118. if ((ret=='s') || (ret=='q')) {
  119. fillscreen(0);
  120. setview(0,0,maxx,maxy);
  121. return(ret);
  122. }
  123. trans = 0;
  124. for(i=0;i<spcing;i++) {
  125. trans+=2;
  126. d2translate(9,cntx+trans,cnty+trans,pointarray,plotarray);
  127. showstar(plotarray,oplotarray);
  128. sdelay(2);
  129. }
  130. for(i=0;i<spcing;i++) {
  131. trans-=2;
  132. d2translate(9,cntx+trans,cnty+trans,pointarray,plotarray);
  133. showstar(plotarray,oplotarray);
  134. sdelay(2);
  135. }
  136. ret = getkey();
  137. if ((ret=='s') || (ret=='q')) {
  138. fillscreen(0);
  139. setview(0,0,maxx,maxy);
  140. return(ret);
  141. }
  143. /*
  144.  * Show d2scale
  145.  */
  146. setview(0,16,maxx,31);
  147. fillview(0);
  148. setview(0,16,maxx,maxy);
  149. sprintf(buf,"d2scale(points,xscale,yscale,inarray,outarray);");
  150. drwstring(1,7,0,buf,10,16);
  151. setview(0,32,maxx,maxy);
  152. d2translate(9,cntx,cnty,pointarray,plotarray);
  153. showstar(plotarray,oplotarray);
  154. for(i=256;i<=380;i+=4) {
  155. d2scale(9,i,i,pointarray,plotarray);
  156. d2translate(9,cntx,cnty,plotarray,plotarray);
  157. showstar(plotarray,oplotarray);
  158. sdelay(2);
  159. }
  160. for(i=384;i>=128;i-=4) {
  161. d2scale(9,i,i,pointarray,plotarray);
  162. d2translate(9,cntx,cnty,plotarray,plotarray);
  163. showstar(plotarray,oplotarray);
  164. sdelay(2);
  165. }
  166. for(i=124;i<=256;i+=4) {
  167. d2scale(9,i,i,pointarray,plotarray);
  168. d2translate(9,cntx,cnty,plotarray,plotarray);
  169. showstar(plotarray,oplotarray);
  170. sdelay(2);
  171. }
  172. ret = getkey();
  173. if ((ret=='s') || (ret=='q')) {
  174. fillscreen(0);
  175. setview(0,0,maxx,maxy);
  176. return(ret);
  177. }
  179. /*
  180.  * Show d2rotate
  181.  */
  182. setview(0,16,maxx,31);
  183. fillview(0);
  184. setview(0,16,maxx,maxy);
  185. sprintf(buf,"d2rotate(points,xorigin,yorigin,angle,inarray,outarray);");
  186. drwstring(1,7,0,buf,10,16);
  187. sprintf(buf2,"Let's do it about the center of the object.");
  188. drwstring(1,7,0,buf2,10,32);
  189. setview(0,48,maxx,maxy);
  190. d2translate(9,cntx,cnty,pointarray,plotarray);
  191. showstar(plotarray,oplotarray);
  192. for(i=0;i<=180;i++) {
  193. d2rotate(9,0,0,i,pointarray,plotarray);
  194. d2translate(9,cntx,cnty,plotarray,plotarray);
  195. showstar(plotarray,oplotarray);
  196. sdelay(2);
  197. }
  198. for(i=180;i>=0;i-=2) {
  199. d2rotate(9,0,0,i,pointarray,plotarray);
  200. d2translate(9,cntx,cnty,plotarray,plotarray);
  201. showstar(plotarray,oplotarray);
  202. sdelay(2);
  203. }
  204. ret = getkey();
  205. if ((ret=='s') || (ret=='q')) {
  206. fillscreen(0);
  207. setview(0,0,maxx,maxy);
  208. return(ret);
  209. }
  211. /*
  212.  * Show d2rotate (about an arbitrary point)
  213.  */
  214. setview(0,16,maxx,48);
  215. fillview(0);
  216. setview(0,16,maxx,maxy);
  217. sprintf(buf,"d2rotate(points,xorigin,yorigin,angle,inarray,outarray);");
  218. drwstring(1,7,0,buf,10,16);
  219. sprintf(buf2,"Let's do it about an arbitrary point.");
  220. drwstring(1,7,0,buf2,10,32);
  221. setview(0,48,maxx,maxy);
  222. d2translate(9,cntx,cnty,pointarray,plotarray);
  223. showstar(plotarray,oplotarray);
  224. for(i=0;i<=360;i+=2) {
  225. d2rotate(9,0,spcing*3,i,pointarray,plotarray);
  226. d2translate(9,cntx,cnty,plotarray,plotarray);
  227. showstar(plotarray,oplotarray);
  228. sdelay(2);
  229. }
  230. ret = getkey();
  232. fillscreen(0);
  233. setview(0,0,maxx,maxy);
  235. return(ret);
  237. }
  239. /********
  240.  * DO3D *
  241.  ********/
  243. char do3d(void)
  244. {
  245. float pi;
  246. int i;
  247. float height, radius;
  248. int spcing;
  249. D3Point pointarray[14];
  250. D3Point playarray[14];
  251. D2Point plotarray[14];
  252. D2Point oplotarray[14];
  253. ProjParameters proj;
  254. char ret;
  255. char title[TITLEN];
  256. char buf[TITLEN];
  259. /*
  260.  * Set up the Title
  261.  */
  262. sprintf(title,"DEMO 12: 3D functions");
  263. palset(pal,0,255);
  265. /*
  266.  * Set up the house pattern of points
  267.  */
  268. spcing = maxx / 6;
  269. pointarray[0].x = -spcing;
  270. pointarray[0].y = -spcing * 2;
  271. pointarray[0].z = 0;
  272. pointarray[1].x = spcing;
  273. pointarray[1].y = -spcing * 2;
  274. pointarray[1].z = 0;
  275. pointarray[2].x = spcing;
  276. pointarray[2].y = -spcing * 2;
  277. pointarray[2].z = spcing * 2;
  278. pointarray[3].x = -spcing;
  279. pointarray[3].y = -spcing * 2;
  280. pointarray[3].z = spcing * 2;
  281. pointarray[4].x = -spcing;
  282. pointarray[4].y = spcing * 2;
  283. pointarray[4].z = 0;
  284. pointarray[5].x = spcing;
  285. pointarray[5].y = spcing * 2;
  286. pointarray[5].z = 0;
  287. pointarray[6].x = spcing;
  288. pointarray[6].y = spcing * 2;
  289. pointarray[6].z = spcing * 2;
  290. pointarray[7].x = -spcing;
  291. pointarray[7].y = spcing * 2;
  292. pointarray[7].z = spcing * 2;
  293. pointarray[8].x = 0;
  294. pointarray[8].y = -spcing * 2;
  295. pointarray[8].z = spcing * 3;
  296. pointarray[9].x = 0;
  297. pointarray[9].y = spcing * 2;
  298. pointarray[9].z = spcing * 3;
  299. pointarray[10].x = 0;
  300. pointarray[10].y = 0;
  301. pointarray[10].z = 0;
  302. pointarray[11].x = spcing * 4;
  303. pointarray[11].y = 0;
  304. pointarray[11].z = 0;
  305. pointarray[12].x = 0;
  306. pointarray[12].y = 0;
  307. pointarray[12].z = spcing * 4;
  308. pointarray[13].x = 0;
  309. pointarray[13].y = spcing * 4;
  310. pointarray[13].z = 0;
  311. bytecopy(pointarray,playarray,sizeof(pointarray));
  313. /*
  314.  * Show d3project
  315.  */
  316. setview(0,0,maxx,maxy);
  317. pi = (float)(4. * atan(1) / 180.);
  318. fillscreen(0);
  319. drwstring(1,7,0,title,10,0);
  320. sprintf(buf,"d3project(points,projparams,inarray,outarray);");
  321. drwstring(1,7,0,buf,10,16);
  322. setview(0,32,maxx,maxy);
  323. height = (float)(maxy * 8);
  324. radius = (float)(maxx * 30);
  325. proj.scrd = (int)(sqrt(radius * radius + height * height) / 2.);
  326. proj.theta = 110;
  327. proj.phi = (int)(atan(height / -radius) / pi);
  328. proj.eyex = (int)(-radius * cos(proj.theta * pi));
  329. proj.eyey = (int)(-radius * sin(proj.theta * pi));
  330. proj.eyez = (int)height;
  331. d3project(14,&proj,playarray,plotarray);
  332. for(i=0;i<14;i++) {
  333. oplotarray[i].x = plotarray[i].x;
  334. oplotarray[i].y = plotarray[i].y;
  335. }
  336. showhouse(plotarray,oplotarray);
  337. ret = getkey();
  338. if ((ret=='s') || (ret=='q')) {
  339. fillscreen(0);
  340. setview(0,0,maxx,maxy);
  341. return(ret);
  342. }
  343. for(i=112;i<=470;i+=3) {
  344. proj.theta = i;
  345. proj.eyex = (int)(-radius * cos(proj.theta * pi));
  346. proj.eyey = (int)(-radius * sin(proj.theta * pi));
  347. d3project(14,&proj,playarray,plotarray);
  348. showhouse(plotarray,oplotarray);
  349. sdelay(2);
  350. }
  351. ret = getkey();
  352. if ((ret=='s') || (ret=='q')) {
  353. fillscreen(0);
  354. setview(0,0,maxx,maxy);
  355. return(ret);
  356. }
  358. /*
  359.  * Show d3translate
  360.  */
  361. setview(0,16,maxx,31);
  362. fillview(0);
  363. sprintf(buf,"d3translate(points,xtrans,ytrans,ztrans,inarray,outarray);");
  364. drwstring(1,7,0,buf,10,16);
  365. setview(0,32,maxx,maxy);
  366. for(i=2;i<=300;i+=6) {
  367. d3translate(10,i,i,0,pointarray,playarray);
  368. d3project(10,&proj,playarray,plotarray);
  369. showhouse(plotarray,oplotarray);
  370. sdelay(2);
  371. }
  372. for(i=302;i>=2;i-=6) {
  373. d3translate(10,i,i,0,pointarray,playarray);
  374. d3project(10,&proj,playarray,plotarray);
  375. showhouse(plotarray,oplotarray);
  376. sdelay(2);
  377. }
  378. ret = getkey();
  379. if ((ret=='s') || (ret=='q')) {
  380. fillscreen(0);
  381. setview(0,0,maxx,maxy);
  382. return(ret);
  383. }
  385. /*
  386.  * Show d3scale
  387.  */
  388. setview(0,16,maxx,31);
  389. fillview(0);
  390. sprintf(buf,"d3scale(points,xscale,yscale,zscale,inarray,outarray);");
  391. drwstring(1,7,0,buf,10,16);
  392. setview(0,32,maxx,maxy);
  393. for(i=256;i<=380;i+=4) {
  394. d3scale(10,i,i,i,pointarray,playarray);
  395. d3project(10,&proj,playarray,plotarray);
  396. showhouse(plotarray,oplotarray);
  397. sdelay(2);
  398. }
  399. for(i=384;i>=128;i-=4) {
  400. d3scale(10,i,i,i,pointarray,playarray);
  401. d3project(10,&proj,playarray,plotarray);
  402. showhouse(plotarray,oplotarray);
  403. sdelay(2);
  404. }
  405. for(i=124;i<=256;i+=4) {
  406. d3scale(10,i,i,i,pointarray,playarray);
  407. d3project(10,&proj,playarray,plotarray);
  408. showhouse(plotarray,oplotarray);
  409. sdelay(2);
  410. }
  411. ret = getkey();
  412. if ((ret=='s') || (ret=='q')) {
  413. fillscreen(0);
  414. setview(0,0,maxx,maxy);
  415. return(ret);
  416. }
  418. /*
  419.  * show d3rotate
  420.  */
  421. setview(0,16,maxx,31);
  422. fillview(0);
  423. sprintf(buf,"d3rotate(points,xorigin,yorigin,zorigin,zangle,yangle,xangle,inarray,outarray);");
  424. drwstring(1,7,0,buf,10,16);
  425. setview(0,32,maxx,maxy);
  426. for(i=0;i<=360;i+=3) {
  427. d3rotate(10,0,0,0,0,i,i,pointarray,playarray);
  428. d3project(10,&proj,playarray,plotarray);
  429. showhouse(plotarray,oplotarray);
  430. sdelay(2);
  431. }
  433. ret = getkey();
  435. fillscreen(0);
  436. setview(0,0,maxx,maxy);
  438. return(ret);
  440. }
  442. /***********
  443.  * DOMOUSE *
  444.  ***********/
  446. char domouse(void)
  447. {
  448. int i, mouse;
  449. int colr, x1, x2, y1, y2;
  450. int lb, cb, rb, x, y, mbuts;
  451. int spcing;
  452. char ret;
  453. char title[TITLEN];
  454. char buf[TITLEN];
  456. /*
  457.  * Set up the title
  458.  */
  459. sprintf(title,"DEMO 9: Mouse functions");
  460. fillscreen(0);
  461. palset(pal,0,255);
  462. setview(0,0,maxx,maxy);
  464. /*
  465.  * Check to see if we have a mouse so we can do the mouse demo
  466.  */
  467. mouse = whichmouse();
  468. if (mouse < 1) {
  469. drwstring(1,7,0,title,10,0);
  470. sprintf(buf,"Sorry, no mouse detected... Can not do the mouse demo.");
  471. drwstring(1,7,0,buf,10,16);
  472. ret = getkey();
  473. fillscreen(0);
  474. return(ret);
  475. }
  476. colr = 16;
  477. for(i=0;i<=maxx/2;i++) {
  478. drwcircle(1,colr,maxx/4 + i, maxy/2, maxy/5);
  479. colr+=2;
  480. if (colr>255)
  481. colr = 16;
  482. }
  484. /*
  485.  * Show mouseshow
  486.  */
  487. setview(0,0,maxx,31);
  488. fillview(0);   
  489. drwstring(1,7,0,title,10,0);
  490. sprintf(buf,"mouseshow();");
  491. drwstring(1,7,0,buf,10,16);
  492. setview(0,32,maxx,maxy);
  493. mouseenter(); /* MUST BE CALLED FIRST TO ENABLE MOUSE FUNCTIONS */
  494. mouseshow();
  495. ret = getkey();
  496. if ((ret=='s') || (ret=='q')) {
  497. mouseexit(); /* MUST BE CALLED TO DISABLE MOUSE FUNCTIONS */
  498. fillscreen(0);
  499. setview(0,0,maxx,maxy);
  500. return(ret);
  501. }
  503. /*
  504.  * Show mousestatus
  505.  */
  506. mousehide();
  507. setview(0,16,maxx,31);
  508. fillview(0);
  509. sprintf(buf,"mousestatus(xloc,yloc,mbuts);");
  510. drwstring(1,7,0,buf,10,16);
  511. mouseshow();
  512. setview(0,32,maxx,maxy);
  513. beep();
  514. while(!kbhit()) {
  515. lb = cb = rb = 0;
  516. mousestatus(&x,&y,&mbuts);
  517. if (mbuts & 1)
  518. lb = 1;
  519. if (mbuts & 2)
  520. rb = 1;
  521. if (mbuts & 4)
  522. cb = 1;
  523. sprintf(buf,"X= %4d  Y= %4d  LB= %1d  CB= %1d  RB= %1d",x,y,lb,cb,rb);
  524. drwstring(1,15,8,buf,10,32);
  525. }
  526. ret = (char)getch();
  527. if ( (ret == 'Q') || (ret == 'q') )
  528. endit = 1;
  529. if (ret == 'Q')
  530. ret = 'q';
  531. if (ret == 'S')
  532. ret = 's';
  533. if ((ret=='s') || (ret=='q')) {
  534. mouseexit(); /* MUST BE CALLED TO DISABLE MOUSE FUNCTIONS */
  535. fillscreen(0);
  536. setview(0,0,maxx,maxy);
  537. return(ret);
  538. }
  540. /*
  541.  * Show mousehide
  542.  */
  543. mousehide();
  544. setview(0,16,maxx,31);
  545. fillview(0);
  546. sprintf(buf,"mousehide(xloc,yloc,mbuts);");
  547. drwstring(1,7,0,buf,10,16);
  548. setview(0,32,maxx,maxy);
  549. beep();
  550. while(!kbhit()) {
  551. lb = cb = rb = 0;
  552. mousestatus(&x,&y,&mbuts);
  553. if (mbuts & 1)
  554. lb = 1;
  555. if (mbuts & 2)
  556. rb = 1;
  557. if (mbuts & 4)
  558. cb = 1;
  559. sprintf(buf,"X= %4d  Y= %4d  LB= %1d  CB= %1d  RB= %1d",x,y,lb,cb,rb);
  560. drwstring(1,15,8,buf,10,32);
  561. }
  562. ret = (char)getch();
  563. if ( (ret == 'Q') || (ret == 'q') )
  564. endit = 1;
  565. if (ret == 'Q')
  566. ret = 'q';
  567. if (ret == 'S')
  568. ret = 's';
  569. if ((ret=='s') || (ret=='q')) {
  570. mouseexit(); /* MUST BE CALLED TO DISABLE MOUSE FUNCTIONS */
  571. fillscreen(0);
  572. setview(0,0,maxx,maxy);
  573. return(ret);
  574. }
  576. /*
  577.  * Show mouserangeset
  578.  */
  579. mousehide();
  580. setview(0,16,maxx,maxy);
  581. fillview(0);
  582. sprintf(buf,"mouserangeset(x1,y1,x2,y2);");
  583. drwstring(1,7,0,buf,10,16);
  584. setview(0,32,maxx,maxy);
  585. spcing = (maxy - 32) / 3;
  586. x1 = spcing;
  587. y1 = 32 + spcing;
  588. x2 = maxx - spcing;
  589. y2 = maxy - spcing;
  590. drwbox(1,15,x1,y1,x2,y2);
  591. mouseshow();
  592. mouserangeset(x1,y1,x2,y2);
  593. ret = getkey();
  594. mouserangeset(0,0,maxx,maxy);
  595. if ((ret=='s') || (ret=='q')) {
  596. mouseexit(); /* MUST BE CALLED TO DISABLE MOUSE FUNCTIONS */
  597. fillscreen(0);
  598. setview(0,0,maxx,maxy);
  599. return(ret);
  600. }
  602. /*
  603.  * Show mousecursorset - use the magnifier
  604.  */
  605. setview(0,16,maxx,31);
  606. fillview(0);
  607. sprintf(buf,"mousecursorset(mousecursor);");
  608. drwstring(1,7,0,buf,10,16);
  609. setview(0,32,maxx,maxy);
  610. mousecursorset(&magmousecursor);
  611. ret = getkey();
  612. if ((ret=='s') || (ret=='q')) {
  613. mouseexit(); /* MUST BE CALLED TO DISABLE MOUSE FUNCTIONS */
  614. fillscreen(0);
  615. setview(0,0,maxx,maxy);
  616. return(ret);
  617. }
  619. /*
  620.  * Show mousecursorset - use the big arrow
  621.  */
  622. setview(0,32,maxx,maxy);
  623. mousecursorset(&bigmousecursor);
  624. ret = getkey();
  625. if ((ret=='s') || (ret=='q')) {
  626. mouseexit(); /* MUST BE CALLED TO DISABLE MOUSE FUNCTIONS */
  627. fillscreen(0);
  628. setview(0,0,maxx,maxy);
  629. return(ret);
  630. }
  632. /*
  633.  * Show mousecursorset - use the stopwatch
  634.  */
  635. setview(0,32,maxx,maxy);
  636. mousecursorset(&stwmousecursor);
  637. ret = getkey();
  638. if ((ret=='s') || (ret=='q')) {
  639. mouseexit(); /* MUST BE CALLED TO DISABLE MOUSE FUNCTIONS */
  640. fillscreen(0);
  641. setview(0,0,maxx,maxy);
  642. return(ret);
  643. }
  645. /*
  646.  * Show mousecursordefault
  647.  */
  648. mousehide();
  649. setview(0,16,maxx,31);
  650. fillview(0);
  651. sprintf(buf,"mousecursordefault();");
  652. drwstring(1,7,0,buf,10,16);
  653. mouseshow();
  654. setview(0,32,maxx,maxy);
  655. mousecursordefault();
  656. ret = getkey();
  657. mouseexit(); /* MUST BE CALLED TO DISABLE MOUSE FUNCTIONS */
  658. fillscreen(0);
  659. setview(0,0,maxx,maxy);
  661. return(ret);
  663. }
  666. /*********
  667.  * DOGIF *
  668.  *********/
  670. char dogif(void)
  671. {
  673. int endthis;
  674. int ext, length;
  675. char c, ret;
  676. char title[TITLEN];
  677. char buf[TITLEN];
  678. char *fname;
  680. fname=malloc(128);
  682. /*
  683.  * Setup the title
  684.  */
  685. sprintf(title,"DEMO 8: GIF functions");
  687. /*
  688.  * Show gifgetinfo
  689.  */
  690. setview(0,0,maxx,maxy);
  691. fillscreen(0);
  692. drwstring(1,7,0,title,10,0);
  693. endthis = 0;
  694. ret = '';
  696. while (!endthis) {
  697. sprintf(buf,"Please provide the name (and full path if not in the current drive/directory)");
  698. drwstring(1,7,0,buf,10,64);
  699. sprintf(buf,"of a GIF file you would like to see...");
  700. drwstring(1,7,0,buf,10,80);
  701. sprintf(buf,"Filename:");
  702. drwstring(1,7,0,buf,10,96);
  704. sprintf(fname,"_");
  705. length = 0;
  706. ext = 0;
  707. c = '';
  709. while(!ext) {
  710. drwstring(1,7,0,fname,82,96);
  711. c = (char)getch();
  712. if(c>=' ' && c<='~') {
  713. fname[length] = c;
  714. fname[length+1] = '_';
  715. fname[length+2] = '';
  716. length++;
  717. }
  718. else
  719. if (c==8 && length>0) {
  720. drwstring(1,15,0,"   ",82+length*8,96);
  721. length--;
  722. fname[length] = '_';
  723. fname[length+1] = '';
  724. }
  725. else
  726. if (c==13)
  727. ext = 1;
  728. }
  729. if (length==0) {
  730. free(fname);
  731. return(ret);
  732. }
  734. fname[length] = '';
  736. ret = showgif(fname);
  738. if ((ret=='s') || (ret=='q')) {
  739. fillscreen(0);
  740. free(fname);
  741. return(ret);
  742. }
  744. drwstring(1,7,0,title,10,0);
  745. sprintf(buf,"Would you like to see another (Y/N) ?");
  746. drwstring(1,7,0,buf,10,64);
  747. ext = 0;
  748. while(!ext) {
  749. c=(char)getch();
  750. if ((c=='n') || (c=='N')) {
  751. ext = 1;
  752. endthis = 1;
  753. }
  754. else
  755. if ((c=='y') || (c=='Y'))
  756. ext = 1;
  757. }
  758. }
  759. fillscreen(0);
  761. free(fname);
  763. return(ret);
  765. }
  767. /**************
  768.  * DOJOYSTICK *
  769.  **************/
  771. char dojoystick(void)
  772. {
  773. int maxxa, maxya, minxa, minya;
  774. int maxxb, maxyb, minxb, minyb;
  775. int jax, jay, jabuts, jbx, jby, jbbuts;
  776. int joystick, spcing, dist;
  777. int x1, y1, x2, y2, x3, y3, x4, y4;
  778. int cntax, cntay, cntbx, cntby;
  779. int rangexa, rangeya, rangexb, rangeyb;
  780. int jabax, jabay, jabbx, jabby;
  781. int jbbax, jbbay, jbbbx, jbbby;
  782. int oax, oay, obx, oby;
  783. char ret;
  784. char title[TITLEN];
  785. char buf[TITLEN];
  787. oax = oay = obx = oby = 0;
  789. /*
  790.  * Set up the title
  791.  */
  792. sprintf(title,"DEMO 10: Joystick functions");
  793. palset(pal,0,255);
  794. fillscreen(0);
  795. setview(0,0,maxx,maxy);
  796. drwstring(1,7,0,title,10,0);
  798. /*
  799.  * Check to see if we have a joystick so we can do the joystick demo
  800.  */
  801. joystick = whichjoystick();
  802. if (joystick < 1) {
  803. sprintf(buf,"Sorry, no joystick detected... Can not do the joystick demo.");
  804. drwstring(1,7,0,buf,10,16);
  805. ret = getkey();
  806. fillscreen(0);
  807. return(ret);
  808. }
  810. /*
  811.  * Show joystickinfo (here we do some joystick calibration
  812.  */
  813. sprintf(buf,"joystickinfo(jax,jay,jabuts,jbx,jby,jbbuts);");
  814. drwstring(1,7,0,buf,10,16);
  815. switch(joystick) {
  816. case 1:
  817. sprintf(buf,"Please move Joystick A as far as it will go in all directions.");
  818. break;
  819. case 2:
  820. sprintf(buf,"Please move Joystick B as far as it will go in all directions.");
  821. break;
  822. case 3:
  823. sprintf(buf,"Please move Joystick A and B as far as they will go in all directions.");
  824. break;
  825. }
  826. drwstring(1,7,0,buf,10,32);
  827. drwstring(1,7,0,"And then press a key...",10,48);
  829. maxxa = -1;
  830. maxya = -1;
  831. minxa = 10000;
  832. minya = 10000;
  833. maxxb = -1;
  834. maxyb = -1;
  835. minxb = 10000;
  836. minyb = 10000;
  837. do {
  838. while(!kbhit()) {
  839. joystickinfo(&jax,&jay,&jabuts,&jbx,&jby,&jbbuts);
  840. if (joystick & 1) {
  841. if (jax>maxxa)
  842. maxxa = jax;
  843. if (jax<minxa)
  844. minxa = jax;
  845. if (jay>maxya)
  846. maxya = jay;
  847. if (jay<minya)
  848. minya = jay;
  849. }
  850. if (joystick & 2) {
  851. if (jbx>maxxb)
  852. maxxb = jbx;
  853. if (jbx<minxb)
  854. minxb = jbx;
  855. if (jby>maxyb)
  856. maxyb = jby;
  857. if (jby<minyb)
  858. minyb = jby;
  859. }
  860. }
  861. ret = getkey();
  862. } while ( ((joystick & 1) && ((maxxa==minxa) || (maxya==minya))) || 
  863. ((joystick & 2) && ((maxxb==minxb) || (maxyb==minyb))) );
  865. if ((ret=='s') || (ret=='q')) {
  866. setview(0,0,maxx,maxy);
  867. fillscreen(0);
  868. return(ret);
  869. }
  871. /*
  872.  * Calculate the center and stuff
  873.  */
  874. spcing = maxx / 7;
  875. dist = spcing * 2;
  876. x1 = spcing / 2;
  877. y1 = spcing / 2 + 32;
  878. x2 = x1 + dist;
  879. y2 = y1 + dist;
  880. x4 = maxx - spcing;
  881. y4 = y2;
  882. x3 = x4 - dist;
  883. y3 = y1;
  884. cntax = (x2 - x1) / 2 + x1;
  885. cntay = (y2 - y1) / 2 + y1;
  886. cntbx = (x4 - x3) / 2 + x3;
  887. cntby = (y4 - y3) / 2 + y3;
  888. rangexa = maxxa - minxa;
  889. rangeya = maxya - minya;
  890. rangexb = maxxb - minxb;
  891. rangeyb = maxyb - minyb;
  892. jabax = (x2 - x1) / 4 + x1 - 16;
  893. jabay = spcing / 4 + y2 - 6;
  894. jabbx = x2 - (x2 - x1) / 4 - 16;
  895. jabby = spcing / 4 + y2 - 6;
  896. jbbax = (x4 - x3) / 4 + x3 - 16;
  897. jbbay = spcing / 4 + y4 - 6;
  898. jbbbx = x4 - (x4 - x3) / 4 - 16;
  899. jbbby = spcing / 4 + y4 - 6;
  901. /*
  902.  * Let's move it (or them) around
  903.  */
  904. setview(0,32,maxx,maxy);
  905. fillview(0);
  906. drwstring(1,7,0,"Joysticks are nonlinear devices and may not appear centered.",10,32);
  908. if (joystick & 1) {
  909. drwbox(1,15,x1-1,y1-1,x2+1,y2+1);
  910. drwbox(1,15,x1-1,y2+1,x2+1,y2+spcing/2);
  911. drwline(1,15,(x2-x1)/2+x1,y2+1,(x2-x1)/2+x1,y2+spcing/2);
  912. oax = cntax;
  913. oay = cntay;
  914. drwline(1,10,cntax,cntay,oax,oay);
  915. }
  916. else {
  917. drwbox(1,8,x1-1,y1-1,x2+1,y2+1);
  918. drwbox(1,8,x1-1,y2+1,x2+1,y2+spcing/2);
  919. drwline(1,8,(x2-x1)/2+x1,y2+1,(x2-x1)/2+x1,y2+spcing/2);
  920. }
  921. if (joystick & 2) {
  922. drwbox(1,15,x3-1,y3-1,x4+1,y4+1);
  923. drwbox(1,15,x3-1,y4+1,x4+1,y4+spcing/2);
  924. drwline(1,15,(x4-x3)/2+x3,y4+1,(x4-x3)/2+x3,y4+spcing/2);
  925. obx = cntbx;
  926. oby = cntby;
  927. drwline(1,10,cntbx,cntby,obx,oby);
  928. }
  929. else {
  930. drwbox(1,8,x3-1,y3-1,x4+1,y4+1);
  931. drwbox(1,8,x3-1,y4+1,x4+1,y4+spcing/2);
  932. drwline(1,8,(x4-x3)/2+x3,y4+1,(x4-x3)/2+x3,y4+spcing/2);
  933. }
  934. while(!kbhit()) {
  935. joystickinfo(&jax,&jay,&jabuts,&jbx,&jby,&jbbuts);
  936. if (joystick & 1) {
  937. setview(x1,y1,x2,y2);
  938. jax = jax - minxa;
  939. jax = jax * dist / rangexa + x1;
  940. jay = jay - minya;
  941. jay = jay * dist / rangeya + y1;
  942. drwline(1,0,cntax,cntay,oax,oay);
  943. oax = jax;
  944. oay = jay;
  945. drwline(1,10,cntax,cntay,oax,oay);
  946. setview(0,0,maxx,maxy);
  947. sprintf(buf,"ButA");
  948. if (jabuts & 1)
  949. drwstring(1,10,0,buf,jabax,jabay);
  950. else
  951. drwstring(1,8,0,buf,jabax,jabay);
  952. sprintf(buf,"ButB");
  953. if (jabuts & 2)
  954. drwstring(1,10,0,buf,jabbx,jabby);
  955. else
  956. drwstring(1,8,0,buf,jabbx,jabby);
  957. }
  958. if (joystick & 2) {
  959. setview(x3,y3,x4,y4);
  960. jbx = jbx - minxb;
  961. jbx = jbx * dist / rangexb + x3;
  962. jby = jby - minyb;
  963. jby = jby * dist / rangeyb + y3;
  964. drwline(1,0,cntbx,cntby,obx,oby);
  965. obx = jbx;
  966. oby = jby;
  967. drwline(1,10,cntbx,cntby,obx,oby);
  968. setview(0,0,maxx,maxy);
  969. sprintf(buf,"ButA");
  970. if (jbbuts & 1)
  971. drwstring(1,10,0,buf,jbbax,jbbay);
  972. else
  973. drwstring(1,8,0,buf,jbbax,jbbay);
  974. sprintf(buf,"ButB");
  975. if (jbbuts & 2)
  976. drwstring(1,10,0,buf,jbbbx,jbbby);
  977. else
  978. drwstring(1,8,0,buf,jbbbx,jbbby);
  979. }
  980. }
  981. ret = getkey();
  982. fillscreen(0);
  983. setview(0,0,maxx,maxy);
  984. return(ret);
  985. }
  988. /***********
  989.  * SHOWGIF *
  990.  ***********/
  992. char showgif(char fname[])
  993. {
  994. int i, ok;
  995. int min, max, mincolor, maxcolor;
  996. int xsize, ysize, numcol;
  997. int xloc, yloc;
  998. int fixit, t;
  999. PaletteData gifpal;
  1000. char ret;
  1001. char *buf;
  1003. buf = malloc(TITLEN);
  1005. mincolor = maxcolor = 0;
  1007. /*
  1008.  * Show gifgetinfo
  1009.  */
  1010. palset(orgpal,0,255);
  1011. setview(0,0,maxx,maxy);
  1012. fillscreen(0);
  1013. drwstring(1,7,0,"DEMO 8: GIF functions",10,0);
  1014. sprintf(buf,"gifgetinfo(filename,gifxsize,gifysize,numcolors,palette);");
  1015. drwstring(1,7,0,buf,10,16);
  1016. ok = gifgetinfo(fname,&xsize,&ysize,&numcol,gifpal);
  1017. min = 255 * 3;
  1018. max = 0;
  1019. if (ok == 1) {
  1020. /*
  1021.  * We need to check the GIF color palette entries to see if any colors
  1022.  * are greater than six bits in length as the VGA color palette
  1023.  * registers are only six bits wide.  We also look for the brightest
  1024.  * and darkest colors to use as our text and background colors.
  1025.  */
  1026. fixit = 0;
  1027. for(i=0;i<numcol;i++) {
  1028. if((gifpal[i].r>63) || (gifpal[i].g>63) || (gifpal[i].b>63))
  1029. fixit = 1;
  1030. t = gifpal[i].r + gifpal[i].g + gifpal[i].b;
  1031. if(t<min) {
  1032. min = t;
  1033. mincolor = i;
  1034. }
  1035. if(t>max) {
  1036. max = t;
  1037. maxcolor = i;
  1038. }
  1039. }
  1040. /*
  1041.  * If the GIF uses more than 6 bit color, then we shift each color entry
  1042.  * right by 2 bits.  (This reduces it to 6 bits of color.)
  1043.  */
  1044. if (fixit)
  1045. for(i=0;i<numcol;i++) {
  1046. gifpal[i].r>>=2;
  1047. gifpal[i].g>>=2;
  1048. gifpal[i].b>>=2;
  1049. }
  1050. /*
  1051.  * If the GIF has a palette of 128 colors or less, then we can use
  1052.  * our own colors for the text and background.
  1053.  */
  1054. if (numcol<=128) {
  1055. gifpal[254].r = gifpal[254].g = gifpal[254].b = 0;
  1056. mincolor = 254;
  1057. gifpal[255].r = gifpal[255].g = gifpal[255].b = 32;
  1058. maxcolor = 255;
  1059. }
  1061. sprintf(buf,"'%s' is identified as a 'Non-interlaced' type 'GIF87a' GIF image.",fname);
  1062. drwstring(1,15,0,buf,10,64);
  1063. sprintf(buf,"Dimensions are: %d pixels wide and %d pixels high.",xsize,ysize);
  1064. drwstring(1,15,0,buf,10,80);
  1065. sprintf(buf,"Number of colors: %d.",numcol);
  1066. drwstring(1,15,0,buf,10,96);
  1068. ret = getkey();
  1069. if ((ret=='s') || (ret=='q')) {
  1070. fillscreen(0);
  1071. setview(0,0,maxx,maxy);
  1072. palset(orgpal,0,255);
  1073. free(buf);
  1074. return(ret);
  1075. }
  1077. /*
  1078.  * Show gifput
  1079.  */
  1080. palset(gifpal,0,255);
  1081. overscanset(mincolor);
  1082. fillscreen(mincolor);
  1083. drwstring(1,maxcolor,mincolor,"DEMO 8: GIF functions",10,0);
  1084. sprintf(buf,"gifput(mode,x,y,filename);");
  1085. drwstring(1,maxcolor,mincolor,buf,10,16);
  1086. setview(0,32,maxx,maxy);
  1087. xloc = maxx / 2 - xsize / 2;
  1088. yloc = (maxy - 32) / 2 - ysize / 2 + 32;
  1089. ok = gifput(1,xloc,yloc,fname);
  1090. if (ok!=1) {
  1091. palset(orgpal,0,255);
  1092. sprintf(buf,"The file '%s'",fname);
  1093. switch (ok) {
  1094. case 0:
  1095. strcat(buf," does not exist in the specified directory.");
  1096. break;
  1097. case -1:
  1098. strcat(buf," does not have the 'GIF87a' signature.");
  1099. break;
  1100. case -2:
  1101. strcat(buf," is an interlaced GIF.");
  1102. break;
  1103. case -3:
  1104. strcat(buf," does not use a global color map.");
  1105. break;
  1106. default: /* should have a value of -4 */
  1107. strcat(buf," has some general error.");
  1108. }
  1109. drwstring(1,15,0,buf,10,64);
  1110. }
  1111. }
  1112. else {
  1113. palset(orgpal,0,255);
  1114. sprintf(buf,"The file '%s'",fname);
  1115. switch (ok) {
  1116. case 0:
  1117. strcat(buf," does not exist in the specified directory.");
  1118. break;
  1119. case -1:
  1120. strcat(buf," does not have the 'GIF87a' signature.");
  1121. break;
  1122. case -2:
  1123. strcat(buf," is an interlaced GIF.");
  1124. break;
  1125. case -3:
  1126. strcat(buf," does not use a global color map.");
  1127. break;
  1128. default: /* should have a value of -4 */
  1129. strcat(buf," has some general error.");
  1130. }
  1131. drwstring(1,15,0,buf,10,64);
  1132. }
  1134. ret = getkey();
  1136. palset(orgpal,0,255);
  1137. overscanset(0);
  1138. fillscreen(0);
  1139. setview(0,0,maxx,maxy);
  1140. free(buf);
  1141. return(ret);
  1142. }
  1145. /*************
  1146.  * SHOWHOUSE *
  1147.  *************/
  1149. void showhouse(D2Point *plotarray, D2Point *oplotarray)
  1150. {
  1151. int i;
  1153. /* Erase old axes */
  1154. drwline(1,0,(oplotarray+10)->x,(oplotarray+10)->y,(oplotarray+11)->x,(oplotarray+11)->y);
  1155. drwline(1,0,(oplotarray+10)->x,(oplotarray+10)->y,(oplotarray+12)->x,(oplotarray+12)->y);
  1156. drwline(1,0,(oplotarray+10)->x,(oplotarray+10)->y,(oplotarray+13)->x,(oplotarray+13)->y);
  1158. /* Erase old house */
  1159. for(i=0;i<3;i++) {
  1160. drwline(1,0,(oplotarray+i)->x,(oplotarray+i)->y,(oplotarray+i+1)->x,(oplotarray+i+1)->y);
  1161. drwline(1,0,(oplotarray+i+4)->x,(oplotarray+i+4)->y,(oplotarray+i+4+1)->x,(oplotarray+i+4+1)->y);
  1162. drwline(1,0,(oplotarray+i)->x,(oplotarray+i)->y,(oplotarray+i+4)->x,(oplotarray+i+4)->y);
  1163. }
  1164. drwline(1,0,(oplotarray+3)->x,(oplotarray+3)->y,(oplotarray+7)->x,(oplotarray+7)->y);
  1165. drwline(1,0,(oplotarray+0)->x,(oplotarray+0)->y,(oplotarray+3)->x,(oplotarray+3)->y);
  1166. drwline(1,0,(oplotarray+4)->x,(oplotarray+4)->y,(oplotarray+7)->x,(oplotarray+7)->y);
  1167. drwline(1,0,(oplotarray+3)->x,(oplotarray+3)->y,(oplotarray+8)->x,(oplotarray+8)->y);
  1168. drwline(1,0,(oplotarray+8)->x,(oplotarray+8)->y,(oplotarray+2)->x,(oplotarray+2)->y);
  1169. drwline(1,0,(oplotarray+9)->x,(oplotarray+9)->y,(oplotarray+7)->x,(oplotarray+7)->y);
  1170. drwline(1,0,(oplotarray+9)->x,(oplotarray+9)->y,(oplotarray+6)->x,(oplotarray+6)->y);
  1171. drwline(1,0,(oplotarray+8)->x,(oplotarray+8)->y,(oplotarray+9)->x,(oplotarray+9)->y);
  1173. /* Draw new axes */
  1174. drwline(1,8,(plotarray+10)->x,(plotarray+10)->y,(plotarray+11)->x,(plotarray+11)->y);
  1175. drwline(1,8,(plotarray+10)->x,(plotarray+10)->y,(plotarray+12)->x,(plotarray+12)->y);
  1176. drwline(1,8,(plotarray+10)->x,(plotarray+10)->y,(plotarray+13)->x,(plotarray+13)->y);
  1178. /* Draw new house */
  1179. for(i=0;i<3;i++) {
  1180. drwline(1,10,(plotarray+i)->x,(plotarray+i)->y,(plotarray+i+1)->x,(plotarray+i+1)->y);
  1181. drwline(1,10,(plotarray+i+4)->x,(plotarray+i+4)->y,(plotarray+i+4+1)->x,(plotarray+i+4+1)->y);
  1182. drwline(1,10,(plotarray+i)->x,(plotarray+i)->y,(plotarray+i+4)->x,(plotarray+i+4)->y);
  1183. }
  1184. drwline(1,10,(plotarray+3)->x,(plotarray+3)->y,(plotarray+7)->x,(plotarray+7)->y);
  1185. drwline(1,10,(plotarray+0)->x,(plotarray+0)->y,(plotarray+3)->x,(plotarray+3)->y);
  1186. drwline(1,10,(plotarray+4)->x,(plotarray+4)->y,(plotarray+7)->x,(plotarray+7)->y);
  1187. drwline(1,10,(plotarray+3)->x,(plotarray+3)->y,(plotarray+8)->x,(plotarray+8)->y);
  1188. drwline(1,10,(plotarray+8)->x,(plotarray+8)->y,(plotarray+2)->x,(plotarray+2)->y);
  1189. drwline(1,10,(plotarray+9)->x,(plotarray+9)->y,(plotarray+7)->x,(plotarray+7)->y);
  1190. drwline(1,10,(plotarray+9)->x,(plotarray+9)->y,(plotarray+6)->x,(plotarray+6)->y);
  1191. drwline(1,10,(plotarray+8)->x,(plotarray+8)->y,(plotarray+9)->x,(plotarray+9)->y);
  1193. /* Save old points */
  1194. bytecopy(plotarray,oplotarray,14*sizeof(*plotarray));
  1196. return;
  1197. }
  1199. /************
  1200.  * SHOWSTAR *
  1201.  ************/
  1203. void showstar(D2Point *plotarray, D2Point *oplotarray)
  1204. {
  1205. int i;
  1207. for(i=0;i<8;i++)
  1208. drwline(1,0,(oplotarray+i)->x,(oplotarray+i)->y,((oplotarray+i)+1)->x,((oplotarray+i)+1)->y);
  1209. for(i=0;i<8;i++)
  1210. drwline(1,10,(plotarray+i)->x,(plotarray+i)->y,((plotarray+i)+1)->x,((plotarray+i)+1)->y);
  1211. bytecopy(plotarray,oplotarray,9*sizeof(*plotarray));
  1212. return;
  1213. }