Seite 2 von 4
Re: Kleines Freizeitprojekt gesucht
Verfasst: 24.09.2009 15:59
von rolaf
Re: Kleines Freizeitprojekt gesucht
Verfasst: 24.09.2009 16:15
von Kiffi
nu sei mal nicht so destruktiv.
Es wird immer was geben, das irgendwer schon irgendwann mal geschrieben hat.
Hast Du nicht mal irgendwann so'n Lotto-Dingens geschrieben?
Gibt's mit Sicherheit auch wie Sand am Meer.
Das von Dir gepostete Teil ist...
* 2 Jahre alt
* fast 800 KB groß
* nicht in PB geschrieben
Außerdem geht's nur in die eine Richtung rtf2html
Grüße ... Kiffi
Re: Kleines Freizeitprojekt gesucht
Verfasst: 24.09.2009 16:23
von DarkDragon
Schade, ich könnte einen DVI to HTML konverter gut gebrauchen, der auch Text farbig macht, aber nicht als Bild einbindet.
Re: Kleines Freizeitprojekt gesucht
Verfasst: 24.09.2009 17:05
von rolaf
Kiffi hat geschrieben:
nu sei mal nicht so destruktiv.
Ich bin aber nicht Annabelle:
http://www.youtube.com/watch?v=dBDL72ZVoKg
...du bist so wunderbar negativ und so erfrischend destruktiv.
Ok Ok, macht mal ruhig ne frische Version.
Heute gibts die Lottodingens wie Sand am Meer, stümmt. Allerdingens 1998 (meine Erstversion in DOS) gabs zwar auch Einige, aber nicht exakt wie ich es wollte.
Re: Kleines Freizeitprojekt gesucht
Verfasst: 24.09.2009 18:33
von dllfreak2001
Ein Desktopvideoaufnahme Tool oder Diablo4 oder ...
Re: Kleines Freizeitprojekt gesucht
Verfasst: 24.09.2009 19:21
von STARGÅTE
milan1612 hat geschrieben:@Stargate
Finde ich persönlich ein bisschen zu kompliziert und dieses parallele Coden wäre
auch nicht wirklich nach meinem Geschmack, viel zu chaotisch
Kompliziert: Ja !, aber chaotisch: Nein!
Ich rede ja nicht davon das 2 Leute, sich gegenseitig in einer einzigen Zeile rumfunschen, das endet im Chaos. Ich meine es ehr so, das beide im Quellcode schreiben aber an verschiedenen Stellen, der eine macht gerade n Procedure, der andere n Schleife irgen wo.
Sodass dann aber beide trotzdem beides haben, ohne das sie sich gegenseitig includen müssten, oder sich ihre geänderten Code zuschicken müssen.
Aber wiegesagt, war nur n Idee... (die ich zB weiter im Hinterkopf behalte)
Re: Kleines Freizeitprojekt gesucht
Verfasst: 24.09.2009 19:54
von TomS
Re: Kleines Freizeitprojekt gesucht
Verfasst: 24.09.2009 19:55
von STARGÅTE
jo geben tut's sowas schon, auch von Google und Co aber halt nicht direkt in PB
Re: Kleines Freizeitprojekt gesucht
Verfasst: 24.09.2009 21:23
von Kurzer
milan1612 hat geschrieben:
[*]kleine Netzwerke (damit wollt ich mich schon immer mal beschäftigen)
[*]mathematische Berechnungen (ich weiß, das ist jetzt etwas weit gefasst)
Es soll ja ein Funprojekt sein?
Wie wäre es mit einem vernetzten Appelmann-Programm, daß die Rechenleistung von erreichbaren PC mit nutzt. Also so Clustergedöhns... wo ein Hauptprogramm die Berechnungen aufteilt und an die 'angeschlossenen' Rechenclients verteilt.
Da haste prima Netzwerkzeug drin und auch ne handvoll Mathematik.
Ich sehe es schon förmlich vor mir, einen Echtzeitrundflug über und in das Apfelmännchen...
Ich könnte mir vorstellen, daß das dann in größeren Firmennetzwerken der 'Renner' sein wird.
Re: Kleines Freizeitprojekt gesucht
Verfasst: 24.09.2009 22:48
von STARGÅTE
Du meinst das vieh ?
Code: Alles auswählen
Structure FractalGradient
x.l
y.l
Size.l
MaxIteration.l
EndStructure
Procedure.f Iteration(cx.d, cy.d)
Shared FractalGradient.FractalGradient
Protected.d x, y, xt, yt
Protected Iter.l
While x*x + y*y <= 6 And Iter < FractalGradient\MaxIteration
xt = x*x - y*y + cx
yt = 2*x*y + cy
x = xt : y = yt
Iter + 1
Wend
ProcedureReturn Iter/FractalGradient\MaxIteration
EndProcedure
Procedure.f FractalGradientCallback(x, y)
Shared FractalGradient.FractalGradient
With FractalGradient
ProcedureReturn Iteration((x-\x)/\Size, (y-\y)/\Size)
EndWith
EndProcedure
Procedure FractalGradient(x, y, Size, MaxIteration)
Shared FractalGradient.FractalGradient
With FractalGradient
\x = x : \y = y : \Size = Size
\MaxIteration = MaxIteration
EndWith
CustomGradient(@FractalGradientCallback())
EndProcedure
Enumeration
#Image
#Window
#Gadget
EndEnumeration
CreateImage(#Image, 384, 256)
StartDrawing(ImageOutput(0))
DrawingMode(#PB_2DDrawing_Gradient)
FractalGradient(288, 128, 128, 64)
GradientColor(0.00, $000000)
GradientColor(0.10, $500000)
GradientColor(0.20, $A05000)
GradientColor(1.00, $F0A050)
Box(0,0,384,256)
StopDrawing()
OpenWindow(#Window, 0, 0, ImageWidth(#Image), ImageHeight(#Image), "Fractal", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
ImageGadget(#Gadget,0,0,ImageWidth(#Image), ImageHeight(#Image), ImageID(#Image))
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow
Jo vorallem mit der neuen GradientFunction (speziell: CustomGradient) kann man wie in dem Beispiel sehr schnell diese Farbverläufe erzeugen.
Im Netzwerk könnten dabei dann für jeden PixelZeile andere Computer angesteuert werden, die dann den 0.0-1.0-Wert zurück geben welcher dann die Figur erzeugt !
PS: Ich glaube ich werden ein paar freie Minuten dafür opfern
