; 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
]
Licenza
Eu, como posuidor dos dereitos de autor desta obra, pola presente publícoa baixo a seguinte licenza:
A persoa que asociou unha obra con este documento, deu a obra ao dominio público renunciando a todos os seus dereitos sobre ela en todo o mundo baixo as leis de dereitos de autor e relacionadas ou dereitos legais derivados que tiña sobre a obra, na medida permitida pola lei. Pode copiar, modificar, distribuír e empregar esta obra, mesmo para fins comerciais, sen necesidade dun permiso por parte do autor.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse
Pés de foto
Engada unha explicación dunha liña do representa este ficheiro
Este ficheiro contén información adicional, probablemente engadida pola cámara dixital ou polo escáner usado para crear ou dixitalizar a imaxe. Se o ficheiro orixinal foi modificado, poida que algúns detalles non se reflictan no ficheiro modificado.