PureBoard

Verfasst: **07.07.2006 08:19**

Hallo
Ich suche auch noch 'freie Grafiken', gerne animiert:
Oder gibt es jemanden der gerne zeichnet?

- Biene
- Spinne (Spring-Spinne, jede andere geht aber auch)
- Bienenhaus
- Blumen
- Hintergrund
- ...

Der Link:
http://www.purebasic.fr/german/viewtopic.php?t=9141

Verfasst: **07.07.2006 12:24**

selber machen mit PB (das hässliche Teil summt sogar)

Code: Alles auswählen

;PB4
Enumeration
#Biene
#window
#Imagegadget
EndEnumeration
CreateImage(#Biene,500,500)
StartDrawing(ImageOutput(#Biene))
Box(0,0,500,500,RGB(255,255,128))
DrawingMode(#PB_2DDrawing_Outlined   )
FrontColor(RGB(64,64,0))
Circle(150,150,25)
Ellipse(197,140,25,20)
Ellipse(272,140,50,30)
Line(135,135,-20,-20)
Line(115,115,-10,20)
Line(185,150,-10,25)
Line(175,175,10,25)
Line(186,150,-10,25)
Line(176,175,10,25)
Line(195,150,-5,25)
Line(190,175,10,25)
Line(196,150,-5,25)
Line(191,175,10,25)
Line(205,150,-5,25)
Line(200,175,10,25)
Line(206,150,-5,25)
Line(201,175,10,25)
Line(175,130,0,18)
Line(195,120,0,40)
Line(215,127,0,25)
Line(235,120,0,40)
Line(255,112,0,55)
Line(275,110,0,60)
Line(295,113,0,54)
FillArea(180,134,RGB(64,64,0),RGB(100,100,0))
FillArea(217,135,RGB(64,64,0),RGB(100,100,0))
FillArea(237,125,RGB(64,64,0),RGB(100,100,0))
FillArea(278,115,RGB(64,64,0),RGB(100,100,0))
Line(180,122,100,-17)
DrawingMode(#PB_2DDrawing_Default)
Circle(145,145,10,RGB(128,64,64))
FillArea(10,10,RGB(64,64,0),RGB(255,255,255))
StopDrawing()
OpenWindow(#window,0,0,500,500,"Biene")
CreateGadgetList(WindowID(#window))
ImageGadget(#Imagegadget,0,0,500,500,ImageID(#Biene))

Procedure summ()
  Repeat
    Beep_(37,100)
  ForEver
EndProcedure
CreateThread(@summ(),0)

Repeat
Until WaitWindowEvent()=#PB_Event_CloseWindow

Verfasst: **07.07.2006 13:01**

bobobo hat geschrieben:selber machen mit PB (das hässliche Teil summt sogar)

Süss!

Aber ich brauche eine 'Draufsicht'

Verfasst: **07.07.2006 13:51**

Mit ein paar SIN und COS bekommt man in richtiger verwendung auch richtig gute Blumen (von oben) hin oder du nimm das Programm von DeltaG http://www.purearea.net/pb/showcase/sho ... 22569fa2bf

Verfasst: **07.07.2006 14:48**

ok brummende Biene in Draufsicht

Code: Alles auswählen

;PB4
Enumeration
#Biene
#window
#Imagegadget
EndEnumeration
CreateImage(#Biene,500,500)
StartDrawing(ImageOutput(#Biene))
Box(0,0,500,500,RGB(255,255,128))
DrawingMode(#PB_2DDrawing_Outlined)
Ellipse( 130,145,10,20,RGB(64,64,0))
Ellipse( 170,145,10,20,RGB(64,64,0))
DrawingMode(#PB_2DDrawing_Default)
Ellipse( 130,145,9,19,RGB(128,64,64))
Ellipse( 170,145,9,19,RGB(128,64,64))
Circle(150,150,25,RGB(255,255,128))
DrawingMode(#PB_2DDrawing_Outlined)
Circle(150,150,25,RGB(64,64,0))
DrawingMode(#PB_2DDrawing_Outlined)
FrontColor(RGB(64,64,0))
Circle(150,150,25)
Ellipse(150,200,20,25)
Ellipse(150,280,30,55)
Line(135,135,-20,-20)
Line(115,115,-10,20)
Line(165,135,20,-20)
Line(185,115,10,20)
Line(136,180,-15,-15)
Line(121,165,-10,-25)
Line(163,180,15,-15)
Line(178,165,10,-25)
Line(132,190,-15,-15)
Line(118,175,-10,-20)
Line(167,190,15,-15)
Line(182,175,10,-20)
Line(130,200,-20,-1)
Line(110,199,-10,20)
Line(169,200,20,-1)
Line(189,199,10,20)
Line(131,190,37,0)
Line(132,210,35,0)
Line(137,230,26,0)
Line(126,250,50,0)
Line(120,280,60,0)
Line(125,310,50,0)
FillArea(140,185,RGB(64,64,0),RGB(100,100,0))
FrontColor(RGB(255,0,0))
FillArea(142,215,RGB(64,64,0),RGB(100,100,0))
FillArea(142,245,RGB(64,64,0),RGB(100,100,0))
FillArea(142,285,RGB(64,64,0),RGB(100,100,0))
FillArea(20,20,RGB(64,64,0),RGB(255,255,255))
FrontColor(RGB(0,222,255))
For i=1 To 20 Step 6
  Ellipse(140,240+i,20+i,60)
Next i
For i=1 To 20 Step 6
  Ellipse(160,240+i,20+i,60)
Next i
StopDrawing()
OpenWindow(#window,0,0,500,500,"Biene")
CreateGadgetList(WindowID(#window))
ImageGadget(#Imagegadget,0,0,500,500,ImageID(#Biene))
Procedure summ()
  Repeat
    Beep_(37,100)
  ForEver
EndProcedure
CreateThread(@summ(),0)
Repeat
Until WaitWindowEvent()=#PB_Event_CloseWindow

Verfasst: **07.07.2006 17:07**

@bo³

Diese Biene ist echt krank! Au0ßerdem geht mir des Gebrumme auf den Sack

Verfasst: **07.07.2006 17:13**

@Alves
Verstehst du etwa keinen Spass?

Ich finde Bobobos witz(e) nicht schlecht

Verfasst: **07.07.2006 17:15**

Doch ich verstehe die Witze!

Alerdings ist der doch schon sher krank, da er sich so viel Arbeit für seinen Witz macht!

Verfasst: **07.07.2006 17:23**

is doch ne gesunde sache, sich um witze zu bemühen (auch wenn sie krank sind)

Verfasst: **07.07.2006 17:37**

Ist doch ein gutes Trainig um die Logik, Koordinaten - Platzierung und die künstlerische Ader zu verbessern

Jetzt aber wieder BTT

PureBoard

Suche Grafiken zu : PB -noch kein name-

Suche Grafiken zu : PB -noch kein name-