PureBasic

Forums PureBasic - Français
https://www.purebasic.fr/french/

Graphisme du Zodiaque

https://www.purebasic.fr/french/viewtopic.php?t=8104

Page 1 sur 1

Graphisme du Zodiaque

Publié : mar. 20/mai/2008 12:32
par kernadec
bonjour
petit essai graphique qui va permettre de trace un theme avec les ephemeride suisse

Code : Tout sélectionner

;###################################################################
;###       graphisme du Zodiaque avec police astro               ###
;###  police astro a copier dans le dossier "c:\windows\fonts"   ###
;###    ICI -->  http://home.att.net/~ag2kh/download.htm         ###
;###              par kernadec  pb4 OS windows  05 2008          ###
;###################################################################
;###################################################################
Global pos.d,x,y,xx,yy,axex,axey,rayon,tfont,mpos,rmaison
Declare astre(pos)
Declare planete()
Declare tracemaison(mpos)
Declare maison(mpos)
wlargeur=600
whauteur=600
axex = 300
axey = 280
rayon = 130
rmaison=rayon/1.5
tfont=26
;####################################################################
;           ya plus qu'a faire dessiner l'imprimante lolllll
;####################################################################
font1=LoadFont(1,"astro",tfont,#PB_Font_Bold)
If OpenWindow(0, 0, 0, wlargeur, whauteur, "Graphisme  Simple  du  ZODIAQUE    par Kernadec", #WS_SYSMENU)
StartDrawing(WindowOutput(0))
 DrawingFont(font1)
 FillArea(0 ,0 ,RGB(70,70,70),RGB(70,70,70))
 DrawingMode(1)
 FrontColor(RGB(255, 255, 255))
 For o = 0 To 359 Step 30
  x = axex + rayon * Sin(o / 180 * #PI)
  y = axey + rayon * Cos(o / 180 * #PI)
  xx = axex + (rayon + rayon/2.5) * Sin(o / 180 * #PI)
  yy = axey + (rayon + rayon/2.5) * Cos(o / 180 * #PI)
  LineXY(x, y , xx, yy,RGB(255, 255, 255))
   For i = 1 To 29
      If  i = 5 Or  i = 15 Or i = 25
      x = axex + rayon * Sin((i + o) / 180 * #PI)
      y = axey + rayon * Cos((i + o) / 180 * #PI)
      xx = axex + (rayon + rayon/12.5) * Sin((i + o) / 180 * #PI)
      yy = axey + (rayon + rayon/12.5) * Cos((i + o) / 180 * #PI)
      LineXY(x, y , xx, yy, RGB(255, 255, 255))
    ElseIf  i = 10 Or i = 20
      x = axex + rayon * Sin((i + o) / 180 * #PI)
      y = axey + rayon * Cos((i + o) / 180 * #PI)
      xx = axex + (rayon + rayon/8) * Sin((i + o) / 180 * #PI)
      yy = axey + (rayon + rayon/8) * Cos((i + o) / 180 * #PI)
      LineXY(x, y , xx, yy,RGB(255, 255, 255))
    Else
      x = axex + rayon * Sin((i + o) / 180 * #PI)
      y = axey + rayon * Cos((i + o) / 180 * #PI)
      xx = axex + (rayon + rayon/20) * Sin((i + o) / 180 * #PI)
      yy = axey + (rayon + rayon/20) * Cos((i + o) / 180 * #PI)
      LineXY(x, y , xx, yy, RGB(255, 255,0));
    EndIf
   Next i
    x = (axex-tfont/2) + (rayon + rayon/4.35) * Sin((o+15) / 180 * #PI)
    y = (axey-tfont/2) + (rayon + rayon/4.35) * Cos((o+15) / 180 * #PI)
    xx = (axex-tfont/2.25) + (rayon + rayon/4.35) * Sin((o+15) / 180 * #PI)
    yy = (axey-tfont/2.25) + (rayon + rayon/4.35) * Cos((o+15) / 180 * #PI)
    DrawText(xx,yy,Chr(c+65),RGB(255, 255, 255))
    DrawText(x,y,Chr(c+65),RGB(Random(255), Random(255), Random(255)))
    c=c+1
    planete()
    maison(o)  
    tracemaison(o)  
  Next o
 DrawingMode(4)
 Ellipse(axex ,axey, rayon + rayon/2.5, rayon + rayon/2.5, RGB(255, 255, 255))
 Ellipse(axex, axey, rayon, rayon, RGB(255, 255, 255))
 StopDrawing()
EndIf
Repeat
  EventID = WaitWindowEvent() 
Until EventID = #PB_Event_CloseWindow 
End
;###################################################################
 Procedure maison(mpos)
  If mpos=180
       x = (axex-tfont/2) + (rayon + rayon/2.5 + rmaison) * Sin(mpos/ 180 * #PI)
       y = (axey-tfont/2) + (rayon + rayon/2.5 + rmaison) * Cos(mpos / 180 * #PI)
       xx = (axex-tfont/2.25) + (rayon + rayon/2.5 + rmaison) * Sin(mpos/ 180 * #PI)
       yy = (axey-tfont/2.25) + (rayon + rayon/2.5 + rmaison) * Cos(mpos / 180 * #PI)
       DrawText(xx,yy,Chr(98),RGB(255, 255, 255))
       DrawText(x,y,Chr(98),RGB(Random(255), Random(255), Random(255)))
       EndIf
       If mpos=270
      x = (axex-tfont/2) + (rayon + rayon/2.5 + rmaison) * Sin(mpos/ 180 * #PI)
      y = (axey-tfont/2) + (rayon + rayon/2.5 + rmaison) * Cos(mpos / 180 * #PI)
      xx = (axex-tfont/2.25) + (rayon + rayon/2.5 + rmaison) * Sin(mpos / 180 * #PI)
      yy = (axey-tfont/2.25) + (rayon + rayon/2.5 + rmaison) * Cos(mpos/ 180 * #PI)
      DrawText(xx,yy,Chr(97),RGB(255, 255, 255))
      DrawText(x,y,Chr(97),RGB(Random(255), Random(255), Random(255)))
      EndIf
 EndProcedure
Procedure tracemaison(mpos)
  x = axex + (rayon + rayon/2.5) * Sin(mpos / 180 * #PI)
  y = axey + (rayon + rayon/2.5) * Cos(mpos / 180 * #PI)
  xx = axex + (rayon + rayon/2.5 + rmaison) * Sin(mpos/ 180 * #PI)
  yy = axey + (rayon + rayon/2.5 + rmaison) * Cos(mpos / 180 * #PI)
  LineXY(x, y , xx, yy,RGB(255, 255, 0))
 EndProcedure
 Procedure astre(pos)
    x = (axex-tfont/2) + (rayon + rayon/1.8) * Sin(pos / 180 * #PI)
    y = (axey-tfont/2) + (rayon + rayon/1.8) * Cos(pos / 180 * #PI)
    xx = (axex-tfont/2.25) + (rayon + rayon/1.8) * Sin(pos / 180 * #PI)
    yy = (axey-tfont/2.25) + (rayon + rayon/1.8) * Cos(pos / 180 * #PI)
EndProcedure
Procedure planete()
;################################################################
;#   definition des maitises retro et directe de chaque signe   #
;################################################################
    ; ###############  Soleil Maitre Diurne
    astre(130)
    DrawText(xx,yy,Chr(81),RGB(255, 255, 255))
    DrawText(x,y,Chr(81),RGB(255, 255,0))
    ; ###############  Soleil Maitre Nocturne
    astre(110)
    DrawText(xx,yy,Chr(81),RGB(255, 255, 255))
    DrawText(x,y,Chr(81),RGB(255, 255,0))
    ; ###############  lune Maitre Diurne
    astre(100)
    DrawText(xx,yy,Chr(82),RGB(255, 255, 255))
    DrawText(x,y,Chr(82),RGB(200, 200,200))
    ; ###############  lune Maitre Nocturne 
    astre(140)
    DrawText(xx,yy,Chr(82),RGB(255, 255, 255))
    DrawText(x,y,Chr(82),RGB(Random(255), Random(255), Random(255)))
    ; ###############  mercure Maitre Diurne
    astre(70)
    DrawText(xx,yy,Chr(83),RGB(255, 255, 255))
    DrawText(x,y,Chr(83),RGB(Random(255), Random(255), Random(255)))
    ; ###############  mercure Maitre Nocturne
    astre(80)
    DrawText(xx,yy,Chr(83),RGB(255, 255, 255))
    DrawText(x,y,Chr(83),RGB(Random(255), Random(255), Random(255)))
    ; ###############  venus Maitre Diurne
    astre(40)
    DrawText(xx,yy,Chr(84),RGB(255, 255, 255))
    DrawText(x,y,Chr(84),RGB(Random(255), Random(255), Random(255)))
    ; ###############  venus Maitre Nocturne
    astre(50)
    DrawText(xx,yy,Chr(84),RGB(255, 255, 255))
    DrawText(x,y,Chr(84),RGB(Random(255), Random(255), Random(255)))
    ; ############### mars Maitre Diurne
    astre(10)
    DrawText(xx,yy,Chr(85),RGB(255, 255, 255))
    DrawText(x,y,Chr(85),RGB(Random(255), Random(255), Random(255)))
    ; ############### pluton Maitre Nocturne
    astre(20)
    DrawText(xx,yy,Chr(90),RGB(255, 255, 255))
    DrawText(x,y,Chr(90),RGB(Random(255), Random(255), Random(255)))
     ; ############### jupiter Maitre Diurne
    astre(250)
    DrawText(xx,yy,Chr(86),RGB(255, 255, 255))
    DrawText(x,y,Chr(86),RGB(Random(255), Random(255), Random(255)))
    ; ############### neptune Maitre Nocturne
    astre(260)
    DrawText(xx,yy,Chr(89),RGB(255, 255, 255))
    DrawText(x,y,Chr(89),RGB(Random(255), Random(255), Random(255)))
    ; ############### saturne Maitre Diurne
    astre(280)
    DrawText(xx,yy,Chr(87),RGB(255, 255, 255))
    DrawText(x,y,Chr(87),RGB(Random(255), Random(255), Random(255)))
    ; ############### saturne Maitre Nocturne
    astre(290)
    DrawText(xx,yy,Chr(87),RGB(255, 255, 255))
    DrawText(x,y,Chr(87),RGB(Random(255), Random(255), Random(255)))
    ; ############### uranus Maitre Diurne
    astre(310)
    DrawText(xx,yy,Chr(88),RGB(255, 255, 255))
    DrawText(x,y,Chr(88),RGB(Random(255), Random(255), Random(255)))
    ; ############### uranus Maitre Nocturne
    astre(320)
    DrawText(xx,yy,Chr(88),RGB(255, 255, 255))
    DrawText(x,y,Chr(88),RGB(Random(255), Random(255), Random(255)))
    ; ############### neptune Maitre Diurne
    astre(340)
    DrawText(xx,yy,Chr(89),RGB(255, 255, 255))
    DrawText(x,y,Chr(89),RGB(Random(255), Random(255), Random(255)))
     ; ############### jupiter Maitre Nocturne
    astre(350)
    DrawText(xx,yy,Chr(86),RGB(255, 255, 255))
    DrawText(x,y,Chr(86),RGB(Random(255), Random(255), Random(255)))
    ; ############### pluton Maitre Diurne
    astre(220)
    DrawText(xx,yy,Chr(90),RGB(255, 255, 255))
    DrawText(x,y,Chr(90),RGB(Random(255), Random(255), Random(255)))
    ; ############### mars Maitre Nocturne 
    astre(230)
    DrawText(xx,yy,Chr(85),RGB(255, 255, 255))
    DrawText(x,y,Chr(85),RGB(Random(255), Random(255), Random(255)))
    ; ###############  mercure Maitre Diurne
    astre(160)
    DrawText(xx,yy,Chr(83),RGB(255, 255, 255))
    DrawText(x,y,Chr(83),RGB(Random(255), Random(255), Random(255)))
    ; ###############  mercure Maitre Nocturne
    astre(170)
    DrawText(xx,yy,Chr(83),RGB(255, 255, 255))
    DrawText(x,y,Chr(83),RGB(Random(255), Random(255), Random(255)))
    ; ###############  venus Maitre Diurne
    astre(190)
    DrawText(xx,yy,Chr(84),RGB(255, 255, 255))
    DrawText(x,y,Chr(84),RGB(Random(255), Random(255), Random(255)))
    ; ###############  venus Maitre Nocturne
    astre(200)
    DrawText(xx,yy,Chr(84),RGB(255, 255, 255))
    DrawText(x,y,Chr(84),RGB(Random(255), Random(255), Random(255)))
EndProcedure

Publié : mar. 20/mai/2008 13:53
par Ollivier
:)

Publié : mar. 20/mai/2008 13:55
par Kwai chang caine
J'y connais rien, mais c'est joli 8)

Publié : mar. 20/mai/2008 14:45
par kernadec
merci voila pour l'emoticone
pardon j avais commis une ptite erreur de domicile pour saturne et uranus
juste un ptit essai pour aider a faire un ptit programme d'astro perso avec des données astro
cependant avec les polices on peut de imiter des (sprites) graphiques avec fontlab45

Code : Tout sélectionner

;###################################################################
;###       graphisme du Zodiaque avec police astro               ###
;###  police astro a copier dans le dossier "c:\windows\fonts"   ###
;###    ICI -->  http://home.att.net/~ag2kh/download.htm         ###
;###              par kernadec  pb4 OS windows  05 2010          ###
;###################################################################
;###################################################################
Global pos.d,x,y,xx,yy,axex,axey,rayon,tfont,mpos,rmaison,font1,decalage.d
Declare DefaultFontID() 
Declare astre(pos)
Declare planete()
Declare tracemaison(mpos)
Declare maison(mpos)
decalage=75                     ;  orientation du thème
wlargeur=600
whauteur=600
axex = 300
axey = 280
rayon = 130
rmaison=rayon/1.5
tfont=26
;####################################################################
;           ya plus qu'a faire dessiner l'imprimante lolllll
;####################################################################
LoadFont(2,"astro",120,#PB_Font_Bold)        ;pour le fun
LoadFont(1,"astro",tfont,#PB_Font_Bold)
LoadFont(0,"arial",12,#PB_Font_Bold)
If OpenWindow(0, 0, 0, wlargeur, whauteur, "Graphisme  Simple  du  ZODIAQUE bip bip   par Kernadec", #WS_SYSMENU)
   StartDrawing(WindowOutput(0))
   FillArea(0 ,0 ,RGB(70,70,70),RGB(70,70,70))
   DrawingMode(1)
   FrontColor(RGB(255, 255, 255))
   ;############################# bop bip lol #######################
        DrawingFont(FontID(0))
        DrawText(axex-4,axey+60,"Bip Bip",RGB(255, 255, 255))
        DrawText(axex -3,axey+61,"Bip Bip",RGB(255, 255,0))
        DrawingFont(FontID(2))
        DrawText(axex-106,axey-70 ,Chr(101),RGB(255, 255, 255))      
        DrawText(axex -103,axey-68,Chr(101),RGB(0, 255,0))
 DrawingFont(FontID(1))
        DrawText(axex-33,axey-20,Chr(81),RGB(255, 255, 255))
        DrawText(axex -31,axey-19,Chr(81),RGB(255, 255,0))
        DrawText(axex+4,axey-28,Chr(81),RGB(255, 255, 255))
        DrawText(axex +2,axey-27,Chr(81),RGB(255, 255,0))
;####################################################################
 For o = 0 To 359 Step 30
  x = axex + rayon * Sin((o+decalage) / 180 * #PI)
  y = axey + rayon * Cos((o+decalage) / 180 * #PI)
  xx = axex + (rayon + rayon/2.5) * Sin((o+decalage) / 180 * #PI)
  yy = axey + (rayon + rayon/2.5) * Cos((o+decalage) / 180 * #PI)
 LineXY(x, y , xx, yy,RGB(255, 255, 255))
   For i = 1 To 29
      If  i = 5 Or  i = 15 Or i = 25
      x = axex + rayon * Sin((i + o+decalage) / 180 * #PI)
      y = axey + rayon * Cos((i + o+decalage) / 180 * #PI)
      xx = axex + (rayon + rayon/12.5) * Sin((i + o+decalage) / 180 * #PI)
      yy = axey + (rayon + rayon/12.5) * Cos((i + o+decalage) / 180 * #PI)
      LineXY(x, y , xx, yy, RGB(255, 255, 255))
    ElseIf  i = 10 Or i = 20
      x = axex + rayon * Sin((i + o+decalage) / 180 * #PI)
      y = axey + rayon * Cos((i + o+decalage) / 180 * #PI)
      xx = axex + (rayon + rayon/8) * Sin((i + o+decalage) / 180 * #PI)
      yy = axey + (rayon + rayon/8) * Cos((i + o+decalage) / 180 * #PI)
      LineXY(x, y , xx, yy,RGB(255, 255, 255))
    Else
      x = axex + rayon * Sin((i + o+decalage) / 180 * #PI)
      y = axey + rayon * Cos((i + o+decalage) / 180 * #PI)
      xx = axex + (rayon + rayon/20) * Sin((i + o+decalage) / 180 * #PI)
      yy = axey + (rayon + rayon/20) * Cos((i + o+decalage) / 180 * #PI)
      LineXY(x, y , xx, yy, RGB(255, 255,0));
    EndIf
   Next i
    x = (axex-tfont/2) + (rayon + rayon/4.35) * Sin((o+decalage+15) / 180 * #PI)
    y = (axey-tfont/2) + (rayon + rayon/4.35) * Cos((o+decalage+15) / 180 * #PI)
    xx = (axex-tfont/2.25) + (rayon + rayon/4.35) * Sin((o+decalage+15) / 180 * #PI)
    yy = (axey-tfont/2.25) + (rayon + rayon/4.35) * Cos((o+decalage+15) / 180 * #PI)
    DrawText(xx,yy,Chr(c+65),RGB(255, 255, 255))
    DrawText(x,y,Chr(c+65),RGB(Random(255), Random(255), Random(255)))
    c=c+1
    planete()
    maison(o)  
    tracemaison(o)  
  Next o
   DrawingFont(DefaultFontID()) 
 DrawingMode(4)
 Ellipse(axex ,axey, rayon + rayon/2.5, rayon + rayon/2.5, RGB(255, 255, 255))
 Ellipse(axex, axey, rayon, rayon, RGB(255, 255, 255))
 StopDrawing()
EndIf
Repeat
  EventID = WaitWindowEvent() 
Until EventID = #PB_Event_CloseWindow 
End
;###################################################################
Procedure DefaultFontID() 
  ProcedureReturn GetStockObject_(#SYSTEM_FONT) 
EndProcedure 


 Procedure maison(mpos)
  If mpos=180
       x = (axex-tfont/2) + (rayon + rayon/2.5 + rmaison) * Sin(mpos/ 180 * #PI)
       y = (axey-tfont/2) + (rayon + rayon/2.5 + rmaison) * Cos(mpos / 180 * #PI)
       xx = (axex-tfont/2.25) + (rayon + rayon/2.5 + rmaison) * Sin(mpos/ 180 * #PI)
       yy = (axey-tfont/2.25) + (rayon + rayon/2.5 + rmaison) * Cos(mpos / 180 * #PI)
       DrawText(xx,yy,Chr(98),RGB(255, 255, 255))
       DrawText(x,y,Chr(98),RGB(Random(255), Random(255), Random(255)))
       EndIf
    If mpos=270
      x = (axex-tfont/2) + (rayon + rayon/2.5 + rmaison) * Sin(mpos/ 180 * #PI)
      y = (axey-tfont/2) + (rayon + rayon/2.5 + rmaison) * Cos(mpos / 180 * #PI)
      xx = (axex-tfont/2.25) + (rayon + rayon/2.5 + rmaison) * Sin(mpos / 180 * #PI)
      yy = (axey-tfont/2.25) + (rayon + rayon/2.5 + rmaison) * Cos(mpos/ 180 * #PI)
      DrawText(xx,yy,Chr(97),RGB(255, 255, 255))
      DrawText(x,y,Chr(97),RGB(Random(255), Random(255), Random(255)))
      EndIf
 EndProcedure
Procedure tracemaison(mpos)
  x = axex + (rayon + rayon/2.5) * Sin(mpos / 180 * #PI)
  y = axey + (rayon + rayon/2.5) * Cos(mpos / 180 * #PI)
  xx = axex + (rayon + rayon/2.5 + rmaison) * Sin(mpos/ 180 * #PI)
  yy = axey + (rayon + rayon/2.5 + rmaison) * Cos(mpos/ 180 * #PI)
   LineXY(x, y , xx, yy,RGB(255, 255, 0))
 EndProcedure
 Procedure astre(pos)
    x = (axex-tfont/2) + (rayon + rayon/1.8) * Sin(pos/ 180 * #PI)
    y = (axey-tfont/2) + (rayon + rayon/1.8) * Cos(pos/ 180 * #PI)
    xx = (axex-tfont/2.25) + (rayon + rayon/1.8) * Sin(pos/ 180 * #PI)
    yy = (axey-tfont/2.25) + (rayon + rayon/1.8) * Cos(pos/ 180 * #PI)
EndProcedure
Procedure planete()
;################################################################
;# definition des maitises retro et directe de chaque signe     #
;# correction d'un erreur pour saturne et uranus qui se partage #
;# le signe du verseaux                                         #
;################################################################
    ; ###############  Soleil Maitre Diurne
    astre(130+decalage)
    DrawText(xx,yy,Chr(81),RGB(255, 255, 255))
    DrawText(x,y,Chr(81),RGB(255, 255,0))
    ; ###############  Soleil Maitre Nocturne
    astre(110+decalage)
    DrawText(xx,yy,Chr(81),RGB(255, 255, 255))
    DrawText(x,y,Chr(81),RGB(255, 255,0))
    ; ###############  lune Maitre Diurne
    astre(100+decalage)
    DrawText(xx,yy,Chr(82),RGB(255, 255, 255))
    DrawText(x,y,Chr(82),RGB(200, 200,200))
    ; ###############  lune Maitre Nocturne 
    astre(140+decalage)
    DrawText(xx,yy,Chr(82),RGB(255, 255, 255))
    DrawText(x,y,Chr(82),RGB(Random(255), Random(255), Random(255)))
    ; ###############  mercure Maitre Diurne
    astre(70+decalage)
    DrawText(xx,yy,Chr(83),RGB(255, 255, 255))
    DrawText(x,y,Chr(83),RGB(Random(255), Random(255), Random(255)))
    ; ###############  mercure Maitre Nocturne
    astre(80+decalage)
    DrawText(xx,yy,Chr(83),RGB(255, 255, 255))
    DrawText(x,y,Chr(83),RGB(Random(255), Random(255), Random(255)))
    ; ###############  venus Maitre Diurne
    astre(40+decalage)
    DrawText(xx,yy,Chr(84),RGB(255, 255, 255))
    DrawText(x,y,Chr(84),RGB(Random(255), Random(255), Random(255)))
    ; ###############  venus Maitre Nocturne
    astre(50+decalage)
    DrawText(xx,yy,Chr(84),RGB(255, 255, 255))
    DrawText(x,y,Chr(84),RGB(Random(255), Random(255), Random(255)))
    ; ############### mars Maitre Diurne
    astre(10+decalage)
    DrawText(xx,yy,Chr(85),RGB(255, 255, 255))
    DrawText(x,y,Chr(85),RGB(Random(255), Random(255), Random(255)))
    ; ############### pluton Maitre Nocturne
    astre(20+decalage)
    DrawText(xx,yy,Chr(90),RGB(255, 255, 255))
    DrawText(x,y,Chr(90),RGB(Random(255), Random(255), Random(255)))
     ; ############### jupiter Maitre Diurne
    astre(250+decalage)
    DrawText(xx,yy,Chr(86),RGB(255, 255, 255))
    DrawText(x,y,Chr(86),RGB(Random(255), Random(255), Random(255)))
    ; ############### neptune Maitre Nocturne
    astre(260+decalage)
    DrawText(xx,yy,Chr(89),RGB(255, 255, 255))
    DrawText(x,y,Chr(89),RGB(Random(255), Random(255), Random(255)))
    ; ############### saturne Maitre Diurne
    astre(280+decalage)
    DrawText(xx,yy,Chr(87),RGB(255, 255, 255))
    DrawText(x,y,Chr(87),RGB(Random(255), Random(255), Random(255)))
   ; ############### uranus Maitre Nocturne
    astre(290+decalage)
    DrawText(xx,yy,Chr(88),RGB(255, 255, 255))
    DrawText(x,y,Chr(88),RGB(Random(255), Random(255), Random(255)))
    ; ############### uranus Maitre Diurne
    astre(310+decalage)
    DrawText(xx,yy,Chr(88),RGB(255, 255, 255))
    DrawText(x,y,Chr(88),RGB(Random(255), Random(255), Random(255)))
    ; ############### saturne Maitre Nocturne
    astre(320+decalage)
    DrawText(xx,yy,Chr(87),RGB(255, 255, 255))
    DrawText(x,y,Chr(87),RGB(Random(255), Random(255), Random(255)))
    ; ############### neptune Maitre Diurne
    astre(340+decalage)
    DrawText(xx,yy,Chr(89),RGB(255, 255, 255))
    DrawText(x,y,Chr(89),RGB(Random(255), Random(255), Random(255)))
     ; ############### jupiter Maitre Nocturne
    astre(350+decalage)
    DrawText(xx,yy,Chr(86),RGB(255, 255, 255))
    DrawText(x,y,Chr(86),RGB(Random(255), Random(255), Random(255)))
    ; ############### pluton Maitre Diurne
    astre(220+decalage)
    DrawText(xx,yy,Chr(90),RGB(255, 255, 255))
    DrawText(x,y,Chr(90),RGB(Random(255), Random(255), Random(255)))
    ; ############### mars Maitre Nocturne 
    astre(230+decalage)
    DrawText(xx,yy,Chr(85),RGB(255, 255, 255))
    DrawText(x,y,Chr(85),RGB(Random(255), Random(255), Random(255)))
    ; ###############  mercure Maitre Diurne
    astre(160+decalage)
    DrawText(xx,yy,Chr(83),RGB(255, 255, 255))
    DrawText(x,y,Chr(83),RGB(Random(255), Random(255), Random(255)))
    ; ###############  mercure Maitre Nocturne
    astre(170+decalage)
    DrawText(xx,yy,Chr(83),RGB(255, 255, 255))
    DrawText(x,y,Chr(83),RGB(Random(255), Random(255), Random(255)))
    ; ###############  venus Maitre Diurne
    astre(190+decalage)
    DrawText(xx,yy,Chr(84),RGB(255, 255, 255))
    DrawText(x,y,Chr(84),RGB(Random(255), Random(255), Random(255)))
    ; ###############  venus Maitre Nocturne
    astre(200+decalage)
    DrawText(xx,yy,Chr(84),RGB(255, 255, 255))
    DrawText(x,y,Chr(84),RGB(Random(255), Random(255), Random(255)))
EndProcedure

Publié : mar. 20/mai/2008 15:26
par kernadec
je viens d'essayer mon bout de code sans le police a telecharger sur ce site: http://home.att.net/~ag2kh/download.htm
biensur l'effect EQQ n'est pas voulu et je fait des excuses a l'avance pour l' incident

Publié : mar. 20/mai/2008 17:02
par Ar-S
Voilà qui est bien sympathique, un petit tooltip sur les signe pour les décrire serait pas mal ;)

Publié : mer. 21/mai/2008 12:04
par kernadec
bonjour
pour le tooltips je ne peux que te donner l'adresse de wiki qui seras beaucoup plus explicite sur ce sujet
http://fr.wikipedia.org/wiki/Astrologie_occidentale

j'ai un peu manque mon effet! un Bip de plus a ce code lol...
et c'etait la RENCONTRE DU TROISIEME BIP

avec les polices ya de quoi s'amuser surtout avec ce site
http://www.dafont.com/fr/theme.php?cat=707

on peut inviter a aller chercher une police libre pour faire fonctionner quelque petit jeux domino carte taro etc...
on peut aussi faire un programe d impression de coloriage
en tres peu de lignes qui donneras de beaux graphismes
je sais il y a word!! mais pour le fun
au revoir

Publié : mer. 21/mai/2008 12:41
par kernadec
comme on peut le constater la police est partout " WaitWindowEvent() "
nous surveille pour le voir il suffit de remplacer la boucle du code
precedent par celle ci ...

Code : Tout sélectionner

 Ellipse(axex, axey, rayon, rayon, RGB(255, 255, 255))
EndIf
Repeat
        DrawingMode(1)
        DrawingFont(FontID(1))
        DrawText(axex-33,axey-20,Chr(81),RGB(70, 70,70))
        DrawText(axex -31,axey-19,Chr(81),RGB(70, 70,70))
        DrawText(axex+4,axey-28,Chr(81),RGB(70, 70, 70))
        DrawText(axex +2,axey-27,Chr(81),RGB(70, 70,70))        
        Delay(100)
        DrawText(axex-33,axey-20,Chr(81),RGB(255, 255, 255))
        DrawText(axex -31,axey-19,Chr(81),RGB(255, 255,0))
        DrawText(axex+4,axey-28,Chr(81),RGB(255, 255, 255))
        DrawText(axex +2,axey-27,Chr(81),RGB(255, 255,0))
        Delay(100)  
        EventID = WaitWindowEvent()
 Until EventID = #PB_Event_CloseWindow 
StopDrawing()

Publié : jeu. 07/août/2008 11:14
par kernadec
bonjour
pour repondre a Ar-S avec un peu de retard !! :D
voila le ptit toolpic

Code : Tout sélectionner

           DOMICILE    EXALTATION    EXILE       CHUTE
SOLEIL     LION        BELIER        VERSEAU     BALANCE 
   
LUNE       CANCER      TAUREAU       CAPRICORNE  SCORPION

MERCURE    GEMEAUX     VIERGE        SAGITTAIRE  POISSONS
           VIERGE                    POISSONS

VENUS      TAUREAU     POISSONS      SCORPION    VIERGE
           BALANCE                   BELIER

MARS       BELIER      CAPRICORNE    BALANCE     CANCER
           SCORPION                  TAUREAU

JUPITER    SAGITTAIRE  CANCER        GEMEAUX     CAPRICORNE
           POISSONS                  VIERGE

SATURNE    CAPRICORNE  BALANCE       CANCER      BELIER
           VERSEAU                   LION

URANUS     VERSEAU     SCORPION      LION        TAUREAU
           CAPRICORNE                CANCER

NEPTUNE    POISSONS    LION          VIERGE      VERSEAU
           SAGITTAIRE                GEMEAUX

PLUTON     SCORPION    BELIER        TAUREAU     BALANCE
           BELIER                    BALANCE     



QUALITE DES PLANETES:

SOLEIL     MOI, LA VOLONTE, L'INDIVIDUALITE, LA VITALITE, LE DESIR DE PUISSANCE, L'HOMME

LUNE       L'EMOTION, LE SUBCONSCIENT, LES INSTINCTS, LES HABITUDES, LA MEMOIRE, LA FEMME 

MERCURE    LA COMMUNICATION, LES CAPACITES DE RAISONNEMENT, ET LA FACON DE PENSER

VENUS      L'AMOUR, LA SEDUCTION, LA BEAUTE, LES BIENS MATERIELS, LES ARTS

MARS       L'ACTION, LE DESIR, L'AGRESSION, L'ENERGIE PHYSIQUE, LA COMBATIVITE,
           L'ESPRIT D'ENTREPRISE? LE COURAGE 

JUPITER    L'EXPANSION, LA BONNE FORTUNE, LA CROISSANCE, LA PROSPERITE, L'ABONDANCE, LA SAGESSE
           LA GENEROSITE, LA CONSCIENCE SUPERIEURE, INDICE DE CHANCE SUIVANT POSITION

SATURNE    LA RESTRICTION, LA LIMITATION, LA PRUDENCE, L'ORGANISATION, L'ENDURANCE, LA DISCIPLINE
           ELLE INDIQUE OU VOUS DEVEZ FAIRE FACE A VOS PEURS,ET SI VOUS AVEZ DE L'AMBITION 
           
URANUS     LES REVOLUTION, L'ORIGINALITE, L'INDEPENDANCE, L'ESPRIT DE REBELLION, L'INVENTIVITE,
           LA PERSPICACITE, L'IMPREVU, LES TECHNIQUES NOUVELLES 
 
NEPTUNE    L'IMAGINATION, LA SPIRITUALITE, LES REVES, LES CAPACITES PSYCHIQUES, L'INTUITION,
           LA COMPASSION, LA DESINTEGRATION, LE SACRIFICE DE SOI, LA TROMPERIE, L'ILLUSION, 
           LE MENSONGE, 

PLUTON     LA TRANSFORMATION, L'ELIMINATION, LA DESTRUCTION, LA REGENERATION,LE RENOUVELLEMENT
           PRISE DE CONSCIENCE, LA REALITE, LA VERITE



QUALITE DES SIGNES:
 
BELIER   JE SUIS, J'ENTRE DANS L'EXISTANCE <-->  BALANCE     NOUS SOMMES, JE M'ASSOCIE, JE M'UNIS
TAUREAU  J'Ai, JE POSSEDE                  <-->  SCORPION    NOUS AVONS, JE MEURS A MOI MEME, ME TRANSFORME
GEMEAUX  JE PENSE, JE PENSE CONCRETEMENT   <-->  SAGITTAIRE  NOUS PENSONS, JE PENSE SUPERIEUREMENT
CANCER   JE SENS, JE RELIE                 <-->  CAPRICORNE  NOUS REALISONS, J'ASPIRE, JE DIRIGE
LION     J'AIME, JE VEUX                   <-->  VERSEAU     NOUS AIMONS, JE FRATERNISE AVEC LE COLLECTIF
VIERGE   JE SERS, L'ANALYSE                <-->  POISSONS    NOUS SERVONS, JE SUIS AVEC MON AME


SI VOTRE ASCENDANT SE TROUVE DANS UN SIGNE

BELIER          IMPETUEUX, VOLONTAIRE
TAUREAU         STABLE, SENSUEL
GEMEAUX         VERBAL, TRES SENSIBLE
CANCER          EMOTIF, ATTENTIF
LION            CONFIANT, EXUBERANT
VIERGE          METHODIQUE, PERSPICACE
BALANCE         CHARMANT, ATTRAYANT
SCORPION        CONTROLE, RESERVE
SAGITTAIRE      COSMOPOLITE, IRRESISTIBLE
CAPRICORNE      RESPECTABLE, FIER  
VERSEAU         SYMPATHIQUE, INDIVIDUALISTE
POISSONS        IDEALISTE, RECEPTIF

SI UNE CUSPIDES SE TROUVE DANS UN SIGNE

BELIER          SPONTANEE, DYNAMIQUE
TAUREAU         PRODUCTIVE, DELIBEREE
GEMEAUX         SOUPLE, COMMUNICATIVE
CANCER          INTUITIVE, DEFENSIVE
LION            DIGNE, EXPRESSIVE
VIERGE          ANALYTIQUE, POINTILLEUSE
BALANCE         DIPLOMATIQUE ARTISTIQUE
SCORPION        INTENSE, PENETRANTE
SAGITTAIRE      INDEPENDANTE, EXPENSIVE
CAPRICORNE      RESPONSABLE, TRADITIONNELLE
VERSEAU         ANTICONFORMISTE,DETACHEE
POISSONS        RECEPTIVE, VULNERABLE



QUALITE DES MAISONS:

MAISON 1   MOI                       <-->      MAISON 7   LES AUTRES
MAISON 2   L'ARGENT QUE JE GAGNE     <-->      MAISON 8   L'ARGENT QUI ME VIENT DES AUTRES
MAISON 3   LA PENSEE PRATIQUE        <-->      MAISON 9   LA PENSEE SUPERIEURE
MAISON 4   l'ENFANCE DU MOI          <-->      MAISON 10  LA MATURITE LA REALISATION DU MOI
MAISON 5   LA VIE SENTIMENTALE       <-->      MAISON 11  LA VIE AMICALE
MAISON 6   LES EPREUVE DU MOI DANS   <-->      MAISON 12  LES GRANDE CRISES LES EPREUVES
           LA VIE QUOTIDIENNE                             QUI NOUS OBLIGENT A VIVRE SEUL 


MAISON  1   VOTRE APPARENCE ET VOTRE NATURE VISIBLE
MAISON  2   ARGENT, BIENS MATERIELS ET OBJETS DE VALEUR, ACQUISITION 
MAISON  3   COMMUNICATION, PETITS VOYAGES, FRERES ET SOEURS, ETUDES 
MAISON  4   FOYER, RACINES, UN DES PARENTS, CIRCONTANCES A LA FIN DE VIE
MAISON  5   VIE AMOUREUSES, ENFANTS, CREATIVITE
MAISON  6   TRAVAIL ET SANTE
MAISON  7   MARIAGE ET AUTRES PARTENARIATS
MAISON  8   SEXUALITE, MORT, REGENERATION, L'ARGENT D'AUTRES PERSONNES
MAISON  9   ETUDES SUPEREURES, GRAND VOYAGES,RELIGION, PHILOSOPHIE, L'ETRANGER
MAISON 10   CARRIERE, STATUS SOCIAL, REPUTATION, L'AUTRE PARENT
MAISON 11   AMIS ET ASPIRATIONS 
MAISON 12   ISOLEMENT ET SECRETS 




COMPLEMENT PLANETES

SOLEIL     LE SOI  (L'AME DU THEME) ANIMUS
           Le soi manifestant l'individu ,dans sa fixité, sa volonté, son rayonnement, sa puissance créatrice.

LUNE       LE MOI  (IMAGINATION, EMOTION, SENSIBILITE) ANIMA
           Le moi manifestant la personnalité dans sa mouvance, extension de l'être solaire reliant, 
           extériorisant toute chose par la rapidité de son mouvement.

MERCURE    L'INTELLIGENCE
           Facultés de compréhension résultant des rapports entre le soi et le moi différenciée, suivant que
           cette énergie appartient au signe des gémeaux (Attirée par l'observation et la curiosité concrète)
           ou au signe de la vierge (concentrée sur l'utile et la synthèse du monde intérieur)
                         
VENUS      AMOUR 
           la puissance d'attache qui lie les êtres. Différenciée suivant qu'elle appartient au
           taureau : concrète, sensuelle,possessive, ou à la balance abstraite,mentale,artiste.  


MARS       L'ACTION. DYNAMISME,INITIATIVE,
           planète reliant l'individu au collectif par l'action qu'elle déclanche. par sa fonction dans
           le bélier elle commande l'entrée dans l'incarnation, et dans le scorpion l'entrée dans le collectif.

JUPITER    L'ENERGIE D'EXPANSION
           se manifestant par l'enthousiasme, la générosité, la croissance, la foi, sens de la grandeur
           ample vision de la vie ,allant de sa plus joyeuse et optimiste expression, à la plus élevée
           capable d'atteindre des sommets,politiques, philosophiques ou religieux.
           permet l'expansion lunaire

SATURNE    INDIVIDUATION DE L'ETRE SOLAIRE
           Formation par la réflexion, la concentration,l'ascèse. Administration, organisation, construction,
           architecture, pierre d'angle ou pierre tombale suivant les aspects. assure la fixité du soleil

URANUS     LE GENIE DE L'INDIVIDU
           connaissances innées provenant de l'acquis de ses expériences passées, se révélant d'une manière
           souvent fulgurante. famille spirituelle a laquelle l'être appartient dans le domaine universel.
           octave supérieur de mercure

NEPTUNE    SYMBOLE DE L'UNITE
           vers laquelle tend tout être, plus ou moins consciemment, et avec les facultés dont il dispose
           suivant le stade d'évolution auquel il est parvenu.  l'Avenir.  octave supérieur de vénus.

PLUTON     ENERGIE PROVENANT DU PASSE
           Résultant des forces instinctives non encore intégrées et qui peuvent se manifester à différent
           niveaux de conscience. octave supérieur de mars

Publié : jeu. 07/août/2008 13:34
par Backup
c'est interressant :)

donc sur ces critères et fonction de la roue zodiacale du jour

on regarde les planetes se trouvant dans tel maison, ou dans tel signe, et l'on deduit en fonction de ces informations , le theme zodiaquale du jour ??.. :)

Publié : jeu. 07/août/2008 13:40
par simonl
et vous croyez à ces betises sur l'astrologie ???

horoscope

Publié : jeu. 07/août/2008 14:44
par kernadec
je me suis penché sur ce domaine, à la demande d'un ami pour lequel,
j'ai écrit un petit prog a l'aide du calcul des éphémérides Suisse,
il n'y a pas beaucoup de difficultés a faire ce genre de programme,
2-3 dialogues et hop
Et pour ce que je pense de l'astro, il y a beaucoup de coïncidences
et de combinaisons, si on prend 10 planètes 360 degres et 5 possibilistés
d'Aspects 0, 60, 90, 120, 180, et que l’ont donne une orbe de 6 à 7degres
on a fait le tour, et c’est comme ça qu’après coup,
on trouveras toujours une explication au fait lolll
mais le coté philosophique m'intéresse voila!
Fuseau horaire sur UTC+01:00
Page 1 sur 1

Développé par phpBB® Forum Software © phpBB Limited

Traduction française officielle © Qiaeru