aldweb

Fermer I. aldweb

Fermer II. Gratuitiels PC

Fermer III. Gratuitiels Palm

Fermer IV. Partagiciels Palm

Fermer V. iziBasic Palm

Fermer VI. Connaissance Palm

Fermer VII. Ordinateur Poche

Fermer VIII. miniPortail

Spécial !



Version mobile
de l'aldweb Site

m.aldweb.com


Ni Français, ni Anglais ?

Essayez donc l'un de ces drapeaux :
[de] [es] [it] [pt]
Recherche




Météo / Spam / www

Météo Lyon


aldweb contre le SPAM


Newsletter
Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner
298 Abonnés
Sites web de la famille

Webmaster - Infos
News Amis
Visites

   visiteurs

   visiteurs en ligne

Sondage
Comment trouve-tu le nouvel habillage de l'aldweb Site ?
 
Superbe !
Joli
Moyen
Moche...
Résultats
Poster une réponse

Je vous remercie de prendre le temps d'écrire ce message.

Votre nom (ou pseudo) :

Votre e-mail :

Masquer aux visiteurs votre adresse e-mail :      
Note : l'adresse e-mail utilisée est protégée contre le SPAM.

S'abonner à ce fil de discussion :      

Vous répondez à Garfield qui a écrit :


OK, I've done it. Below is the program that will draw a completely filled in triangle without any gaps using horizontal lines only.

Feel free to modify the coordinates (variables A to F) or create a procedure to allow you to enter them within the program itself. The routine that actually draws the triangle is a subroutine that only requires the coordinates in variables A to F [or A(1) to A(6)], so it should be easy for you to do this. You can also set the colour to anything you want before you call the subroutine.

For those that want an explanation as to what the subroutine does, check out my next post. This one is getting too big!



BEGIN
A=30 : B=30 ' Coordinate 1
C=150 : D=50 ' Coordinate 2
E=50 : F=150 ' Coordinate 3

' Call Draw Triangle Routine
GOSUB _DrawFilledTriangle

' Pause so we can see our triangle!
REPEAT : Z=WAITEVENT : UNTIL Z<0

END


_DrawFilledTriangle:

' Sort coordinates in order of height
IF D<F SWAP C,E:SWAP D,F
IF B<D SWAP A,C:SWAP B,D
IF D<F SWAP C,E:SWAP D,F

' Calculate Mid-Point G
X=D-F : Y=B-F : Z=E-A : Z=ABS(Z)
G=Z*X/Y : G=ROUND(G)
IF E>A THEN
G=E-G
ELSE
G=E+G
ENDIF

' Jump to Fill Routines
I=A : J=B
GOSUB _DrawHalfTriangle ' Bottom Half
I=E : J=F
GOSUB _DrawHalfTriangle ' Top Half

' Draw Outline to tidy sharp corners
LINE A,B TO C,D
LINETO E,F
LINETO A,B

RETURN


_DrawHalfTriangle:
IF J=D RETURN ' Return if flat top or bottom

IF J>D THEN
Z=J-D : V=1 ' Bottom Half
ELSE
Z=D-J : V=-1 ' Top Half
ENDIF

X=I-G : X=X/Z ' Calculate x-axis steps
Y=I-C : Y=Y/Z

FOR W=0 TO Z
I=X*W+G : I=ROUND(I)
J=Y*W+C : J=ROUND(J)
H=W*V
H=D+H
LINE I,H TO J,H
NEXT

RETURN


Aide :

Syntaxe du code :

  • <color=CodeHexadécimale></color> permet de colorer un texte.
    Remarque : Vous pouvez préciser à la place du code hexadécimal (#??????), le nom de la couleur (red, yellow, orange, green, blue, etc...). Pour plus de détails...
  • <bgcolor=CodeHexadécimale></bgcolor> permet de surligner en couleur un texte.
    Remarque : Vous pouvez préciser à la place du code hexadécimal (#??????), le nom de la couleur (red, yellow, orange, green, blue, etc...). Pour plus de détails...
  • <b></b> permet de mettre en gras un texte.
  • <i></i> permet de mettre en italique un texte.
  • <u></u> permet de souligner un texte.
  • <cite></cite> permet d'insérer une citation.
    Remarque : Vous pouvez préciser le nom de l'auteur de la citation en écrivant <cite=Auteur>
  • <code></code> permet d'insérer du code.
    Remarque : Vous pouvez préciser le langage en écrivant <code=NomduLangage>
  • <left></left> permet d'aligner à gauche.
  • <center></center> permet d'aligner au centre.
  • <right></right> permet d'aligner à droite.
  • <link></link> permet d'insérer un lien.
    Remarque : Vous pouvez préciser l'url du lien en écrivant <link=URL>texte</link>. Si vous ne précisez pas l'url du lien, l'url sera ce qui se trouve entre les deux balises.<link>URL</link>
  • <img=NomduSmiley> permet d'insérer un smiley.
    Remarque : Les noms des smileys de base disponibles sont : cool, wink, biggrin, smile, frown, eek, mad, confused, rolleyes, tongue, cry. Pour plus de détails...

Raccourcis clavier (sous Windows) :

  • Touche SHIFT + flèche (droite ou gauche) permet de sélectionner du texte
  • Touche ALT + 2 permet de sélectionner la barre d'outils
  • Touche ALT + 3 permet de sélectionner la zône d'édition
  • Touche ALT + 4 permet d'afficher l'aide
  • Touche ALT + 5 permet de masquer l'aide
  • Touche TAB permet de passer d'une sélection à la suivante
  • Touche SHIFT + TAB permet de passer d'une sélection à la précédente
  • Touche ALT + flèche (vers le bas ou vers le haut) permet de déplier le menu sélectionné
  • Touche ALT + flèche (vers le bas ou vers le haut) permet de replier un menu déplié
  • Touche flèche (vers le bas ou vers le haut) permet de naviguer dans un menu déplié
  • Touche ALT + s permet d'envoyer le formulaire

   |     |  Gras  Italique  Souligné  Insérer une Citation    Aligner à Gauche  Centrer  Aligner à Droite  Insérer un Lien  Insérer un Smiley (popup)  Prévisualiser (popup)  Afficher l'aide   
smiley tranquille  smiley complice  smiley content  smiley souriant  smiley sidéré  smiley perturbé  smiley en colère  smiley mécontent  smiley étonné  smiley moqueur  smiley malheureux 
Captcha reload
Recopier le code :


 
 
^ Haut ^