code:

---

; auf oder ab runden, d2 = d0/d1

		divu.w	d1,d0
		move.w	d0,d2
		swap	d0
		lsr	#1,d1
		cmp.w	d1,d0
		blt.b	.ok

		addq.w	#1,d2

---

[ - Antworten - Zitieren - Direktlink - ]

code:

---

move.l	d1,d2
	lsr.l	#1,d2
	add.l	d2,d0
	divu	d1,d0

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von thomas:
Zum Wordwrap, das ist ja nun kein weltbewegender Algorithmus. Einfach für jedes Wort prüfen, ob es noch in die Zeile paßt. Wenn ja, drucken, wenn nein, nächste Zeile. Einziger Sonderfall ist, wenn das erste Wort der Zeile schon nicht reinpaßt. Dann muß man es abschneiden.

---

der wordwrap hat selbstverständlich nichts mit der rundung zu tun. es sollte blos ein beispiel sein dass ich auch selber denken kann.

bei dem wordwrap wollte ich es so machen, dass wenn nur ein wort in der zeile ist, dieses mit layers geclipt wird. die länge einer zeile lässt sich mit TextLenght oder so ausmessen. von proportionalschrifen wird dabei ausgegangen, dazu ist die funktion gedacht.

die idee mit den nbsp ist gut. geplant ist zumidest, dass man steuercodes einfügen kann um die farbe oder den stil zu ändern. immer ein byte steuercode und ein byte stil oder farbe. bestehende $a sollen als muss-umbruch gehandhabt werden.

ich verstehe noch nicht ganz was softhyphens sind.

die rundungsroutine ist cool! leider verstehe ich sie noch nicht ganz. kannst du sie vielleicht kommentieren?


--
Sam os4.1, e-uae 39bb2 - A4000d 39bb2 - Cyberst.MK3 060 50mhz 128mb - Cybervis. - Ariadne_II - ide DVD und 320gb HD (nur 128gb) - HD Floppy -- A500 3.1 adide 50mb -- Duron 1600mhz Ubuntu Linux / WinXP -- BenQ FP93G TFT - 1048 like CRT - HP psc1110

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

ich verstehe noch nicht ganz was softhyphens sind.

---

Zitat:

---

die rundungsroutine ist cool! leider verstehe ich sie noch nicht ganz. kannst du sie vielleicht kommentieren?

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von AGSzabo:
der wordwrap hat selbstverständlich nichts mit der rundung zu tun. es sollte blos ein beispiel sein dass ich auch selber denken kann.

---

Ja, diese Vorgehensweise kennen wir inzwischen auch von Dir. Es geht aber nicht darum, ob Du selber denken kannst, sondern ob Du es auch in Bezug auf Dein Problem schon mal versucht hast.
Code-Schnippsel ohne Zusammenhang helfen niemanden.

Oder möchtest Du, dass wir Dir in Zukunft auch Antworten mit Code-Schnippseln geben, die nichts mit der Frage zu tun haben?

Zitat:

---

bei dem wordwrap wollte ich es so machen, dass wenn nur ein wort in der zeile ist, dieses mit layers geclipt wird. ...
bestehende $a sollen als muss-umbruch gehandhabt werden.

---

Hehe, das sind sogar mal brauchbare Informationen. Weiter so!

Zitat:

---

ich verstehe noch nicht ganz was softhyphens sind.

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von AGSzabo:
doch das hängt zusammen, ich brauche das fuer das prop-slider gadget. ich arbeite an mehr problemen als man hier sieht, auch wenn es so aussieht als würde ich alles uebers forum machen, das ist nicht wahr.

---

Zitat:

---

btw, dieses propding hat noch einen großen fehler: man muss die maus auf die ganze länge des knopfes runter oder rauf ziehen anstelle dass man ihn an einer fixen griffstelle bewegen kann. um das zu verstehen muss man es evtl ausprobieren.

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

code:

---

SpaceLeft := LineWidth
for each Word in Text
    if Width(Word) > SpaceLeft
        if not firstword insert line break before Word in Text
        SpaceLeft := LineWidth - Width(Word)
    else
        SpaceLeft := SpaceLeft - (Width(Word) + SpaceWidth)

---

code:

---

; calc and store width of space

		lea	.space(pc),a0
		moveq	#1,d0
		move.l	a2,a1
		jsr	_LVOTextLength(a6)
		move.w	d0,d7		; width of 1 space char

		moveq	#-1,d6		; first word

		; get textfield width

		move.w	xuiFd_width(a3),d5

.first_spc_left	; SpaceLeft = LineWidth

		move.w	d5,d4		; space left

		lea	text(pc),a5

		move.l	a5,a4

.words_loop	; find word

		addq	#1,d6		; count word

		moveq	#0,d0		; word lenght in chars

.find_loop	tst.b	(a4)
		beq.b	.word_found

		cmp.b	#" ",(a4)
		beq.b	.word_found

		cmp.b	#$a,(a4)
		beq.b	.word_found

		addq	#1,a4
		addq	#1,d0
		bra.b	.find_loop

.word_found	; for each Word in Text

		; calc width of word

		move.l	a5,a0
		move.l	a2,a1
		jsr	_LVOTextLength(a6)

		; if Width(Word) > SpaceLeft

		cmp.w	d4,d0
		ble.b	.sub_word

		; if not firstword insert line break before Word in Text

		tst.w	d6
		beq.b	.init_line

		move.b	#$a,-1(a5)

.init_line	; SpaceLeft := LineWidth - Width(Word)

		move.w	d5,d4
		sub.w	d0,d4	

		bra.b	.next_word

.sub_word	; SpaceLeft = SpaceLeft - (Width(Word) + SpaceWidth)

		sub.w	d0,d4
		sub.w	d7,d4

.next_word	tst.b	(a4)		; end of text?
		beq.b	.rts
		addq	#1,a4		; if not, step to beginning of next word
		move.l	a4,a5
		bra.b	.words_loop

.rts		rts

.space		dc.b	" "
		even

.text		dc.b	"Use the first 4 colors (or pens) only and map "
		dc.b	"them into the higher.",$a,$a
		dc.b	"For example: buttonpen and tabspen are replaced by backpen.",$a,$a
		dc.b	"This is usefull if you like retro-style and don't "
		dc.b	"want to config the whole lot of pens separately.",$a,$a
		dc.b	"Use this also on low-color screens.",0

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von AGSzabo:
eine pseudocode routine zum umbrechen des texts:

code:

---

SpaceLeft := LineWidth
for each Word in Text
    if Width(Word) > SpaceLeft
        if not firstword insert line break before Word in Text
        SpaceLeft := LineWidth - Width(Word)
    else
        SpaceLeft := SpaceLeft - (Width(Word) + SpaceWidth)

---

---

[ - Antworten - Zitieren - Direktlink - ]

code:

---

SpaceLeft := LineWidth
for each Word in Text
    if Width(Word) > SpaceLeft
        if not firstword insert line break before Word in Text
a       SpaceLeft := LineWidth - Width(Word)
        break
    else
        if char = $a goto a
        SpaceLeft := SpaceLeft - (Width(Word) + SpaceWidth)

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von AGSzabo:
@Holger:
den code hab ich auf wikipedia gefunden:
http://en.wikipedia.org/wiki/Word_wrap#Minimum_length

ein wort ist eine beliebige ascii-zeichenkette bis zum nächsten leerzeichen " ", zeilenumbruch $a oder textende 0.

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von AGSzabo:
Da war aber schon ein fehler drin: das erste wort des textes wenn es nicht in die zeile passte bekam auch ein $a vorausgesetzt (das würde aber im falle des falles in fremden speicher schreiben).

---

Zitat:

---

ich verstehe blos noch nicht was du mit "nicht wie einen zeilenanfang" meinst und wo und wieso ich da nochmal die spacebreite dazuaddieren soll.

so ist es jetzt:

code:

---

SpaceLeft := LineWidth
for each Word in Text
    if Width(Word) > SpaceLeft
        if not firstword insert line break before Word in Text
a       SpaceLeft := LineWidth - Width(Word)
        break
    else
        if char = $a goto a
        SpaceLeft := SpaceLeft - (Width(Word) + SpaceWidth)

---

---

Du hast zwei verschiedene Anweisungen, die den verfügbaren Platz reduzieren, die rote gilt im Normalfall für das erste Wort einer Zeile (wird direkt nach dem Zeilenumbruch angewandt) und die grüne für jedes weitere Wort. Nur die grüne zieht den Platz für ein Leerzeichen ab, was auch richtig ist:
Wort1_Wort2
Wort1_Wort2_Wort3
Wort1_Wort2..._Wortn

Der Algorithmus schlägt allerdings für das erste Wort des gesamten Textes fehl. Geh in Gedanken (oder im Debugger) einfach den Code durch, wie er beim ersten Durchlauf ausgeführt wird. Wenn das Wort in die Zeile passt, wird die grüne Anweisung ausgeführt, es müsst aber immer die rote sein, da das erste Wort des gesamten Textes auch immer am Anfang einer Zeile steht.

Hoffe, das war jetzt verständlicher.
--
Good coders do not comment. What was hard to write should be hard to read too.

[ - Antworten - Zitieren - Direktlink - ]

code:

---

SpaceLeft := LineWidth
for each Word in Text
    if Width(Word) > SpaceLeft
        if not firstword insert line break before Word in Text
a       SpaceLeft := LineWidth - Width(Word)
        break
    else
        if char = $a goto a
        if first word goto a
        SpaceLeft := SpaceLeft - (Width(Word) + SpaceWidth)

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von AGSzabo:
> insert line break before Word in Text
für mich fühlt sich das so an als wolle er den ausgangstext verändern.

---

Zitat:

---

ah ja, ich sehe es. aber es ist für mich fast unglaublich dass in wikipedia so ein schmarrn steht ...

---

Zitat:

---

code:

---

...

---

---

code:

---

while( ( word:=next() ) )
    SpaceLeft := LineWidth - Width(word)
    while( ( word:=next() ) AND char<>$a AND Width(word)+SpaceWidth<SpaceLeft)
      SpaceLeft := SpaceLeft - (Width(word)+SpaceWidth)
    end while
    insert line break
end while

---

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von AGSzabo:
>Vergiss den "harten" Umbruch ($D,$A) nicht =)

was ist das, kommt bei mir nicht vor.

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von AGSzabo:
ist es sinnvoll jedes zeichen einzeln auszugeben (overhead?) oder sollte ich immer so viele zeichen wie möglich auf einmal schreiben (mehr berechnung)?

---

Zitat:

---

außerdem brächten steuerzeichen die umbruchberechnung durcheinander!

---

Zitat:

---

wie komme ich da drumrum oder zu einer lösung?

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

code:

---

while( ( word:=next() ) )
    SpaceLeft := LineWidth - Width(word)
    while( ( word:=next() ) AND char<>$a AND Width(word)+SpaceWidth<SpaceLeft)
      SpaceLeft := SpaceLeft - (Width(word)+SpaceWidth)
    end while
    insert line break
end while

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

Zitat:

---

Original von AGSzabo:
diese routine fügt vor dem letzten wort immer einen umbruch ein. das "insert line break" wird beim letzten durchlauf immer ausgeführt, also für das letzte wort.

---

code:

---

if no next word return    =>empty text
while( ( word:=next() ) )
    SpaceLeft := LineWidth - Width(word)
    while( ( word:=next() ) AND char<>$a AND Width(word)+SpaceWidth<SpaceLeft)
      SpaceLeft := SpaceLeft - (Width(word)+SpaceWidth)
    end while
    insert line break
end while
remove last line break

---

Zitat:

---

Original von AGSzabo:
> Sind Steuerzeichen z.B. innerhalb eines Wortes erlaubt oder nicht.

ja, sind sie.

---

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]

[ - Antworten - Zitieren - Direktlink - ]