PureBoard

Verfasst: **23.05.2008 23:49**

Ich such nen Programm um solche Logos zu erstellen:
http://www.purebasic.fr/english/viewtopic.php?t=32366

Geht mir besonders um den Text. Sehe sowas sehr oft.

Verfasst: **23.05.2008 23:56**

Da Photoshop doch etwas teuer ist, wie wäre es mit RealDraw

/edit
Beispiel

Verfasst: **24.05.2008 00:12**

X0r hat geschrieben:Geht mir besonders um den Text. Sehe sowas sehr oft.

Ich auch... und genau deshalb würd ich's nicht machen

Geht mir ehrlich gesagt ziemlich auf den Sack, klar, es ist zur Zeit supermodern usw., aber in ein paar Jahren will das wahrscheinlich kein Mensch mehr sehen

Nur mal so als Denkanstoß

ein fertiges Programm dafür kenne ich auch keins, außer halt Photoshop. Ich denke aber, daß es sicherlich Programme mit fertigen Presets gibt... Soweit ich weiß, sind die neuen WordArts (in Office 2007) ebenfalls dazu in der Lage, diese typischen Glanzeffekte zu erzeugen.

Verfasst: **24.05.2008 02:15**

bei RealDraw ist da ein "buy now"-button... also kostet das doch was?

Verfasst: **24.05.2008 02:19**

Ja, nämlich $55.

Verfasst: **24.05.2008 02:54**

X0r hat geschrieben:Ja, nämlich $55.

Ist Shareware, kann man also nutzen,
bzw. der Preis ist dafür geschenkt. Deshalb garnicht erwähnenswert.
XARA kostet viel mehr und leistet weniger, ist aber etwas spezieller und
auch eingeschränkter. Hab Dir schon was halbwegs bezahlbares mit guter
Leistung rausgesucht.

Verfasst: **24.05.2008 03:09**

der gag ist ja, dass man den ganzen kram so schon seit 10 jahren machen kann, mit POV...
man muss sich halt nur nen wolf scripten, anstatt einfach was zusammenzuklicken...

Verfasst: **24.05.2008 03:26**

wozu hat man denn PB ...

Hier n einfaches Beispiel:

INFO: das Generieren dauert etwas, nicht wundern

Code: Alles auswählen

InitSprite()

OpenWindow(0, 0, 0, 600, 100, "SCREEN", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
OpenWindowedScreen(WindowID(0), 0, 0, 600, 100, 0, 0, 0)


LoadFont(0,"Arial", 50, #PB_Font_Bold|#PB_Font_HighQuality) 

CreateSprite(1,600,100)

StartDrawing(SpriteOutput(1))
 DrawingMode(1)
 Box(0,0,600,100, $804020)
 DrawingFont(FontID(0))
 DrawText(50, 10, "Pure Basic 4.20", $804021)
StopDrawing()
TransparentSpriteColor(1, $804021)

CreateSprite(2,600,100)
StartDrawing(SpriteOutput(2))
 DrawingMode(1)
 For n = 0 To 30
  z.f = Sin(n/60*#PI)
  Circle(300, 3515, 3500-n, RGB(160-z*80, 160-z*80, 160-z*80)) 
 Next
 Circle(300, 3515, 3500-30, RGB(70, 70,70)) 
 Circle(300, 3515, 3500-31, RGB(60, 60,60)) 
 For n = 31 To 60
  z.f = Sin(n/60*#PI)
  Circle(300, 3515, 3500-n, RGB(z*50, z*50, z*50)) 
 Next
StopDrawing()

CreateSprite(3,600,100)
UseBuffer(3)
 DisplaySprite(2,0,0)
 DisplayTransparentSprite(1,0,0)
UseBuffer(-1)


Procedure IN_Glaetten()
 For x = 1 To 598
  For y = 1 To 98
   F0 = Point(x  ,y  )
   F1 = Point(x-1,y  )
   F2 = Point(x  ,y-1)
   F3 = Point(x+1,y  )
   F4 = Point(x  ,y+1)
   R_RGB = (Red(F0)+Red(F1)+Red(F2)+Red(F3)+Red(F4))/5
   G_RGB = (Green(F0)+Green(F1)+Green(F2)+Green(F3)+Green(F4))/5
   B_RGB = (Blue(F0)+Blue(F1)+Blue(F2)+Blue(F3)+Blue(F4))/5
   Plot(x, y, RGB(R_RGB, G_RGB, B_RGB))
  Next
 Next 
EndProcedure
StartDrawing(SpriteOutput(3))
 IN_Glaetten()
StopDrawing()


Repeat

 If WindowEvent() = #PB_Event_CloseWindow : End : EndIf

 ClearScreen($804020)
 
  DisplayTransparentSprite(3,0,0) 
 
 FlipBuffers()

ForEver

ein bisschen verfeinern und fertig ^^

Verfasst: **24.05.2008 03:35**

> ein bisschen verfeinern und fertig ^^
ein bißchen pixelig aber

für 0€ brauchbar

Verfasst: **24.05.2008 03:42**

dann hau mal das vor das Repeat

Code: Alles auswählen


Procedure IN_Glaetten()
 For x = 1 To 598
  For y = 1 To 98
   F0 = Point(x  ,y  )
   F1 = Point(x-1,y  )
   F2 = Point(x  ,y-1)
   F3 = Point(x+1,y  )
   F4 = Point(x  ,y+1)
   R_RGB = (Red(F0)+Red(F1)+Red(F2)+Red(F3)+Red(F4))/5
   G_RGB = (Green(F0)+Green(F1)+Green(F2)+Green(F3)+Green(F4))/5
   B_RGB = (Blue(F0)+Blue(F1)+Blue(F2)+Blue(F3)+Blue(F4))/5
   Plot(x, y, RGB(R_RGB, G_RGB, B_RGB))
  Next
 Next 
EndProcedure
StartDrawing(SpriteOutput(3))
 IN_Glaetten()
StopDrawing()

dauert n bisschen das Generieren aber ist dann Glatter

EDIT oben!

PureBoard

"Logo-Creator" gesucht

"Logo-Creator" gesucht

Re: "Logo-Creator" gesucht