| |
| |
|
| - page 1 - |
|
 |
Weil du toujours pas verständlich erklärt la hâte, quoi nprocs sommes.
allô Nico,
merci pour den Hinweis et den Fil ici - malheureusement peux je avec cela mais rien anfangen là je pas savons peux, quoi Du pas verstehst.
Vlt. peux Du mir sous attention qui Documentation [...]  dire, quoi Dir unklar ist.
Inline-Assembler:
|
|
| |
| |
| |
|
| |
| |
| - page 4 - |
|
|
Nico
Madysa | |
| |
| |
| |
|
|
Nico
Madysa | Es kläppt simple, simple pas. 
avec XPSE kam Mist raus. ensuite änderte je NProc dans proc, Machte aus qui API SetPixel qui profane Procédure et cela Ganze wurde pas seulement 100-la fois langsamer, mais avant allen Dingen korrekt.
 |
|
| |
| |
| |
|
|
| | oui c'est ca, grad plan Bugfix hochlade - s'il te plaît probiere la fois cette neuen - je Poste juste. |
|
| |
| |
| |
|
|
| So, s'il te plaît la fois neue Version magasin: [...] 
Bedenke mais aussi, c'est une Alphaversion!
quoi je gesehen habe à Deinem Mandelbrot, dass Du überall de einer automatischen Konvertierung qui Variablentypen Float et Long ausgehst - mais entier au contraire! tu peux pas x!=&getTickCount, musst x!=float(&getTickCount), peux aussi pas test(1,2,3) chez parameters a!,b!,c! mais musst test(1.0,2.0,3.0) écrivons!
une autom.Konvertierung entre Long et Float et zurück J'ai eu dessus mais déjà prévu, je denke wäre hilfreich!
Jedenfalls, si quelque chose pas funktioniert, ensuite wäre je reconnaissant si Du cela postest, avec cela je faute im XPSE ausschliessen peux. |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
Nico
Madysa | Wird erledigt! 
Que le Typumwandlung wusste je pas. je werde encore la fois alles durchsehen et dir Rapport erstatten. |
|
| |
| |
| |
|
|
Nico
Madysa | Habe maintenant qui Typenumwandlung si bien comment possible incorporé.
maintenant sieht cela Bild déjà pour Apfelmännchen aus -- mais so richtig äquivalent sommes qui Bilder toujours pas. :/
KompilierenMarqueSéparation {$cleq}
{Farbe
nproc Farbe
parameters ca!,cb!
var za! = 0.0 : var zb! = 0.0
var n& = 0 : var tmp! = 0.0
repeat
n& = n& + 1
tmp! = za!
za! = Sqr(za!) - Sqr(zb!) + ca!
zb! = (2.0 * tmp! * zb!) + cb!
tmp! = Sqrt(Sqr(za!) + Sqr(zb!))
until (n& >= 255) or (tmp! > 2.0)
var f& = n& int(255.0 * (1.0 - float(n&) / 255.0))
return RGB(f&,f&,f&)
endproc
{Male
nproc Male
parameters x1&,y1& , genau&
declare xi&,yi&
x1& = xi& + 2 * genau&
y1& = yi& + genau&
whileloop (0 - genau&),genau&
yi& = &loop
whileloop (0 - 2) * genau&,genau&
xi& = &loop
SetPixel(%hDC,x1& + xi&,y1& + yi&,Farbe(float(xi&) / float(genau&),float(yi&) / float(genau&)))
SetPixel x1& + xi&,y1& + yi&,Farbe(float(xi&) / float(genau&),float(yi&) / float(genau&))
EndWhile
EndWhile
endproc
cls
Male(200,200 , 100)
waitinput
./../funzione-riferimenti/XProfan/end/'>end
PS: si je fehlerhafterweise schreibe:
KompilierenMarqueSéparation
giebt XPSE witzigerweise aus, je habehe versucht, String et Float z verknüpfen. |
 |
| |
| |
| |
|
|
| | je vois là sur jedenfall encore un Bug chez Freizeichen avant Minuszeichen, suis chez! |
|
| |
| |
| |
|
|
Nico
Madysa | Herrje, toujours cet Geschmeiß!
 |
|
| |
| |
| |
|
|
| avec aktueller Version [...] s'il te plaît nochmal testen.
Incidemment: la couleur(float(xi&) / float(genau&),float(yi&) / float(genau&)) aus einer proc heraus garnicht nötig, qui paramètre de proc à nproc volonté automatisch toujours dans den richtigen Typ gebracht comment avec Paramètres dans qui nProc deklariert. la couleur(xi&/genau&,yi&/genau&) reicht.
Bedenke mais, Float- et Stringparameter sommes um un Vielfaches langsamer comme Long, schnellstes Mandelbrot seulement avec Long. |
|
| |
| |
| |
|
|
Nico
Madysa | Kompiliere Je l' Kode sans Changement erneut, so venez exakt même chose heraus.
Folge je hingegen deinem Hinweise (float à entsprechenden se mettre entfernen), so venez seulement Blödsinn raus.  |
|
| |
| |
| |
|
|
| | Probiere la fois s'il te plaît cet neue Version: [...] . Habe encore une faute chez Minus trouvé, peux Du den erreur de calcul trouver? |
|
| |
| |
| |
|
(931)
Deutsch
English
Français
Español
Italia
