"Logo-Creator" gesucht

[X0r]

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.

[ts-soft]

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

/edit
Beispiel

[ZeHa]

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.

[Kaeru Gaman]

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

[X0r]

Ja, nämlich $55.

[ts-soft]

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.

[Kaeru Gaman]

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...

[STARGÅTE]

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 ^^

[ts-soft]

> ein bisschen verfeinern und fertig ^^
ein bißchen pixelig aber
für 0€ brauchbar

[STARGÅTE]

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!