Color wheel: Difference between revisions

 

 

 

=={{header|AppleScript}}==

 

choose color default color {0, 0, 0, 0}

 

=={{header|C++}}==

{{libheader|Qt}}

This program draws an HSV color wheel in a window.

#include "colorwheelwidget.h"

#include <QPainter>

painter.drawPie(rect, angle * 16, 16);

}

 

#ifndef COLORWHEELWIDGET_H

#define COLORWHEELWIDGET_H

};

 

 

#include "colorwheelwidget.h"

#include <QApplication>

widget.show();

return app.exec();

 

{{out}}

=={{header|Delphi}}==

{{libheader| Winapi.Windows}}

{{libheader| Vcl.Imaging.pngimage}}

{{Trans|Kotlin}}

program Color_wheel;

 

Free;

end;

{{out}}

Png Image [https://ibb.co/T0w8KyF].

=={{header|Fōrmulæ}}==

 

 

 

 

=={{header|GML}}==

for (var i = 1; i <= 360; i++) {

for (var j = 0; j < 255; j++) {

}

}

 

=={{header|Go}}==

{{libheader|Go Graphics}}

{{trans|Kotlin}}

 

import (

colorWheel(dc)

dc.SavePNG("color_wheel.png")

 

{{out}}

Image is same as Kotlin entry

</pre>

 

=={{header|Java}}==

This program draws a color wheel in a window.

import javax.swing.*;

 

return new Color((int)(r * 255), (int)(g * 255), (int)(b * 255));

}

 

{{out}}

 

=={{header|Julia}}==

 

const win = GtkWindow("Color Wheel", 450, 450) |> (const can = @GtkCanvas())

signal_connect(endit, win, :destroy)

wait(condition)

 

=={{header|Kotlin}}==

We reuse the class in the Bitmap task for this and add a member function to draw the color wheel. To give a more 'wheel-like' image, a constant 'saturation' of 1.0 has been used rather than one which varies in line with distance from the center.

 

import java.awt.Color

}

}

 

{{output}}

Looks like mirror image of Smart BASIC entry

</pre>

 

=={{header|M2000 Interpreter}}==

Module Check {

\\ we use an internal object for Math functions (here for Atan2)

}

Check

{{out}}

see [https://4.bp.blogspot.com/-0swVvNDaTjE/XDlPfuGQkBI/AAAAAAAAHno/wU3eyo1BUIEtPjZMyjGXkbN425zHJlc7wCLcBGAs/s1600/colorwheel.png this image]

 

=={{header|Mathematica}}/{{header|Wolfram Language}}==

Image[Table[

If[x^2 + y^2 <= r^2,

{1, 1, 1}

], {x, -r, r}, {y, -r, r}]

{{out}}

Outputs an image.

As Rust code does, we store the color wheel in a PNG image.

 

 

import imageman

image.buildColorWheel()

 

 

=={{header|Perl}}==

{{trans|Sidef}}

use Math::Complex qw(cplx i pi);

 

}

 

 

=={{header|Phix}}==

{{libheader|Phix/online}}

You can run this online [http://phix.x10.mx/p2js/Colour_wheel.htm here].

<span style="color: #000080;font-style:italic;">--

-- demo\rosetta\Colour_wheel.exw

<span style="color: #000000;">main</span><span style="color: #0000FF;">()</span>

 

=={{header|Processing}}==

 

background(0);

float radius = min(width, height) / 2.0;

}

}

 

==={{header|Processing Python mode}}===

 

background(0)

radius = min(width, height) / 2.0

colorMode(HSB)

c = color(int(h * 255), int(s * 255), 255)

 

=={{header|Python}}==

 

import colorsys

import math

pix[x,y] = tuple([int(round(c*255.0)) for c in rgb])

 

 

=={{header|Racket}}==

With the colors package

 

 

(require racket/draw

(send dc draw-point x y))

 

 

=={{header|Raku}}==

(formerly Perl 6)

{{works with|Rakudo|2016.08}}

 

my ($w, $h) = 300, 300;

when 5/6..1 { $c, 0, $x }

} ).map: ((*+$m) * 255).Int

 

=={{header|Ring}}==

 

 

load "guilib.ring"

 

 

 

 

 

 

 

=={{header|Ruby}}==

{{libheader|RubyGems}}

{{libheader|JRubyArt}}

def settings

size(300, 300)

end

end

 

=={{header|Run BASIC}}==

' color wheel

' -----------------------------------

global pi

 

graphic #g, 525, 525

 

for x =0 to 525 step steps

next x

render #g

function atan2(y,x)

if (x = 0) and (y <> 0) then

end if

 

if y = 0 and (x <> 0) then

end if

 

If r$ <> "Y" then

end if

 

=={{header|Rust}}==

Output is a file in PNG format.

// image = "0.23"

 

Err(error) => eprintln!("{}", error),

}

 

{{out}}

 

=={{header|Sidef}}==

{{trans|Raku}}

 

var (width, height) = (300, 300)

}

 

Output image: [https://github.com/trizen/rc/blob/master/img/color-wheel-sidef.png Color wheel]

=={{header|Smart BASIC}}==

GET SCREEN SIZE sw,sh

xmax=0.45*3/7*(sw+sh)

s5: r=f ! g=0 ! b=1 ! GOTO done

s6: r=1 ! g=0 ! b=z ! done:

View the output on Dropbox

https://www.dropbox.com/s/g3l5rbywo34bnp6/IMG_4600.PNG?dl=0

 

=={{header|Wren}}==

{{libheader|DOME}}

import "dome" for Window

import "random" for Random

 

static draw(alpha) {}

 

=={{header|XPL0}}==

Algorithm is from "Computer Graphics ..." by Foley et al. The output is the same as Zkl.

real Hue, Sat, Dist, I, F, P, Q, T;

real XX, YY, RR, GG, BB;

];

];

 

=={{header|zkl}}==

Uses Image Magick and

the PPM class from http://rosettacode.org/wiki/Bitmap/Bresenham%27s_line_algorithm#zkl

colorWheel(out);

out.writeJPGFile("colorWheel.zkl.jpg");

v,hue:=(x - zero).toFloat().toPolar(y - zero);

if(v<=R){ // only render in the circle

}

}

 

fcn hsv2rgb(hue,v,s){ // 0<=H<360, 0<=v(brightness)<=1, 0<=saturation<=1

to24bit:=fcn(r,g,b,m){

r,g,b=((r+m)*255).toInt(),((g+m)*255).toInt(),((b+m)*255).toInt();

else if(180<=hue<240) return(to24bit(0.0,x, c, m));

else if(240<=hue<300) return(to24bit(x, 0.0,c, m));

{{out}}

See [http://www.zenkinetic.com/Images/RosettaCode/colorWheel.zkl.jpg this image]