; Created in LibreOffice 4 with this LibreLogo program.
; Usage: Put this code into an English language document in LibO Writer,
; and click on the Start icon of the View»Toolbars»Logo toolbar.
TO pie r g b where width
FILLCOLOR [r, g, b]
CIRCLE [300, 300, where, where + width]
FILLCOLOR [r ^ 0xff, g ^ 0xff, b ^ 0xff]
CIRCLE [300, 300, 180 + where, 180 + where + width]
END
HOME CLEARSCREEN HIDETURTLE
i = INPUT “Level or Enter (level = 2)”
IF i = “” [ i = 2 ] [ i = INT i ]
PENUP
size = 360/(12*i)
LEFT size * 1.5
; PICTURE “RGB_color_wheel_%d.svg” % (12 * i) [ ; from LibreOffice 4.1.1
PICTURE [
REPEAT 2*i+1 [
u = (REPCOUNT-1) * 255/(2*i)
pie 255 255 - INT u 0 REPCOUNT * size size
]
REPEAT 2*i [
u = REPCOUNT * 255/(2*i)
pie 255 0 INT u 60 + (REPCOUNT + 1) * size size
]
REPEAT 2*i-1 [
u = REPCOUNT * 255/(2*i)
pie 255 - INT u 0 255 120 + (REPCOUNT + 1) * size size
]
FILLCOLOR “WHITE” CIRCLE 100
]
Llicència
Jo, el titular dels drets d'autor d'aquest treball, el public sota la següent llicència:
La persona que ha associat un treball amb aquest document ha dedicat l'obra domini públic, renunciant en tot el món a tots els seus drets de d'autor i a tots els drets legals relacionats que tenia en l'obra, en la mesura permesa per la llei. Podeu copiar, modificar, distribuir i modificar l'obra, fins i tot amb fins comercials, tot sense demanar permís.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse
Llegendes
Afegeix una explicació d'una línia del que representa aquest fitxer
Aquest fitxer conté informació addicional, probablement afegida per la càmera digital o l'escàner utilitzat per a crear-lo o digitalitzar-lo. Si s'ha modificat posteriorment, alguns detalls poden no reflectir les dades reals del fitxer modificat.