📄 node108.html

📁 htmdoc for html coding
💻 HTML
字号:
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 3.2 Final//FR"><!-- Converted with LaTeX2HTML 95.1 (Fri Jan 20 1995) --><!-- by Nikos Drakos (nikos@cbl.leeds.ac.uk), CBLU, University of Leeds --><!-- Modified Simulog 03/97 --><HTML><HEAD><TITLE>9.2 Creating 3D geometric figures</TITLE><LINK REL=STYLESHEET TYPE="text/css"	HREF="./Modulef.css" TITLE="Modulef CSS"><meta name="description" value="9.2 Creating 3D geometric figures"><meta name="keywords" value="Guide6"><meta name="resource-type" value="document"><meta name="distribution" value="global"></HEAD><BODY BGCOLOR="#FFFFFF"><P> <IMG SRC="../icons/smallmod.gif" WIDTH=211 HEIGHT=50 ALIGN=BOTTOM	ALT="Modulef"><A NAME=tex2html1730 HREF="node107.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/previous_motif.gif"	ALT="previous"></A><A NAME=tex2html1734 HREF="node106.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/up_motif.gif"	ALT="up"></A><A NAME=tex2html1736 HREF="node109.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/next_motif.gif"	ALT="next"></A><A NAME=tex2html1738 HREF="node2.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/contents_motif.gif"	ALT="contents"></A><A HREF="../Guide6-18/node108.html"><IMG BORDER=0 SRC="../icons/zoom18.gif" ALIGN=BOTTOM	ALT="[BIG]"></A><A HREF="../Guide6-14/node108.html"><IMG BORDER=0 SRC="../icons/zoom14.gif" ALIGN=BOTTOM	ALT="[Normal]"></A><A HREF="../Guide6-10/node108.html"><IMG BORDER=0 SRC="../icons/zoom10.gif" ALIGN=BOTTOM	ALT="[small]"></A><BR><B> Next: </B> <A NAME=tex2html1737 HREF="node109.html">References</A><B>Up: </B> <A NAME=tex2html1735 HREF="node106.html">9 Examples</A><B> Prev: </B> <A NAME=tex2html1731 HREF="node107.html">9.1 Creating 2D geometric figures</A><B><A HREF="node2.html"	>Contents</A></B><HR SIZE=3 WIDTH="75&#37;"><H1><A NAME=SECTION05920000000000000000>9.2 Creating 3D geometric figures</A></H1><P><P><P><PRE>      PROGRAM IMAG3DC --- PLOT FIGURES      REAL PI      PARAMETER (PI=3.14152)      INTEGER ITERM,PAROUT(10), PARIN(10)       CHARACTER*80 STRING      REAL PAS1,PAS2,R1,R2,A,B,ALPHA,X,Y,Z,XMIN,XMAX,YMIN,YMAX      REAL PX,XX,YY,TAILLE,PY1,PY2,PY3,O      LOGICAL BID      INTEGER IBID,NBCIN      CHARACTER*1 REPC --- INTERACTIVE DEFINITION OF TERMINAL      ITERM = 0      CALL DEFDEV(ITERM, PAROUT, PARIN, STRING)C --- SCREEN DIMENSION      CALL SZSCRN(XMIN, XMAX, YMIN, YMAX)       CALL FENTR2(XMIN, XMAX, YMIN, YMAX)      CALL MASQU2(XMIN, XMAX, YMIN, YMAX)C --- TEXT SIZE      TAILLE = MIN((YMAX-YMIN)/10. , 0.5)      CALL DRW3TX(TAILLE, 0., O)C --- TEXT POSITION      PX = XMIN + (XMAX-XMIN) / 20.      PY1 = YMAX - 2.*TAILLE      PY2 = YMAX - 4.*TAILLE      PY3 = YMIN + 2.*TAILLEC --- INPUT STEP      PAS1=0.1      PAS2=0.1    2 CONTINUE      CALL CLEANC --- CURRENT COLOR = WHITE      CALL SETCOL(1., 1., 1.)      CALL GETNUM('PAS DE ROTATION EN FRACTION DE PI/2  : ',     + PX, PY1, PAS1, IBID, BID, 1, 1, 0, 0, 0., 2.)      CALL GETNUM('PAS D''ENROULEMENT EN FRACTION DE PI/2: ',     + PX, PY2, PAS2, IBID, BID, 1, 1, 0, 0, 0., 2.)C --- DEFINITION OF PERSPECTIVE      ALPHA = PI/10.       CALL PRSPCT (ALPHA , ALPHA)C --- START OF IMAGE      CALL PUSHC --- POSITION THE OBSERVER      CALL NRMLST(400., 400., 300., 0., 0., 0., 3)C --- END OF TRANSFORMATIONS TO APPLY TO OBSERVERC --- START OF OBJECT DESCRIPTION SEQUENCE       CALL PREPAR C --- INITIALIZE CURSOR POSITION      CALL MOV3TO(125., 0., 0.) C --- PLOT OF OBJECT       R1 = 100.      R2 = 25.      A = 0.       DO 1 B = 0. , 8.*PI , PAS1*2.*PI/200.         A = MOD (A +  PAS2*2.*PI , 2*PI)         X = (R1 + R2*COS(A)) * COS(B)         Y = (R1 + R2*COS(A)) * SIN(B)         Z = R2 * SIN(A)         CALL LIN3TO(X, Y, Z)    1 CONTINUE       CALL LIMITS(0)C --- END OF PLOT      CALL PULL      CALL FENTR2(XMIN, XMAX, YMIN, YMAX)      CALL MASQU2(XMIN, XMAX, YMIN, YMAX)      CALL SETCOL(1., 1., 1.)      XX = PX      YY = PY3       CALL GETEXT('&gt; CONTINUER (O/N) ? ', XX, YY, 1, REP, NBCIN)      IF (REP .EQ. 'O' .OR. REP.EQ.'Y') THEN C --- CONTINUE        GOTO 2      ELSEC --- DO NOT CONTINUE        CALL ENDDEV(ITERM)      ENDIF      END</PRE> <P><HR SIZE=3 WIDTH="75&#37;"><IMG SRC="../icons/smallmod.gif" WIDTH=211 HEIGHT=50 ALIGN=BOTTOM	ALT="Modulef"><A NAME=tex2html1730 HREF="node107.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/previous_motif.gif"	ALT="previous"></A><A NAME=tex2html1734 HREF="node106.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/up_motif.gif"	ALT="up"></A><A NAME=tex2html1736 HREF="node109.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/next_motif.gif"	ALT="next"></A><A NAME=tex2html1738 HREF="node2.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/contents_motif.gif"	ALT="contents"></A><A HREF="../Guide6-18/node108.html"><IMG BORDER=0 SRC="../icons/zoom18.gif" ALIGN=BOTTOM	ALT="[BIG]"></A><A HREF="../Guide6-14/node108.html"><IMG BORDER=0 SRC="../icons/zoom14.gif" ALIGN=BOTTOM	ALT="[Normal]"></A><A HREF="../Guide6-10/node108.html"><IMG BORDER=0 SRC="../icons/zoom10.gif" ALIGN=BOTTOM	ALT="[small]"></A><BR><B> Next: </B> <A NAME=tex2html1737 HREF="node109.html">References</A><B>Up: </B> <A NAME=tex2html1735 HREF="node106.html">9 Examples</A><B> Prev: </B> <A NAME=tex2html1731 HREF="node107.html">9.1 Creating 2D geometric figures</A><B><A HREF="node2.html"	>Contents</A></B><BR> <HR><P><ADDRESS></ADDRESS></BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -