Logo Purebasic avec la nouvelle lib VectorDrawin

[microdevweb]

Logo Purebasic réalisé entièrement avec VectorDrawin (15 min +-), bon c'est pas le plus joli logo c'est juste une démonstration de la puissance de cette nouvelle lib.

Code : Tout sélectionner

Enumeration 
      #MainForm
      #Img
      #MainImg
EndEnumeration
Procedure Draw()
      StartVectorDrawing(ImageVectorOutput(#Img))
      VectorSourceColor($FFFFFFFF)
      FillVectorOutput()
      ;{ Contour
      X=200
      Y=50
      MovePathCursor(X,Y)
      AddPathLine(350,30,#PB_Path_Relative)
      AddPathLine(-40,100,#PB_Path_Relative)
      AddPathLine(-25,0,#PB_Path_Relative)
      AddPathLine(-30,80,#PB_Path_Relative)
      AddPathLine(110,15,#PB_Path_Relative)
      AddPathLine(-40,110,#PB_Path_Relative)
      AddPathLine(-100,-10,#PB_Path_Relative)
      AddPathLine(-30,80,#PB_Path_Relative)
      AddPathLine(210,30,#PB_Path_Relative)
      AddPathLine(-40,80,#PB_Path_Relative)
      AddPathLine(-350,-40,#PB_Path_Relative)
      AddPathLine(70,-180,#PB_Path_Relative)
      AddPathLine(-100,-15,#PB_Path_Relative)
      AddPathLine(40,-110,#PB_Path_Relative)
      AddPathLine(100,15,#PB_Path_Relative)
      AddPathLine(30,-80,#PB_Path_Relative)
      AddPathLine(-180,-20,#PB_Path_Relative)
      AddPathLine(25,-85,#PB_Path_Relative)
      VectorSourceLinearGradient(200,50,800,600)
      VectorSourceGradientColor($FFFFFFFF,0.0)
      VectorSourceGradientColor($FF0000FF,0.2)
      VectorSourceGradientColor($FF2222B2,0.5)
      FillPath(#PB_Path_Preserve)
      VectorSourceColor($FF000080)
      StrokePath(2)
      ;}
      StopVectorDrawing()
EndProcedure
OpenWindow(#MainForm,0,0,800,600,"Logo Pb",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)
CreateImage(#Img,800,600)
Draw()
ImageGadget(#MainImg,0,0,800,600,ImageID(#Img))
Repeat:Event=WaitWindowEvent():Until Event=#PB_Event_CloseWindow

[GG]

Ca a de la gueule...

[microdevweb]

Merci GG, mais il y moyen de faire beaucoup mieux. J'ai fais cela à la va-vite.

[Kwai chang caine]

Super joli, c'est vrai pas beaucoup de monde a pensé à faire des codes autour du logo.

C'est un bon début, on se demande ou tu trouves le temps de faire tout ça, tu dors pas la nuit, ou alors peut être que t'es plusieurs.

Il te reste plus qu'à le faire tourner en 3d maintenant

[Anonyme2]

tu dors pas la nuit, ou alors peut être que t'es plusieurs.

[GG]

Il est multithreadé des pieds à la tête...

[nico]

Petite modif pour donner un effet 3D

Code : Tout sélectionner

Procedure Draw()
  Static decalx.l =24
  Static decaly.l = 24
  
  StartVectorDrawing(ImageVectorOutput(#Img))
  
  VectorSourceColor($FFFFFFFF)
  FillVectorOutput()
  ;{ Contour
  For a = 1 To 24
    X=200 + decalx
    Y=50 + decaly
    MovePathCursor(X,Y)
    AddPathLine(350,30,#PB_Path_Relative)
    AddPathLine(-40,100,#PB_Path_Relative)
    AddPathLine(-25,0,#PB_Path_Relative)
    AddPathLine(-30,80,#PB_Path_Relative)
    AddPathLine(110,15,#PB_Path_Relative)
    AddPathLine(-40,110,#PB_Path_Relative)
    AddPathLine(-100,-10,#PB_Path_Relative)
    AddPathLine(-30,80,#PB_Path_Relative)
    AddPathLine(210,30,#PB_Path_Relative)
    AddPathLine(-40,80,#PB_Path_Relative)
    AddPathLine(-350,-40,#PB_Path_Relative)
    AddPathLine(70,-180,#PB_Path_Relative)
    AddPathLine(-100,-15,#PB_Path_Relative)
    AddPathLine(40,-110,#PB_Path_Relative)
    AddPathLine(100,15,#PB_Path_Relative)
    AddPathLine(30,-80,#PB_Path_Relative)
    AddPathLine(-180,-20,#PB_Path_Relative)
    AddPathLine(25,-85,#PB_Path_Relative)
    VectorSourceLinearGradient(200,50,800,600)
    VectorSourceGradientColor($FFFFFFFF,0.0)
    VectorSourceGradientColor($FF0000FF,0.2)
    VectorSourceGradientColor($FF2222B2,0.5)
    FillPath(#PB_Path_Preserve)
    VectorSourceColor($FF000080)
    StrokePath(2)
    ;}
    decalx = decalx - 1
    decaly = decaly - 1
  Next a
  StopVectorDrawing()
EndProcedure

[microdevweb]

Ouiiiiiii joli Nico

[Kwai chang caine]

Petite modif pour donner un effet 3D

Aaaah!!! tu vois DENIS qu'il est plusieurs
Merci NICO

[falsam]

Jolis essais MicrodevWeb & Nico

[Micheao]

GG microdevweb