DevMagazin/色空間

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11

/* 色相による違い */
    title "右が色相0。反時計回りに増え、1周で最大の191になります。"
    PI = atan(1) * 4
    sValue = 255 : vValue = 255
    repeat 1000
        hValue = 191.0 * cnt / 1000
        theta  = PI * cnt * 2 / 1000
        hsvcolor hValue, sValue, vValue
        line cos(theta)*100 + 200, -sin(theta)*100 + 200, cos(theta)*150 + 200, -sin(theta)*150 + 200
    loop
    stop

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15

/* 彩度による違い */
    title "左から右に向かって彩度が大きくなっています。"
    vValue = 255
 
*main
    redraw 0
    repeat 256
        sValue = cnt
        hsvcolor hValue, sValue, vValue
        line cnt, 30, cnt, 0
    loop
    redraw 1
    hValue = (hValue + 1) \ 192 // 色相の変化
    wait 8
    goto *main

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15

/* 明度による違い */
    title "左から右に向かって明度が大きくなっています。"
    sValue = 255
 
*main
    redraw 0
    repeat 256
        vValue = cnt
        hsvcolor hValue, sValue, vValue
        line cnt, 30, cnt, 0
    loop
    redraw 1
    hValue = (hValue + 1) \ 192 // 色相の変化
    wait 8
    goto *main