---

folgendes Problemchen:
man lässt sich den RGB-Farb-Code einer Fläche ausgeben mit folgendem Befehl:

(display (format nil "Flächenfarbe RGB: ~A" (sd-inq-face-color SelFace)))

dann erhält man als Ausgabe einen RGB-Code aus 3 Zahlen mit Komma getrennt jeweils <= 1.

z.B. 1,0,1 was als richtiger RGB-Code 255,0,255 entspricht. Theoretisch müssten die Rückgabewerte ja jeweils nur mit 255 multipliziert werden.

Wie stelle ich das an, das der Rückgabewert gleich die richtige gewünschte Ausgabe liefert?
Gibt es in LISP da einen Zusatz für den format nil ?

Bedanke mich gleich mal im Vorraus für eure Hilfe.

Gruß Wolfgang 

PS: Beim Farbe einstellen gebe ich ja auch 255, 0, 255 ein und nicht 1,0,1 !

------------------
alles ist möglich, nichts funktioniert und trotzdem muß es bis morgen geschafft sein. 

Werden wir es schaffen? Ja wir schaffen das !!! :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Seele:
(display (format nil "Flächenfarbe RGB: ~A" (sd-inq-face-color SelFace)))

Wie stelle ich das an, das der Rückgabewert gleich die richtige gewünschte Ausgabe liefert?
Gibt es in LISP da einen Zusatz für den format nil ?

---

Brocken hin werf:

Code:

---

(setq rgb-color (sd-color-to-rgb (sd-inq-face-color SelFace)))  ;; rbg triple
(setq rbg-color255 (sd-vec-scale rgb-color 255))                ;; normiert auf 0..255

---

Wenn es jetzt zu Rundungsfehlern kommt *) musst du format nil pimpen

Code:

---

(format nil "~2,0d,~2,0d,~2,0d" (gpnt3d_x rbg-color255) (gpnt3d_y rbg-color255) (gpnt3d_z rbg-color255))

---

Wenn Du die Hexadezimale Schreibweise, wie z.b. in HTML üblich, haben willst, wäre folgendes einfacher:

Code:

---

(display (format nil "Flächenfarbe : #~6,0x" (sd-inq-face-color SelFace)))

---

Eine andere Alternative wäre eine Minifunktion, der Du die Color gibst, und die die 3 Anteile ohne Rundungsfehler via modulo und remainder ermittelt. Diese könnte dann sd-color-to-rgb-255 lauten und entsprechend robust sein.

Gruss Wolfgang  zurück 

*) - nein, der Blick auf die Personenwaage ist dafür nicht nötig

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wie immer besten Dank für die Hilfreiche Auskunft, ...

Hat funktioniert, ...

Gruß Wolfgang    

------------------
alles ist möglich, nichts funktioniert und trotzdem muß es bis morgen geschafft sein. 

Werden wir es schaffen? Ja wir schaffen das !!! :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo, falls jemand auch den korrekten RGB-Code wissen will, hier meine Lösung:

(DISPLAY (format nil "Flächenfarbe-RGB~30T: ~a,~a,~a"
(round (gpnt3d_x (sd-vec-scale (sd-inq-face-color SelFace) 255)))
(round (gpnt3d_y (sd-vec-scale (sd-inq-face-color SelFace) 255)))
(round (gpnt3d_z (sd-vec-scale (sd-inq-face-color SelFace) 255)))
))

Gruß Wolfgang 

------------------
alles ist möglich, nichts funktioniert und trotzdem muß es bis morgen geschafft sein. 

Werden wir es schaffen? Ja wir schaffen das !!! :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Seele:
(round (gpnt3d_x (sd-vec-scale (sd-inq-face-color SelFace) 255)))

---

effektiver:

Code:

---

(round (* (gpnt3d_y (sd-inq-face-color SelFace) 255)))

---

Es sei denn du spendierst ein (let )... und skalierst den 3D Vector nur einmal.

------------------
● Firefox ESR ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ● BuFDi ●

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP