📄 node104.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 2D</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 2D"><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=tex2html1794 HREF="node103.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/previous_motif.gif"	ALT="previous"></A><A NAME=tex2html1800 HREF="node103.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/up_motif.gif"	ALT="up"></A><A NAME=tex2html1802 HREF="node105.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/next_motif.gif"	ALT="next"></A><A NAME=tex2html1804 HREF="node1.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/contents_motif.gif"	ALT="contents"></A><A NAME=tex2html1805 HREF="node107.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/index_motif.gif"	ALT="index"></A><A HREF="../Guide6-18/node104.html"><IMG BORDER=0 SRC="../icons/zoom18.gif" ALIGN=BOTTOM	ALT="[BIG]"></A><A HREF="../Guide6-14/node104.html"><IMG BORDER=0 SRC="../icons/zoom14.gif" ALIGN=BOTTOM	ALT="[Normal]"></A><A HREF="../Guide6-10/node104.html"><IMG BORDER=0 SRC="../icons/zoom10.gif" ALIGN=BOTTOM	ALT="[small]"></A><BR><B> Suiv.: </B> <A NAME=tex2html1803 HREF="node105.html"> Cr閍tion de quelques figures g閛m閠riques </A><B>Sup.: </B> <A NAME=tex2html1801 HREF="node103.html">9 Exemples</A><B> Pr閏.: </B> <A NAME=tex2html1795 HREF="node103.html">9 Exemples</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=SECTION05910000000000000000> Cr閍tion de quelques figures g閛m閠riques 2D</A></H1><P>  Le sous-programme suivant utilise uniquement les instructions graphiques 2D.<P><PRE>       PROGRAM IMAG2DC  --- TRACE DE FIGURES        REAL PI       PARAMETER (PI=3.14152)       INTEGER ITERM,PAROUT(10), PARIN(10)        CHARACTER*80 STRING       REAL PAS,R1,R2,A,B,ALPHA,X,Y,Z,XMIN,XMAX,YMIN,YMAX       REAL CX,CY,PX,XX,YY,DIMFEN,CX1,CX2,TAILLE,PY1,PY2,O,R,CY1,CY2       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)  C  --- CALCUL D'UNE FENETRE CARRE POUR LE DESSIN       DIMFEN = MIN(XMAX-XMIN, YMAX-YMIN) / 2.        CX = (XMIN + XMAX) / 2.       CY = (YMIN + YMAX) / 2.        CX1 = CX - DIMFEN       CX2 = CX + DIMFEN       CY1 = CY - DIMFEN       CY2 = CY + DIMFEN       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 = YMIN + 2.*TAILLEC  --- ENTREE DU PAS        PAS=0.5   2   CONTINUE       CALL CLEANC  --- COULEUR COURANTE = BLANC       CALL SETCOL(1., 1., 1.)       CALL GETNUM('DONNEZ LE PAS DU LA SPIRALE ENTRE 0. ET 1. : ',     + PX, PY1, PAS, IBID, BID, 1, 1, 0, 0, 0.001, 1.)C  --- MASQUE DEPENDANT DU TRACE        CALL FENTR2(CX1, CX2, CY1, CY2)       CALL MASQU2(-100., 100., -100., 100.) C  --- POSITION INITIALE DU CURSEUR       CALL MOV2TO(0., 0.) C  --- DESSIN DE L'OBJET        R = 0.        DO 1 A = 0. , 8.*PI ,2.*PI/200          R = R + PAS/10.          X = R * COS(A)          Y = R * SIN(A)          CALL LIN2TO(X, Y)    1  CONTINUE C  --- FIN DU DESSIN        CALL FENTR2(XMIN, XMAX, YMIN, YMAX)       CALL MASQU2(XMIN, XMAX, YMIN, YMAX)       CALL SETCOL(1., 1., 1.)       XX = PX       YY = PY2        CALL GETEXT('&gt; CONTINUER (Y/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=tex2html1794 HREF="node103.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/previous_motif.gif"	ALT="previous"></A><A NAME=tex2html1800 HREF="node103.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/up_motif.gif"	ALT="up"></A><A NAME=tex2html1802 HREF="node105.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/next_motif.gif"	ALT="next"></A><A NAME=tex2html1804 HREF="node1.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/contents_motif.gif"	ALT="contents"></A><A NAME=tex2html1805 HREF="node107.html"><IMG BORDER=0 ALIGN=BOTTOM SRC="../icons/index_motif.gif"	ALT="index"></A><A HREF="../Guide6-18/node104.html"><IMG BORDER=0 SRC="../icons/zoom18.gif" ALIGN=BOTTOM	ALT="[BIG]"></A><A HREF="../Guide6-14/node104.html"><IMG BORDER=0 SRC="../icons/zoom14.gif" ALIGN=BOTTOM	ALT="[Normal]"></A><A HREF="../Guide6-10/node104.html"><IMG BORDER=0 SRC="../icons/zoom10.gif" ALIGN=BOTTOM	ALT="[small]"></A><BR><B> Suiv.: </B> <A NAME=tex2html1803 HREF="node105.html"> Cr閍tion de quelques figures g閛m閠riques </A><B>Sup.: </B> <A NAME=tex2html1801 HREF="node103.html">9 Exemples</A><B> Pr閏.: </B> <A NAME=tex2html1795 HREF="node103.html">9 Exemples</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 + -