; 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
]
Licensiering
Jag, upphovsrättsinnehavaren av detta verk, publicerar härmed det under följande licens:
Personen som kopplade ett verk till detta dokument har tillägnat arbetet till Allmänheten genom att, i den utsträckning som tillåts i lag, avstå från alla sina rättigheter till verket i hela världen som han eller hon skulle haft för verket enligt upphovsrätten och alla relaterade eller närliggande juridiska rättigheter. Du kan kopiera, modifiera, sprida och visa upp verket, även för kommersiella ändamål, utan att fråga efter godkännande från upphovsmannen.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse
Den här filen innehåller extrainformation som troligen lades till av en digitalkamera eller skanner när filen skapades. Om filen har modifierats kan det hända att vissa detaljer inte överensstämmer med den modifierade filen.