FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» Planétarium virtuel.
par Pedro Alvarez Aujourd'hui à 17:36

» ajouter des blancs dans un TXT
par lepetitmarocain Hier à 13:00

» 11 (en analyse): commandes sur TAB et SUB_MENU.
par Jack Mar 14 Aoû 2018 - 14:10

» 10 (en analyse): Erreur sur variable locale.
par Jack Mar 14 Aoû 2018 - 14:05

» Métamatière, éternité et renouvellement
par Oscaribout Mar 14 Aoû 2018 - 12:40

» De retour...
par Yannick Lun 13 Aoû 2018 - 15:11

» bug SEVERE fnc+sub : (35)name already defined
par Oscaribout Dim 12 Aoû 2018 - 23:55

» Encadrement
par Jean Claude Dim 12 Aoû 2018 - 11:53

» Des rectangles...
par JL35 Dim 12 Aoû 2018 - 10:53

» TRIGGER_KEY_COMBINED_TOUCH
par Jean Claude Mar 7 Aoû 2018 - 20:58

» ITEM_SELECT N,L pour synedit
par Jean Claude Mar 7 Aoû 2018 - 19:11

» amélioration panoramic
par silverman Dim 5 Aoû 2018 - 18:34

» Commande file_readln.
par Pedro Alvarez Dim 5 Aoû 2018 - 17:08

» Klaus ?
par Jack Sam 4 Aoû 2018 - 22:48

» Défragmentation du disque dur
par JL35 Sam 4 Aoû 2018 - 21:06

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2018
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
2728293031  
CalendrierCalendrier

Partagez | 
 

 Des rectangles...

Aller en bas 
AuteurMessage
JL35



Nombre de messages : 6311
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Des rectangles...   Lun 6 Aoû 2018 - 22:04

Juste pour s'amuser (c'est les vacances !), une petite sub pour tracer des rectangles avec des coins un peu fantaisie:
Code:
DIM x%,y%,w%,h%
WIDTH 0,800: HEIGHT 0,400
PICTURE 1: FULL_SPACE 1: 2D_TARGET_IS 1: 2D_PEN_WIDTH 2
w% = 200: h% = 120: x% = 10: y% = 20
Rectangle(x%,y%,w%,h%,0)
x% = x%+w%+40: Rectangle(x%,y%,w%,h%,1)
x% = x%+w%+40: Rectangle(x%,y%,w%,h%,2)
x% = 10: y% = y%+h%+40
Rectangle(x%,y%,w%,h%,3)
x% = x%+w%+40: Rectangle(x%,y%,w%,h%,4)
x% = x%+w%+40: Rectangle(x%,y%,w%,h%,5)
END

SUB Rectangle(x%,y%,w%,h%,coins%)
  ' Tracé d'un rectangle vide en x%,y%, dimensions w%,h%, sur la cible 2D
  ' Paramètres de trait (épaisseur, couleur) courants
  ' coins: = 0: coins normaux         = 3: coins en carrés
  '        = 1: arrondis externes     = 4: en biseau 45°
  '        = 2: arrondis internes     = 5: angles droits internes
  DIM_LOCAL r%,r1%,r2%,r3%,xc%,yc%,a
  r% = h%/10: IF h%>w% THEN r% = w%/10
  r% = r%*2: ' rayon du motif d'angle, à moduler
  SELECT coins%
    CASE 0: ' coins normaux (angle droit externe)
      2D_LINE x%,y%,x%+w%,y%: 2D_POLY_TO x%+w%,y%+h%: 2D_POLY_TO x%,y%+h%
      2D_POLY_TO x%,y%
    CASE 1: ' coins arrondis vers l'extérieur
      DEGREES
      2D_LINE x%,y%+r%,x%,y%+h%-r%: xc% = x%+r%: yc% = y%+h%-r%: ' vertical gauche
      FOR a = 180 TO 270
          2D_POLY_TO xc%+r%*COS(a),yc%-r%*SIN(a)
      NEXT a
      2D_LINE x%+r%,y%+h%,x%+w%-r%,y%+h%: xc% = x%+w%-r%: ' horizontal bas
      FOR a = 270 TO 360
          2D_POLY_TO xc%+r%*COS(a),yc%-r%*SIN(a)
      NEXT a
      2D_LINE x%+w%,y%+h%-r%,x%+w%,y%+r%: yc% = y%+r%: ' vertical droite
      FOR a = 0 TO 90
          2D_POLY_TO xc%+r%*COS(a),yc%-r%*SIN(a)
      NEXT a
      2D_LINE x%+w%-r%,y%,x%+r%,y%: xc% = x%+r%: ' horizontal haut
      FOR a = 90 TO 180
          2D_POLY_TO xc%+r%*COS(a),yc%-r%*SIN(a)
      NEXT a
    CASE 2: ' coins arrondis vers l'intérieur
      DEGREES
      2D_LINE x%+r%,y%,x%+w%-r%,y%: xc% = x%+w%: yc% = y%: ' horizontal haut
      FOR a = 180 TO 270
          2D_POLY_TO xc%+r%*COS(a),yc%-r%*SIN(a)
      NEXT a
      2D_LINE x%+w%,y%+r%,x%+w%,y%+h%-r%: yc% = y%+h%: ' vertical droite
      FOR a = 90 TO 180
          2D_POLY_TO xc%+r%*COS(a),yc%-r%*SIN(a)
      NEXT a
      2D_LINE x%+w%-r%,y%+h%,x%+r%,y%+h%: xc% = x%: ' horizontal bas
      FOR a = 0 TO 90
          2D_POLY_TO xc%+r%*COS(a),yc%-r%*SIN(a)
      NEXT a
      2D_LINE x%,y%+h%-r%,x%,y%+r%: yc% = y%: ' vertical gauche
      FOR a = 270 TO 360
          2D_POLY_TO xc%+r%*COS(a),yc%-r%*SIN(a)
      NEXT a
    CASE 3: ' coins en carrés
      r2% = r%: r1% = r2%/2: r3% = r1%+r2%
      2D_LINE x%+r1%,y%,x%+w%-r1%,y%
      2D_POLY_TO x%+w%-r1%,y%+r3%: 2D_POLY_TO x%+w%-r3%,y%+r3%
      2D_POLY_TO x%+w%-r3%,y%+r1%: 2D_POLY_TO x%+w%,y%+r1%
      2D_POLY_TO x%+w%,y%+h%-r1%
      2D_POLY_TO x%+w%-r3%,y%+h%-r1%: 2D_POLY_TO x%+w%-r3%,y%+h%-r3%
      2D_POLY_TO x%+w%-r1%,y%+h%-r3%: 2D_POLY_TO x%+w%-r1%,y%+h%
      2D_POLY_TO x%+r1%,y%+h%
      2D_POLY_TO x%+r1%,y%+h%-r3%: 2D_POLY_TO x%+r3%,y%+h%-r3%
      2D_POLY_TO x%+r3%,y%+h%-r1%: 2D_POLY_TO x%,y%+h%-r1%
      2D_POLY_TO x%,y%+r1%
      2D_POLY_TO x%+r3%,y%+r1%: 2D_POLY_TO x%+r3%,y%+r3%
      2D_POLY_TO x%+r1%,y%+r3%: 2D_POLY_TO x%+r1%,y%
    CASE 4: ' coins en biseaux à 45°
      2D_LINE x%+r%,y%,x%+w%-r%,y%: 2D_POLY_TO x%+w%,y%+r%
      2D_POLY_TO x%+w%,y%+h%-r%: 2D_POLY_TO x%+w%-r%,y%+h%
      2D_POLY_TO x%+r%,y%+h%: 2D_POLY_TO x%,y%+h%-r%
      2D_POLY_TO x%,y%+r%: 2D_POLY_TO x%+r%,y%
    CASE 5: ' coins angle droit vers l'intérieur
      2D_LINE x%+r%,y%,x%+w%-r%,y%: 2D_POLY_TO x%+w%-r%,y%+r%: 2D_POLY_TO x%+w%,y%+r%
      2D_POLY_TO x%+w%,y%+h%-r%: 2D_POLY_TO x%+w%-r%,y%+h%-r%: 2D_POLY_TO x%+w%-r%,y%+h%
      2D_POLY_TO x%+r%,y%+h%: 2D_POLY_TO x%+r%,y%+h%-r%: 2D_POLY_TO x%,y%+h%-r%
      2D_POLY_TO x%,y%+r%: 2D_POLY_TO x%+r%,y%+r%: 2D_POLY_TO x%+r%,y%
  END_SELECT
END_SUB


Pour faire par exemple des étiquettes, ou autres.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 2996
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Des rectangles...   Lun 6 Aoû 2018 - 22:46

Voila de biens jolis coins à visiter pour les vacances !!!
lol! lol! lol! lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
Jean Claude

avatar

Nombre de messages : 5574
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Des rectangles...   Mar 7 Aoû 2018 - 8:50

Çà m'en bouche un coin Very Happy ou plutôt 6 au total.
lol!

C'est à garder sous le coude, ça peut servir.

Bravo JL35 !

A+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 6311
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Des rectangles...   Mar 7 Aoû 2018 - 12:42

Merci Jean Claude !

@Minibug
Citation :
Voila de biens jolis coins à visiter pour les vacances !!!
Pour rester dans le bucolique, j'aurais pu mettre un joli coin de verdure:

Ou remplacer carrément deux coins par un seul objet:
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5574
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Des rectangles...   Mar 7 Aoû 2018 - 13:04

Voilà un sujet qui fait appel à notre imagination,

Si le canard dit "Coin Coin Coin Coin !" ça veut dire quoi ?
réponse 1: supprime tous les coins.
réponse 2 : affiche les quatre coins.

A moins qu'il n'ai aperçu une canne au loin.....

lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 6311
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Des rectangles...   Mar 7 Aoû 2018 - 14:42

Un canard normal ça fait coin coin, le tien doit être bègue ! et ça ne réagit pas en voyant une canne, mais une cane, peut-être, si elle est bien roulée ... Very Happy ,
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 2996
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Des rectangles...   Mar 7 Aoû 2018 - 19:33

Hummm... Donc je pose le problème suivant :

Si un canard fait Coin Coin combien de canard y a t-il dans un carré ?

drunken scratch rendeer geek Rolling Eyes Suspect
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
JL35



Nombre de messages : 6311
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Des rectangles...   Mar 7 Aoû 2018 - 20:08

Justement, un canard fait des ronds dans l'eau, et dans un rond il n'y a pas de coin (coin).

Je me demande si on n'est pas en train de s'éloigner du sujet... scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5574
Age : 64
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Des rectangles...   Mar 7 Aoû 2018 - 20:10

Ben en théorie, il y en a deux, si on suit la règle évoquée par JL35 !

Mais tout dépend du genre des canards, suivant ma théorie,  si c'est 2 mâles alors chacun ses 2 coins. Mais si c'est un mâle et une femelle, il est probable que la règle soit perturbée.

Bon j'arrête là, ça risque de déraper. Un peu d'humour, mais pas trop.

A+
PS:
Jl35 a écrit:
Justement, un canard fait des ronds dans l'eau, et dans un rond il n'y a pas de coin (coin). Je me demande si on n'est pas en train de s'éloigner du sujet..
Ben... heu.. vu le titre de ton topic "Rectangle" c'est toi qui est hors sujet Razz geek
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Minibug

avatar

Nombre de messages : 2996
Age : 51
Localisation : Vienne (86)
Date d'inscription : 09/02/2012

MessageSujet: Re: Des rectangles...   Mar 7 Aoû 2018 - 20:16

Citation :
PS:

Jl35 a écrit:
Justement, un canard fait des ronds dans l'eau, et dans un rond il n'y a pas de coin (coin).

Ben... heu.. vu le titre de ton topic "Rectangle" c'est toi qui est hors sujet Razz geek

lol! lol! lol! lol! lol! lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gpp.panoramic.free.fr
JL35



Nombre de messages : 6311
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Des rectangles...   Dim 12 Aoû 2018 - 10:53

D'accord d'accord tous les deux, le hs c'est de ma faute !
Alors il vaut mieux en rester là avant que ça ne parte en déconfiture (de coins).
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Des rectangles...   

Revenir en haut Aller en bas
 
Des rectangles...
Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: