; 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 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 “RGB_color_wheel_%d.svg” % size [ ; from LibreOffice 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
 ]