📄 node105.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> Cr閍tion de quelques figures g閛m閠riques 3D</TITLE><LINK REL=STYLESHEET TYPE="text/css"	HREF="./Modulef.css" TITLE="Modulef CSS"><meta name="description" value=" Cr閍tion de quelques figures g閛m閠riques 3D"><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=tex2html1806 HREF="node104.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/previous_motif.gif"	ALT="previous"></A><A NAME=tex2html1810 HREF="node103.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/up_motif.gif"	ALT="up"></A><A NAME=tex2html1812 HREF="node106.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/next_motif.gif"	ALT="next"></A><A NAME=tex2html1814 HREF="node1.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/contents_motif.gif"	ALT="contents"></A><A NAME=tex2html1815 HREF="node107.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/index_motif.gif"	ALT="index"></A><A HREF="../Guide6-18/node105.html"><IMG BORDER=0 SRC="../icons/zoom18.gif" ALIGN=BOTTOM	ALT="[BIG]"></A><A HREF="../Guide6-14/node105.html"><IMG BORDER=0 SRC="../icons/zoom14.gif" ALIGN=BOTTOM	ALT="[Normal]"></A><A HREF="../Guide6-10/node105.html"><IMG BORDER=0 SRC="../icons/zoom10.gif" ALIGN=BOTTOM	ALT="[small]"></A><BR><B> Suiv.: </B> <A NAME=tex2html1813 HREF="node106.html">Bibliographie</A><B>Sup.: </B> <A NAME=tex2html1811 HREF="node103.html">9 Exemples</A><B> Pr閏.: </B> <A NAME=tex2html1807 HREF="node104.html"> Cr閍tion de quelques figures g閛m閠riques </A><B><A HREF="node107.html"	>Index</A></B><B><A HREF="node1.html"	>Table des mati鑢es</A></B><HR SIZE=3 WIDTH="75&#37;"><H1><A NAME=SECTION05920000000000000000> Cr閍tion de quelques figures g閛m閠riques 3D</A></H1><P><PRE>      PROGRAM IMAG3DC --- TRACE DE 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 --- DEFINITION INTERACTIVE DU TERMINAL      ITERM = 0      CALL DEFDEV(ITERM, PAROUT, PARIN, STRING)C --- DIMENSIONS DE L'ECRAN      CALL SZSCRN(XMIN, XMAX, YMIN, YMAX)       CALL FENTR2(XMIN, XMAX, YMIN, YMAX)      CALL MASQU2(XMIN, XMAX, YMIN, YMAX)C --- TAILLE DES TEXTES      TAILLE = MIN((YMAX-YMIN)/10. , 0.5)      CALL DRW3TX(TAILLE, 0., O)C --- POSITION DES TEXTES       PX = XMIN + (XMAX-XMIN) / 20.      PY1 = YMAX - 2.*TAILLE      PY2 = YMAX - 4.*TAILLE      PY3 = YMIN + 2.*TAILLEC --- ENTREE DU PAS       PAS1=0.1      PAS2=0.1    2 CONTINUE      CALL CLEANC --- COULEUR COURANTE = BLANC      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 DE LA PERSPECTIVE      ALPHA = PI/10.       CALL PRSPCT (ALPHA , ALPHA)C --- DEBUT DE L'IMAGE      CALL PUSHC --- POSITIONNER L'OBSERVATEUR      CALL NRMLST(400., 400., 300., 0., 0., 0., 3)C --- FIN DES TRANSFORMATIONS A APPLIQUER A L'OBSERVATEURC --- DEBUT DE LA SEQUENCE DE DESCRIPTION DE L'OBJET      CALL PREPAR C --- INITIALISER LA POSITION DU CURSEUR      CALL MOV3TO(125., 0., 0.) C --- DESSIN DE L'OBJET       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 --- FIN DU DESSIN       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 --- ON CONTINUE        GOTO 2      ELSEC --- ON NE CONTINUE PAS        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=tex2html1806 HREF="node104.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/previous_motif.gif"	ALT="previous"></A><A NAME=tex2html1810 HREF="node103.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/up_motif.gif"	ALT="up"></A><A NAME=tex2html1812 HREF="node106.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/next_motif.gif"	ALT="next"></A><A NAME=tex2html1814 HREF="node1.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/contents_motif.gif"	ALT="contents"></A><A NAME=tex2html1815 HREF="node107.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/index_motif.gif"	ALT="index"></A><A HREF="../Guide6-18/node105.html"><IMG BORDER=0 SRC="../icons/zoom18.gif" ALIGN=BOTTOM	ALT="[BIG]"></A><A HREF="../Guide6-14/node105.html"><IMG BORDER=0 SRC="../icons/zoom14.gif" ALIGN=BOTTOM	ALT="[Normal]"></A><A HREF="../Guide6-10/node105.html"><IMG BORDER=0 SRC="../icons/zoom10.gif" ALIGN=BOTTOM	ALT="[small]"></A><BR><B> Suiv.: </B> <A NAME=tex2html1813 HREF="node106.html">Bibliographie</A><B>Sup.: </B> <A NAME=tex2html1811 HREF="node103.html">9 Exemples</A><B> Pr閏.: </B> <A NAME=tex2html1807 HREF="node104.html"> Cr閍tion de quelques figures g閛m閠riques </A><B><A HREF="node107.html"	>Index</A></B><B><A HREF="node1.html"	>Table des mati鑢es</A></B><BR> <HR><P><ADDRESS></ADDRESS></BODY></HTML>
⌨️ 快捷键说明

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