; created in LibreOffice 4 by the following LibreLogo program:
TO subpixel r g b size
FILLCOLOR [r, g, b]
RECTANGLE [size*3, size]
END
TO pixel r g b where width
z = HEADING
v = PENSIZE
IF where = -1 [ ; central RGB pixel for white
distance = 0
PENCOLOR “BLACK”
] [
distance = 150 + 1.5 * width
PENCOLOR “WHITE”
]
PENUP HEADING where-width
FORWARD distance HEADING 3h
PENSIZE width/5
PENDOWN SQUARE 1.5 * width
PENUP BACK width/2
subpixel r 0 0 width/2 FORWARD width/2
subpixel 0 g 0 width/2 FORWARD width/2
subpixel 0 0 b width/2 BACK width/2
HEADING where-width BACK distance
HEADING z
PENSIZE v
END
TO pie r g b where width
FILLCOLOR [r, g, b]
CIRCLE [300, 300, where, where + width]
pixel r g b where width
FILLCOLOR [r ^ 0xff, g ^ 0xff, b ^ 0xff]
CIRCLE [300, 300, 180 + where, 180 + where + width]
r = r^0xff
g = g^0xff
b = b^0xff
pixel r g b 180+where width
END
PENDOWN HOME CLEARSCREEN HIDETURTLE
i = INPUT “Level or Enter (level = 2)”
IF i = “” [ i = 2 ] [ i = INT i ]
PENCOLOR “INVISIBLE”
size = 360/(12*i)
LEFT size * 1.5
; PICTURE “colorwheel_pixel_%d.svg” % size [ ; from LibO 4.1.1
PICTURE [
FILLCOLOR “BLACK” CIRCLE 300 + size * 6
FILLCOLOR “WHITE” CIRCLE 300
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
pixel 255 255 255 -1 size
]
Conditions d’utilisation
Moi, en tant que détenteur des droits d’auteur sur cette œuvre, je la publie sous la licence suivante :
La personne qui a associé une œuvre avec cet acte l’a placée dans le domaine public en renonçant mondialement à tous ses droits sur cette œuvre en vertu des lois relatives au droit d’auteur, ainsi qu’à tous les droits juridiques connexes et voisins qu’elle possédait sur l’œuvre, sans autre limite que celles imposées par la loi. Vous pouvez copier, modifier, distribuer et utiliser cette œuvre, y compris à des fins commerciales, sans qu’il soit nécessaire d’en demander la permission.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse
Légendes
Ajoutez en une ligne la description de ce que représente ce fichier