16m色真彩调色板设计制作

16m色真彩调色板 设计制作

PhotoShop，AutoCad，3DS，Paint等图形图像绘画应用软件都有真彩调色板，供使用者画笔取色用。16m色也就是俗称真彩的全部色彩。
本人试制作商标徽标制作软件，也制作此真彩调色板，今分享给大家，希望大家喜欢。

真彩调色板绘制，画笔取色，应用程序同步绘制调色板
大调色板 16m色设置，小调色板分色调设置，供画笔取色
Step 8 , Step 4 , 为提高调色板绘出显示速度，此色度肉眼分辨不出
Step 1 , 为全色调模式，绘制速度慢，可在程序启动时先绘出。
drwtext 是创意艺术字制作应用程序，测试同步绘制调色板

下面的代码测试绘制调色板。
预设定40种调色模式用于创意艺术字底板色。
具体如何应用详见已上传的资源”商标徽标设计(vb6源码)“和 ”创意艺术字制作( 画板程序vb6源码)” 。

下面是 VB6 编译应用 frm 源码部分
制作人：张纯叔 ( micelu@126. Com )
'********************************************
Private Sub fullcolor()
’ **** 16m 色 真彩调色板绘出
’ **** 图片框定标：x = 3 * 256 , y = 256
Picture1.Scale (0, 0)-(768, 255)
'1 'Blue
R1 = 0: G1 = 255: B1 = 255
For x1 = 0 To 255 Step 8
R1 = x1
For y1 = 0 To 255 Step 8
G1 = 255 - y1
Picture1.Line (x1, y1)-(x1 + 8, y1 + 8), RGB(R1, G1, B1), BF
Next
Next
'2
R1 = 255: G1 = 255: B1 = 255
For x1 = 256 To 512 Step 8
R1 = 512 - x1 + 255: B1 = 512 - x1
For y1 = 0 To 255 Step 8
G1 = 255 - y1
Picture1.Line (x1, y1)-(x1 + 8, y1 + 8), RGB(R1, G1, B1), BF
Next
Next
'3
R1 = 0: G1 = 255: B1 = 0
For x1 = 513 To 768 Step 8
R1 = 513 - x1 + 255
For y1 = 0 To 255 Step 8
G1 = 255 - y1
Picture1.Line (x1, y1)-(x1 + 8, y1 + 8), RGB(R1, G1, B1), BF
Next
Next
Picture1.Scale

End Sub

Private Sub colorpad9()
'**** 绘制小调色板用于取色，drwtext 应用程序调色板同步绘制
Picture5.Scale (0, 0)-(768, 255)
drwtext.colorpad1.Scale (0, 0)-(768, 255)
'1 'Blue
R1 = 0: G1 = 255: B1 = 255
For x1 = 0 To 255 Step 8
R1 = x1
For y1 = 0 To 255 Step 8
G1 = 255 - y1
Picture5.Line (x1, y1)-(x1 + 8, y1 + 8), RGB(R1, G1, B1), BF
drwtext.colorpad1.Line (x1, y1)-(x1 + 8, y1 + 8), RGB(R1, G1, B1), BF
Next
Next
'2
R1 = 255: G1 = 255: B1 = 255
For x1 = 256 To 512 Step 8
R1 = 512 - x1 + 255: B1 = 512 - x1
For y1 = 0 To 255 Step 8
G1 = 255 - y1
Picture5.Line (x1, y1)-(x1 + 8, y1 + 8), RGB(R1, G1, B1), BF
drwtext.colorpad1.Line (x1, y1)-(x1 + 8, y1 + 8), RGB(R1, G1, B1), BF
Next
Next
''3
R1 = 0: G1 = 255: B1 = 0
For x1 = 513 To 768 Step 8
R1 = 513 - x1 + 255
For y1 = 0 To 255 Step 8
G1 = 255 - y1
Picture5.Line (x1, y1)-(x1 + 8, y1 + 8), RGB(R1, G1, B1), BF
drwtext.colorpad1.Line (x1, y1)-(x1 + 8, y1 + 8), RGB(R1, G1, B1), BF
Next
Next
Picture5.Scale
drwtext.colorpad1.Scale

End Sub

Private Sub Form_Load()
Top = Screen.Height - Height - 400
Left = 0
fullcolor 'set fullcolorpad at start
px1 = 100
py1 = 100
Picture1_Click '**** 使调色选色窗体与程序色板同步
Picture5.Scale (0, 0)-(10, 255)
drwtext.colorpad1.Scale (0, 0)-(10, 255)
'**** black white 256级灰度
For i = 0 To 255
Picture5.Line (0, i)-(10, i), RGB(255 - i, 255 - i, 255 - i)
Next

End Sub

Private Sub Form_Unload(Cancel As Integer)
drwcolor.Hide

End Sub

Private Sub HScroll1_Change()
'预设定40种色调调色板模式
setMode = HScroll1.Value
labSetmode.Caption = setMode
drwtext.labSetmode.Caption = setMode
drwtext.labColornum.Caption = 15

Picture5.Scale (0, 0)-(10, 255)
drwtext.colorpad1.Scale (0, 0)-(10, 255)

If setMode = 0 Then GoTo c0
If setMode = 1 Then GoTo c1
If setMode = 2 Then GoTo c2
If setMode = 3 Then GoTo c3
If setMode = 4 Then GoTo c4
If setMode = 5 Then GoTo c5
If setMode = 6 Then GoTo c6
If setMode = 7 Then GoTo c7
If setMode = 8 Then GoTo c8
If setMode = 9 Then GoTo c9
If setMode = 10 Then GoTo c10
If setMode = 11 Then GoTo c11
If setMode = 12 Then GoTo c12
If setMode = 13 Then GoTo c13
If setMode = 14 Then GoTo c14
If setMode = 15 Then GoTo c15
If setMode = 16 Then GoTo c16
If setMode = 17 Then GoTo c17
If setMode = 18 Then GoTo c18
If setMode = 19 Then GoTo c19
If setMode = 20 Then GoTo c20
If setMode = 21 Then GoTo c21
If setMode = 22 Then GoTo c22
If setMode = 23 Then GoTo c23
If setMode = 24 Then GoTo c24
If setMode = 25 Then GoTo c25
If setMode = 26 Then GoTo c26
If setMode = 27 Then GoTo c27
If setMode = 28 Then GoTo c28
If setMode = 29 Then GoTo c29
If setMode = 30 Then GoTo c30
If setMode = 31 Then GoTo c31
If setMode = 32 Then GoTo c32
If setMode = 33 Then GoTo c33
If setMode = 34 Then GoTo c34
If setMode = 35 Then GoTo c35
If setMode = 36 Then GoTo c36
If setMode = 37 Then GoTo c37
If setMode = 38 Then GoTo c38
If setMode = 39 Then GoTo c39
If setMode = 40 Then GoTo c40

'*********************************
c0:
'black white
For i = 0 To 255
Picture5.Line (0, i)-(10, i), RGB(255 - i, 255 - i, 255 - i)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(255 - i, 255 - i, 255 - i)
Next
Exit Sub

c1:
'sky blue
For i = 0 To 255
Picture5.Line (0, i)-(10, i), RGB(0, 255 - i, 255)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(0, 255 - i, 255)
Next
Exit Sub

c2:
'dark blue
For i = 0 To 255
Picture5.Line (0, i)-(10, i), RGB(0, 160 - i / 2, 255 - i / 2)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(0, 160 - i / 2, 255 - i / 2)
Next
Exit Sub
'**********************
c3:
'magenta
For i = 0 To 255
Picture5.Line (0, i)-(10, i), RGB(255 - i / 8, 255 - i, 255 - i / 4)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(255 - i / 8, 255 - i, 255 - i / 4)
Next
Exit Sub

c4:
'Dark magenta
For i = 0 To 255
Picture5.Line (0, i)-(10, i), RGB(255, 255 - i, 255 - i / 2)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(255, 255 - i, 255 - i / 2)
Next
Exit Sub
'************************
c5:
'*** Yellow
For i = 0 To 255
Picture5.Line (0, i)-(10, i), RGB(255 - i / 2, 255 - i / 2, 128)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(255 - i / 2, 255 - i / 2, 128)
Next
Exit Sub

c6:
'*** Yellow Red
For i = 0 To 255 'Step 1
Picture5.Line (0, i)-(10, i), RGB(255 - i / 8, 255 - i, 255 - i)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(255 - i / 8, 255 - i, 255 - i)
Next
Exit Sub
'***************
c7:
'*** green
For i = 0 To 255
Picture5.Line (0, i)-(10, i), RGB(128, 255 - i + 128, 255 - i + 0)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(128, 255 - i + 128, 255 - i + 0)
Next
Exit Sub

c8:
'*** high green
For i = 0 To 255
Picture5.Line (0, i)-(10, i), RGB(0, 255 - i, 0)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(0, 255 - i, 0)
Next
Exit Sub
'**********************************

c9:
'*** pure
For i = 0 To 255
Picture5.Line (0, i)-(10, i), RGB(255 - i / 2, 255 - i, 255 - i / 2)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(255 - i / 2, 255 - i, 255 - i / 2)
Next
Exit Sub
'***************

c10:
'*** red-yellow
For i = 0 To 255 Step 1
Picture5.Line (0, i)-(10, i), RGB(255, i, 0)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(255, i, 0)
Next
Exit Sub

c11:
'*** yellow-green
For i = 0 To 255 Step 1
Picture5.Line (0, i)-(10, i), RGB(255 - i, 255, 0)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(255 - i, 255, 0)
Next
For i = 128 To 255 Step 1
Picture5.Line (0, i)-(10, i), RGB(0, 255 - i + 128, 0)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(0, 255 - i + 128, 0)
Next
Exit Sub

c12:
'*** green-blue
For i = 0 To 255 Step 1
Picture5.Line (0, i)-(10, i), RGB(0, 255 - i, i)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(0, 255 - i, i)
Next
Exit Sub

c13:
'*** blue-magenta
For i = 0 To 255 Step 1
Picture5.Line (0, i)-(10, i), RGB(i, 0, 255)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(i, 0, 255)
Next
Exit Sub

c14:
'*** magenta-white
For i = 0 To 255 Step 1
Picture5.Line (0, i)-(10, i), RGB(255, i, 255)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(255, i, 255)
Next
Exit Sub

c15:
'*** litter red-blue
For i = 0 To 255 Step 1
Picture5.Line (0, i)-(10, i), RGB(255 - i, 192 - i / 2, 255)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(255 - i, 192 - i / 2, 255)
Next
Exit Sub

c16:
'*** blue-sky blue
For i = 0 To 255 Step 1
Picture5.Line (0, i)-(10, i), RGB(0, i, 255)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(0, i, 255)
Next
Exit Sub

c17:
'*** red-white
For i = 0 To 255 Step 1
Picture5.Line (0, i)-(10, i), RGB(255, i, i)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(255, i, i)
Next
Exit Sub

c18:
'*** dark red-green
For i = 0 To 255 Step 1
Picture5.Line (0, i)-(10, i), RGB(255 - i, i / 2, 255 - i)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(255 - i, i / 2, 255 - i)
Next
Exit Sub

c19:
'*** dark red-litter green
For i = 0 To 255 Step 1
Picture5.Line (0, i)-(10, i), RGB(255 - i, i, 128)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(255 - i, i, 128)
Next
Exit Sub

c20:
'*** red-blue
For i = 0 To 255 Step 1
Picture5.Line (0, i)-(10, i), RGB(255 - i, 0, i)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(255 - i, 0, i)
Next
Exit Sub

c21:
'** magenta-sky blue
For i = 0 To 255 Step 1
Picture5.Line (0, i)-(10, i), RGB(255 - i, i, 255)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(255 - i, i, 255)
Next
Exit Sub

c22:
'*** white-magenta
For i = 0 To 255 Step 1
Picture5.Line (0, i)-(10, i), RGB(255, 255 - i, 255)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(255, 255 - i, 255)
Next
Exit Sub

c23:
'*** litter cyan-dark cyan
For i = 0 To 255 Step 1
Picture5.Line (0, i)-(10, i), RGB(0, 255 - i, 255 - i)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(0, 255 - i, 255 - i)
Next
Exit Sub

c24:
'*** green-dark green
For i = 0 To 255 Step 1
Picture5.Line (0, i)-(10, i), RGB(0, 255 - i, 0)
drwtext.colorpad1.Line (0, i)-(10, i), RGB(0, 255 - i, 0)
Next
Exit Sub
’
c25:
Picture5.Scale (0, 0)-(255, 128)
drwtext.colorpad1.Scale (0, 0)-(255, 128)
For dx = 0 To 255 Step 4
For dy = 0 To 128 Step 4
Picture5.Line (dx, dy)-(dx + 4, dy + 4), RGB(255 - dy, dx, dy), BF
drwtext.colorpad1.Line (dx, dy)-(dx + 4, dy + 4), RGB(255 - dy, dx, dy), BF
Next
Next
Picture5.Scale (0, 0)-(10, 255)
drwtext.colorpad1.Scale
Exit Sub
’
c26:
Picture5.Scale (0, 0)-(255, 128)
drwtext.colorpad1.Scale (0, 0)-(255, 128)
For dx = 0 To 255 Step 4
For dy = 0 To 128 Step 4
Picture5.Line (dx, dy)-(dx + 4, dy + 4), RGB(255 - dy, 255 - dy, dx / 2), BF
drwtext.colorpad1.Line (dx, dy)-(dx + 4, dy + 4), RGB(255 - dy, 255 - dy, dx / 2), BF
Next
Next
Picture5.Scale (0, 0)-(10, 255)
drwtext.colorpad1.Scale
Exit Sub

c27:
Picture5.Scale (0, 0)-(255, 128)
drwtext.colorpad1.Scale (0, 0)-(255, 128)
For dx = 0 To 255 Step 4
For dy = 0 To 128 Step 4
Picture5.Line (dx, dy)-(dx + 4, dy + 4), RGB(255 - dy, dy * 2, dx / 2), BF
drwtext.colorpad1.Line (dx, dy)-(dx + 4, dy + 4), RGB(255 - dy, dy * 2, dx / 2), BF
Next
Next
Picture5.Scale (0, 0)-(10, 255)
drwtext.colorpad1.Scale
Exit Sub

c28:
Picture5.Scale (0, 0)-(255, 128)
drwtext.colorpad1.Scale (0, 0)-(255, 128)
For dx = 0 To 255 Step 4
For dy = 0 To 128 Step 4
Picture5.Line (dx, dy)-(dx + 4, dy + 4), RGB(dx / 2, dy * 2, 255 - dy), BF
drwtext.colorpad1.Line (dx, dy)-(dx + 4, dy + 4), RGB(dx / 2, dy * 2, 255 - dy), BF
Next
Next
Picture5.Scale (0, 0)-(10, 255)
drwtext.colorpad1.Scale
Exit Sub

c29:
Picture5.Scale (0, 0)-(255, 128)
drwtext.colorpad1.Scale (0, 0)-(255, 128)
For dx = 0 To 255 Step 4
For dy = 0 To 128 Step 4
Picture5.Line (dx, dy)-(dx + 4, dy + 4), RGB(255 - dy, 255 - dx / 2, dy + 128), BF
drwtext.colorpad1.Line (dx, dy)-(dx + 4, dy + 4), RGB(255 - dy, 255 - dx / 2, dy + 128), BF
Next
Next
Picture5.Scale (0, 0)-(10, 255)
drwtext.colorpad1.Scale
Exit Sub

c30:
Picture5.Scale (0, 0)-(255, 128)
drwtext.colorpad1.Scale (0, 0)-(255, 128)
For dx = 0 To 255 Step 4
For dy = 0 To 128 Step 4
Picture5.Line (dx, dy)-(dx + 4, dy + 4), RGB(255 - dy, dx / 2, dy), BF
drwtext.colorpad1.Line (dx, dy)-(dx + 4, dy + 4), RGB(255 - dy, dx / 2, dy), BF
Next
Next
Picture5.Scale (0, 0)-(10, 255)
drwtext.colorpad1.Scale
Exit Sub

c31:
Picture5.Scale (0, 0)-(255, 128)
drwtext.colorpad1.Scale (0, 0)-(255, 128)
For dx = 0 To 255 Step 4
For dy = 0 To 128 Step 4
Picture5.Line (dx, dy)-(dx + 4, dy + 4), RGB(256 - dy * 2, dx / 2, dy), BF
drwtext.colorpad1.Line (dx, dy)-(dx + 4, dy + 4), RGB(256 - dy * 2, dx / 2, dy), BF
Next
Next
Picture5.Scale (0, 0)-(10, 255)
drwtext.colorpad1.Scale
Exit Sub

c32:
Picture5.Scale (0, 0)-(255, 128)
drwtext.colorpad1.Scale (0, 0)-(255, 128)
For dx = 0 To 255 Step 4
For dy = 0 To 128 Step 4
Picture5.Line (dx, dy)-(dx + 4, dy + 4), RGB(255 - dy, 255 - dx, dy), BF
drwtext.colorpad1.Line (dx, dy)-(dx + 4, dy + 4), RGB(255 - dy, 255 - dx, dy), BF
Next
Next
Picture5.Scale (0, 0)-(10, 255)
drwtext.colorpad1.Scale
Exit Sub

c33:
Picture5.Scale (0, 0)-(255, 128)
drwtext.colorpad1.Scale (0, 0)-(255, 128)
For dx = 0 To 255 Step 4
For dy = 0 To 128 Step 4
Picture5.Line (dx, dy)-(dx + 4, dy + 4), RGB(255 - dx, 255 - dx + dy, dy), BF
drwtext.colorpad1.Line (dx, dy)-(dx + 4, dy + 4), RGB(255 - dx, 255 - dx + dy, dy), BF
Next
Next
Picture5.Scale (0, 0)-(10, 255)
drwtext.colorpad1.Scale
Exit Sub

c34:
Picture5.Scale (0, 0)-(255, 128)
drwtext.colorpad1.Scale (0, 0)-(255, 128)
For dx = 0 To 255 Step 4
For dy = 0 To 128 Step 4
Picture5.Line (dx, dy)-(dx + 4, dy + 4), RGB(dx, 128 - dy, 256 - dy * 2), BF
drwtext.colorpad1.Line (dx, dy)-(dx + 4, dy + 4), RGB(dx, 128 - dy, 256 - dy * 2), BF
Next
Next
Picture5.Scale (0, 0)-(10, 255)
drwtext.colorpad1.Scale
Exit Sub

c35:
Picture5.Scale (0, 0)-(255, 128)
drwtext.colorpad1.Scale (0, 0)-(255, 128)
For dx = 0 To 255 Step 4
For dy = 0 To 128 Step 4
Picture5.Line (dx, dy)-(dx + 4, dy + 4), RGB(dx, 256 - dy * 2, 256 - dy * 2), BF
drwtext.colorpad1.Line (dx, dy)-(dx + 4, dy + 4), RGB(dx, 256 - dy * 2, 256 - dy * 2), BF
Next
Next
Picture5.Scale (0, 0)-(10, 255)
drwtext.colorpad1.Scale
Exit Sub

c36:
Picture5.Scale (0, 0)-(255, 128)
drwtext.colorpad1.Scale (0, 0)-(255, 128)
For dx = 0 To 255 Step 4
For dy = 0 To 128 Step 4
Picture5.Line (dx, dy)-(dx + 4, dy + 4), RGB(dx, 128 - dy, 200 - dy), BF
drwtext.colorpad1.Line (dx, dy)-(dx + 4, dy + 4), RGB(dx, 128 - dy, 200 - dy), BF
Next
Next
Picture5.Scale (0, 0)-(10, 255)
drwtext.colorpad1.Scale
Exit Sub

c37:
Picture5.Scale (0, 0)-(255, 128)
drwtext.colorpad1.Scale (0, 0)-(255, 128)
For dx = 0 To 255 Step 4
For dy = 0 To 128 Step 4
Picture5.Line (dx, dy)-(dx + 4, dy + 4), RGB(255 - dy, 255 - dx / 2, 255 - dy), BF
drwtext.colorpad1.Line (dx, dy)-(dx + 4, dy + 4), RGB(255 - dy, 255 - dx / 2, 255 - dy), BF
Next
Next
Picture5.Scale (0, 0)-(10, 255)
drwtext.colorpad1.Scale
Exit Sub

c38:
Picture5.Scale (0, 0)-(255, 128)
drwtext.colorpad1.Scale (0, 0)-(255, 128)
For dx = 0 To 255 Step 4
For dy = 0 To 128 Step 4
Picture5.Line (dx, dy)-(dx + 4, dy + 4), RGB(255 - dy, 255 - dx, 255 - dy), BF
drwtext.colorpad1.Line (dx, dy)-(dx + 4, dy + 4), RGB(255 - dy, 255 - dx, 255 - dy), BF
Next
Next
Picture5.Scale (0, 0)-(10, 255)
drwtext.colorpad1.Scale
Exit Sub

c39:
Picture5.Scale (0, 0)-(255, 128)
drwtext.colorpad1.Scale (0, 0)-(255, 128)
For dx = 0 To 255 Step 4
For dy = 0 To 128 Step 4
Picture5.Line (dx, dy)-(dx + 4, dy + 4), RGB(128 - dy, 255 - dx, 255 - dy), BF
drwtext.colorpad1.Line (dx, dy)-(dx + 4, dy + 4), RGB(128 - dy, 255 - dx, 255 - dy), BF
Next
Next
Picture5.Scale (0, 0)-(10, 255)
drwtext.colorpad1.Scale
Exit Sub

c40:
Picture5.Scale (0, 0)-(255, 128)
drwtext.colorpad1.Scale (0, 0)-(255, 128)
For dx = 0 To 255 Step 4
For dy = 0 To 128 Step 4
R1 = 255 - dx: G1 = 255 - dx: B1 = dy * 2
Picture5.Line (dx, dy)-(dx + 4, dy + 4), RGB(R1, G1, B1), BF
drwtext.colorpad1.Line (dx, dy)-(dx + 4, dy + 4), RGB(R1, G1, B1), BF
Next
Next
Picture5.Scale (0, 0)-(10, 255)
drwtext.colorpad1.Scale
End Sub

Private Sub HSgray_Change()
labGray.Caption = Val(HSgray)
dColor = labGray.Caption
Colorgraypad.BackColor = RGB(dColor, dColor, dColor)
drwtext.colorpad1.BackColor = RGB(dColor, dColor, dColor)
End Sub

'**** End ****