孙建旺

c实现图像dither算法_【图像】抖动算法实现真彩色图片高细节256色降级处理【旧帖，效果不好，勿用】...

[Visual Basic] 纯文本查看复制代码VERSION 5.00

Begin VB.Form frmMain

Caption = "取得调色板"

ClientHeight = 6465

ClientLeft = 120

ClientTop = 450

ClientWidth = 16440

LinkTopic = "frmMain"

OLEDropMode = 1 'Manual

ScaleHeight = 431

ScaleMode = 3 'Pixel

ScaleWidth = 1096

StartUpPosition = 3 '窗口缺省

Begin VB.PictureBox picDither

Align = 3 'Align Left

BorderStyle = 0 'None

Height = 6465

Left = 0

ScaleHeight = 431

ScaleMode = 3 'Pixel

ScaleWidth = 457

TabIndex = 6

Top = 0

Visible = 0 'False

Width = 6855

Begin VB.HScrollBar HSDither

Height = 255

Left = 1440

Max = 0

TabIndex = 12

TabStop = 0 'False

Top = 3000

Width = 2415

End

Begin VB.PictureBox picColor4

AutoRedraw = -1 'True

BackColor = &H00000000&

BorderStyle = 0 'None

Height = 495

Left = 1800

ScaleHeight = 33

ScaleMode = 3 'Pixel

ScaleWidth = 33

TabIndex = 11

Top = 0

Visible = 0 'False

Width = 495

End

Begin VB.PictureBox picColor3

AutoRedraw = -1 'True

BackColor = &H00000000&

BorderStyle = 0 'None

Height = 495

Left = 1200

ScaleHeight = 33

ScaleMode = 3 'Pixel

ScaleWidth = 33

TabIndex = 10

Top = 0

Visible = 0 'False

Width = 495

End

Begin VB.PictureBox picColor2

AutoRedraw = -1 'True

BackColor = &H00000000&

BorderStyle = 0 'None

Height = 495

Left = 600

ScaleHeight = 33

ScaleMode = 3 'Pixel

ScaleWidth = 33

TabIndex = 9

Top = 0

Visible = 0 'False

Width = 495

End

Begin VB.PictureBox picColor1

AutoRedraw = -1 'True

BackColor = &H00000000&

BorderStyle = 0 'None

Height = 495

Left = 0

ScaleHeight = 33

ScaleMode = 3 'Pixel

ScaleWidth = 33

TabIndex = 8

Top = 0

Visible = 0 'False

Width = 495

End

Begin VB.PictureBox picResult

AutoRedraw = -1 'True

BackColor = &H00000000&

BorderStyle = 0 'None

Height = 495

Left = 2400

ScaleHeight = 33

ScaleMode = 3 'Pixel

ScaleWidth = 33

TabIndex = 7

Top = 0

Visible = 0 'False

Width = 495

End

Begin VB.PictureBox picRightPanel

Align = 4 'Align Right

BorderStyle = 0 'None

Height = 6465

Left = 15345

ScaleHeight = 431

ScaleMode = 3 'Pixel

ScaleWidth = 73

TabIndex = 0

Top = 0

Width = 1095

Begin VB.PictureBox picProgress

BackColor = &H8000000C&

Height = 255

Left = 0

ScaleHeight = 13

ScaleMode = 3 'Pixel

ScaleWidth = 69

TabIndex = 14

Top = 4320

Width = 1095

Begin VB.CommandButton cmdProgress

Enabled = 0 'False

Height = 195

Left = 0

Style = 1 'Graphical

TabIndex = 15

Top = 0

Width = 1035

End

Begin VB.CheckBox ChRandomPalette

Caption = "产生随机调色板"

Height = 615

Left = 0

Style = 1 'Graphical

TabIndex = 13

Top = 3600

Width = 1095

End

Begin VB.PictureBox picPal

AutoRedraw = -1 'True

BackColor = &H00000000&

BorderStyle = 0 'None

Height = 1095

Left = 0

ScaleHeight = 73

ScaleMode = 3 'Pixel

ScaleWidth = 73

TabIndex = 5

Top = 2400

Width = 1095

End

Begin VB.OptionButton OpDitherPic

Caption = "抖动图"

Enabled = 0 'False

Height = 495

Left = 0

Style = 1 'Graphical

TabIndex = 4

Top = 1920

Value = -1 'True

Width = 1095

End

Begin VB.OptionButton OpSrcPic

Caption = "原图"

Enabled = 0 'False

Height = 495

Left = 0

Style = 1 'Graphical

TabIndex = 3

Top = 1440

Width = 1095

End

Begin VB.CommandButton cmdDither

Caption = "抖动"

Enabled = 0 'False

Height = 615

Left = 0

TabIndex = 1

Top = 0

Width = 1095

End

Begin VB.PictureBox picSrcPic

AutoRedraw = -1 'True

AutoSize = -1 'True

BorderStyle = 0 'None

Height = 255

Left = 0

ScaleHeight = 255

ScaleWidth = 135

TabIndex = 2

Top = 0

Visible = 0 'False

Width = 135

End

Attribute VB_Name = "frmMain"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = True

Attribute VB_Exposed = False

'==============================================================================

'作者：0xAA55

'论坛：http://www.0xaa55.com/

'请保留原作者信息，否则视为侵权。

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

Option Explicit

Private Const COLORS_MAX As Long = 256

Private Const COLORS_BITS As Long = 8

Private Const DIST_MAX As Long = 200000

Private Type RGBQUAD

B As Byte

G As Byte

R As Byte

X As Byte

End Type

Private Type BITMAPINFO24

biSize As Long

biWidth As Long

biHeight As Long

biPlanes As Integer

biBitCount As Integer

biCompression As Long

biSizeImage As Long

biXPelsPerMeter As Long

biYPelsPerMeter As Long

biClrUsed As Long

biClrImportant As Long

End Type

Private Type BITMAPINFOPAL

biSize As Long

biWidth As Long

biHeight As Long

biPlanes As Integer

biBitCount As Integer

biCompression As Long

biSizeImage As Long

biXPelsPerMeter As Long

biYPelsPerMeter As Long

biClrUsed As Long

biClrImportant As Long

Palette(COLORS_MAX - 1) As RGBQUAD

End Type

Private Declare Function CreateOctreePaletteFromHBITMAP Lib "..\Octree.dll" (ByVal hDC&, ByVal hBitmap&, ByVal Width&, ByVal Height&, ByVal MaxColors&, ByVal ColorBits&, P As RGBQUAD) As Long

Private Declare Function GetBitmapPitch Lib "..\Octree.dll" (ByVal BitCount As Integer, ByVal Width As Long) As Long

Private Declare Function GetDIBits Lib "gdi32.dll" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFO24, ByVal wUsage As Long) As Long

Private Declare Function SetDIBits Lib "gdi32.dll" (ByVal aHDC As Long, ByVal hBitmap As Long, ByVal nStartScan As Long, ByVal nNumScans As Long, lpBits As Any, lpBI As BITMAPINFOPAL, ByVal wUsage As Long) As Long

Private Const DIB_RGB_COLORS = 0 ' color table in RGBs

Private Const DIB_PAL_COLORS = 1 ' color table in palette indices

Dim BMIF24 As BITMAPINFO24

Dim BMIFPAL As BITMAPINFOPAL

Dim PW&, PH&

Dim LM() As Byte

Dim QuitLoop As Boolean

Dim SrcPixels() As Byte

Dim Values1() As Byte

Dim Values2() As Byte

Dim Values3() As Byte

Dim Values4() As Byte

Dim Vec1R() As Long, Vec1G() As Long, Vec1B() As Long

Dim Vec2R() As Long, Vec2G() As Long, Vec2B() As Long

Dim Vec3R() As Long, Vec3G() As Long, Vec3B() As Long

Dim Vec4R() As Long, Vec4G() As Long, Vec4B() As Long

Private Const MaxDist As Double = 64

Private Const MaxDistSq As Double = MaxDist * MaxDist

Private Const RefreshInterval As Single = 0.1

Dim ProgWidth As Single

Sub DrawProgress(ByVal Prog As Double)

cmdProgress.Left = (Prog - 1) * ProgWidth

picProgress.Refresh

End Sub

Private Sub cmdDither_Click()

Dim DestPixels() As Byte

Dim Pitch1 As Long, Pitch2 As Long

Dim X&, Y&

Dim I&, LStart1&

Dim L&, LStart2&

Dim K&, DistanceSq As Long, NewDistSq As Long

Dim RDiff As Long, GDiff As Long, BDiff As Long

Dim Tm!, NTm!

cmdDither.Enabled = False

picDither.Visible = True

Form_Resize

Pitch1 = GetBitmapPitch(24, PW)

Pitch2 = GetBitmapPitch(8, PW)

Erase Values1, Values2, Values3, Values4, SrcPixels

Erase Vec1R, Vec1G, Vec1B

Erase Vec2R, Vec2G, Vec2B

Erase Vec3R, Vec3G, Vec3B

Erase Vec4R, Vec4G, Vec4B

ReDim SrcPixels(Pitch1 * PH - 1)

ReDim DestPixels(Pitch2 * PH - 1)

ReDim Values1(UBound(DestPixels))

ReDim Values2(UBound(DestPixels))

ReDim Values3(UBound(DestPixels))

ReDim Values4(UBound(DestPixels))

ReDim Vec1R(UBound(DestPixels)), Vec1G(UBound(DestPixels)), Vec1B(UBound(DestPixels))

ReDim Vec2R(UBound(DestPixels)), Vec2G(UBound(DestPixels)), Vec2B(UBound(DestPixels))

ReDim Vec3R(UBound(DestPixels)), Vec3G(UBound(DestPixels)), Vec3B(UBound(DestPixels))

ReDim Vec4R(UBound(DestPixels)), Vec4G(UBound(DestPixels)), Vec4B(UBound(DestPixels))

GetDIBits picSrcPic.hDC, picSrcPic.Image.Handle, 0, PH, SrcPixels(0), BMIF24, DIB_RGB_COLORS

'==============================================================================

'步骤1：取得最相近的颜色

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

LStart1 = 0

LStart2 = 0

picColor1.Visible = True

For Y = 0 To PH - 1

I = LStart1

L = LStart2

For X = 0 To PW - 1

DistanceSq = 255& * 255 * 3

For K = 0 To 255

RDiff = CLng(BMIFPAL.Palette(K).R) - SrcPixels(I + 2)

GDiff = CLng(BMIFPAL.Palette(K).G) - SrcPixels(I + 1)

BDiff = CLng(BMIFPAL.Palette(K).B) - SrcPixels(I + 0)

NewDistSq = RDiff * RDiff + GDiff * GDiff + BDiff * BDiff

If NewDistSq < DistanceSq And NewDistSq <= MaxDistSq Then

Vec1R(L) = RDiff

Vec1G(L) = GDiff

Vec1B(L) = BDiff

Values1(L) = K

DestPixels(L) = K

DistanceSq = NewDistSq

End If

I = I + 3

L = L + 1

NTm = Timer

If NTm - Tm >= RefreshInterval Then

Tm = NTm

SetDIBits picColor1.hDC, picColor1.Image.Handle, 0, PH, DestPixels(0), BMIFPAL, DIB_RGB_COLORS

picColor1.PaintPicture picSrcPic.Image, 0, 0, PW, PH - Y, 0, 0, PW, PH - Y

DrawProgress Y / (PH - 1)

picColor1.Refresh

DoEvents

If QuitLoop Then Exit For

End If

LStart1 = LStart1 + Pitch1

LStart2 = LStart2 + Pitch2

SetDIBits picColor1.hDC, picColor1.Image.Handle, 0, PH, DestPixels(0), BMIFPAL, DIB_RGB_COLORS

DrawProgress 1

picColor1.Refresh

'==============================================================================

'步骤2：取得和上一步相反的颜色

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

LStart1 = 0

LStart2 = 0

picColor2.Visible = True

For Y = 0 To PH - 1

I = LStart1

L = LStart2

For X = 0 To PW - 1

DistanceSq = 255& * 255 * 3

Values2(L) = Values1(L)

For K = 0 To 255

RDiff = CLng(BMIFPAL.Palette(K).R) - SrcPixels(I + 2)

GDiff = CLng(BMIFPAL.Palette(K).G) - SrcPixels(I + 1)

BDiff = CLng(BMIFPAL.Palette(K).B) - SrcPixels(I + 0)

If RDiff * Vec1R(L) + GDiff * Vec1G(L) + BDiff * Vec1B(L) < 0 Then

NewDistSq = RDiff * RDiff + GDiff * GDiff + BDiff * BDiff

If NewDistSq < DistanceSq And NewDistSq <= MaxDistSq Then

Vec2R(L) = RDiff

Vec2G(L) = GDiff

Vec2B(L) = BDiff

Values2(L) = K

DestPixels(L) = K

DistanceSq = NewDistSq

End If

I = I + 3

L = L + 1

NTm = Timer

If NTm - Tm >= RefreshInterval Then

Tm = NTm

SetDIBits picColor2.hDC, picColor2.Image.Handle, 0, PH, DestPixels(0), BMIFPAL, DIB_RGB_COLORS

DrawProgress Y / (PH - 1)

picColor2.Refresh

DoEvents

If QuitLoop Then Exit For

End If

LStart1 = LStart1 + Pitch1

LStart2 = LStart2 + Pitch2

SetDIBits picColor2.hDC, picColor2.Image.Handle, 0, PH, DestPixels(0), BMIFPAL, DIB_RGB_COLORS

DrawProgress 1

picColor2.Refresh

'==============================================================================

'步骤3：取得和上两步相反的颜色

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

LStart1 = 0

LStart2 = 0

picColor3.Visible = True

For Y = 0 To PH - 1

I = LStart1

L = LStart2

For X = 0 To PW - 1

DistanceSq = 255& * 255 * 3

Values3(L) = Values2(L)

For K = 0 To 255

RDiff = CLng(BMIFPAL.Palette(K).R) - SrcPixels(I + 2)

GDiff = CLng(BMIFPAL.Palette(K).G) - SrcPixels(I + 1)

BDiff = CLng(BMIFPAL.Palette(K).B) - SrcPixels(I + 0)

If RDiff * Vec1R(L) + GDiff * Vec1G(L) + BDiff * Vec1B(L) < 0 And _

RDiff * Vec2R(L) + GDiff * Vec2G(L) + BDiff * Vec2B(L) < 0 Then

NewDistSq = RDiff * RDiff + GDiff * GDiff + BDiff * BDiff

If NewDistSq < DistanceSq And NewDistSq <= MaxDistSq Then

Vec3R(L) = RDiff

Vec3G(L) = GDiff

Vec3B(L) = BDiff

Values3(L) = K

DestPixels(L) = K

DistanceSq = NewDistSq

End If

I = I + 3

L = L + 1

NTm = Timer

If NTm - Tm >= RefreshInterval Then

Tm = NTm

SetDIBits picColor3.hDC, picColor3.Image.Handle, 0, PH, DestPixels(0), BMIFPAL, DIB_RGB_COLORS

DrawProgress Y / (PH - 1)

picColor3.Refresh

DoEvents

If QuitLoop Then Exit For

End If

LStart1 = LStart1 + Pitch1

LStart2 = LStart2 + Pitch2

SetDIBits picColor3.hDC, picColor3.Image.Handle, 0, PH, DestPixels(0), BMIFPAL, DIB_RGB_COLORS

DrawProgress 1

picColor3.Refresh

'==============================================================================

'步骤4：取得和上三步相反的颜色

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

LStart1 = 0

LStart2 = 0

picColor4.Visible = True

For Y = 0 To PH - 1

I = LStart1

L = LStart2

For X = 0 To PW - 1

DistanceSq = 255& * 255 * 3

Values4(L) = Values3(L)

For K = 0 To 255

RDiff = CLng(BMIFPAL.Palette(K).R) - SrcPixels(I + 2)

GDiff = CLng(BMIFPAL.Palette(K).G) - SrcPixels(I + 1)

BDiff = CLng(BMIFPAL.Palette(K).B) - SrcPixels(I + 0)

If RDiff * Vec1R(L) + GDiff * Vec1G(L) + BDiff * Vec1B(L) < 0 And _

RDiff * Vec2R(L) + GDiff * Vec2G(L) + BDiff * Vec2B(L) < 0 And _

RDiff * Vec3R(L) + GDiff * Vec3G(L) + BDiff * Vec3B(L) < 0 Then

NewDistSq = RDiff * RDiff + GDiff * GDiff + BDiff * BDiff

If NewDistSq < DistanceSq And NewDistSq <= MaxDistSq Then

Vec4R(L) = RDiff

Vec4G(L) = GDiff

Vec4B(L) = BDiff

Values4(L) = K

DestPixels(L) = K

DistanceSq = NewDistSq

End If

I = I + 3

L = L + 1

NTm = Timer

If NTm - Tm >= RefreshInterval Then

Tm = NTm

SetDIBits picColor4.hDC, picColor4.Image.Handle, 0, PH, DestPixels(0), BMIFPAL, DIB_RGB_COLORS

DrawProgress Y / (PH - 1)

picColor4.Refresh

DoEvents

If QuitLoop Then Exit For

End If

LStart1 = LStart1 + Pitch1

LStart2 = LStart2 + Pitch2

SetDIBits picColor4.hDC, picColor4.Image.Handle, 0, PH, DestPixels(0), BMIFPAL, DIB_RGB_COLORS

DrawProgress 1

picColor4.Refresh

'==============================================================================

'步骤5：将上面四步取得的颜色进行抖动混合

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

LStart1 = 0

LStart2 = 0

picResult.Visible = True

Dim DitherValue As Long

For Y = 0 To PH - 1

I = LStart1

L = LStart2

For X = 0 To PW - 1

DitherValue = LM((X And &HF) + (Y And &HF) * &H10)

If Values1(L) = Values2(L) And Values2(L) = Values3(L) And Values3(L) = Values4(L) Then '只有一个颜色

DestPixels(L) = Values1(L)

ElseIf Values1(L) <> Values2(L) And Values2(L) = Values3(L) And Values3(L) = Values4(L) Then '抖动颜色1、2

' Src

' /|~"-,_

' / | ~"-,_

'Values1~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Values2

Dim Vec1To2R As Long, Vec1To2G As Long, Vec1To2B As Long

Dim Vec1To2Dist As Double, ProjLen As Double

Vec1To2R = Vec2R(L) - Vec1R(L)

Vec1To2G = Vec2G(L) - Vec1G(L)

Vec1To2B = Vec2B(L) - Vec1B(L)

Vec1To2Dist = Sqr(CDbl(Vec1To2R) * Vec1To2R + CDbl(Vec1To2G) * Vec1To2G + CDbl(Vec1To2B) * Vec1To2B)

ProjLen = (-Vec1R(L) * Vec1To2R - Vec1G(L) * Vec1To2G - Vec1B(L) * Vec1To2B) / Vec1To2Dist

If ProjLen * 255 / Vec1To2Dist <= DitherValue Then DestPixels(L) = Values1(L) Else DestPixels(L) = Values2(L)

ElseIf Values1(L) <> Values2(L) And Values2(L) <> Values3(L) And Values3(L) = Values4(L) Then '抖动颜色1、2、3

'P2,

'|\ ~"-,_

'| \ ~"-,_

'| P,__ ~"-,_

'| / ~~""--,,__ ~"-,_

'|L ~~""--===,_

'P1~~~~~~~~~~~~~~~~~~~~~~~~~~~P3

Dim Plane123A As Double, Plane123B As Double, Plane123C As Double, Plane123D As Double

Dim Plane123ABCLen As Double

Dim Vec2To3R As Long, Vec2To3G As Long, Vec2To3B As Long

Vec1To2R = Vec2R(L) - Vec1R(L)

Vec1To2G = Vec2G(L) - Vec1G(L)

Vec1To2B = Vec2B(L) - Vec1B(L)

Vec2To3R = Vec3R(L) - Vec2R(L)

Vec2To3G = Vec3G(L) - Vec2G(L)

Vec2To3B = Vec3B(L) - Vec2B(L)

Plane123A = Vec1To2G * Vec2To3B - Vec1To2B * Vec2To3G

Plane123B = Vec1To2B * Vec2To3R - Vec1To2R * Vec2To3B

Plane123C = Vec1To2R * Vec2To3G - Vec1To2G * Vec2To3R

Plane123D = -(Plane123A * BMIFPAL.Palette(Values1(L)).R + Plane123B * BMIFPAL.Palette(Values1(L)).G + Plane123C * BMIFPAL.Palette(Values1(L)).B)

Plane123ABCLen = Sqr(Plane123A * Plane123A + Plane123B * Plane123B + Plane123C * Plane123C)

Plane123A = Plane123A / Plane123ABCLen

Plane123B = Plane123B / Plane123ABCLen

Plane123C = Plane123C / Plane123ABCLen

Plane123D = Plane123D / Plane123ABCLen

Dim PlaneFace23A As Double, PlaneFace23B As Double, PlaneFace23C As Double, PlaneFace23D As Double

Dim PlaneFace23ABCLen As Double

PlaneFace23A = Vec1G(L) * Plane123C - Vec1B(L) * Plane123B

PlaneFace23B = Vec1B(L) * Plane123A - Vec1R(L) * Plane123C

PlaneFace23C = Vec1R(L) * Plane123B - Vec1G(L) * Plane123A

PlaneFace23D = -(PlaneFace23A * SrcPixels(I + 2) + PlaneFace23B * SrcPixels(I + 1) + PlaneFace23C * SrcPixels(I + 0))

PlaneFace23ABCLen = Sqr(PlaneFace23A * PlaneFace23A + PlaneFace23B * PlaneFace23B + PlaneFace23C * PlaneFace23C)

PlaneFace23A = PlaneFace23A / PlaneFace23ABCLen

PlaneFace23B = PlaneFace23B / PlaneFace23ABCLen

PlaneFace23C = PlaneFace23C / PlaneFace23ABCLen

PlaneFace23D = PlaneFace23D / PlaneFace23ABCLen

Dim P2ToPlaneDist As Double, P3ToPlaneDist As Double, PlaneCutPosition As Double

P2ToPlaneDist = Abs(BMIFPAL.Palette(Values2(L)).R * PlaneFace23A + BMIFPAL.Palette(Values2(L)).G * PlaneFace23B + BMIFPAL.Palette(Values2(L)).B * PlaneFace23C + PlaneFace23D)

P3ToPlaneDist = Abs(BMIFPAL.Palette(Values3(L)).R * PlaneFace23A + BMIFPAL.Palette(Values3(L)).G * PlaneFace23B + BMIFPAL.Palette(Values3(L)).B * PlaneFace23C + PlaneFace23D)

PlaneCutPosition = P2ToPlaneDist / (P2ToPlaneDist + P3ToPlaneDist)

If PlaneCutPosition * 255 <= DitherValue Then DestPixels(L) = Values2(L) Else DestPixels(L) = Values3(L)

Dim PointOnPlaneAnd2To3VecR As Double, PointOnPlaneAnd2To3VecG As Double, PointOnPlaneAnd2To3VecB As Double

PointOnPlaneAnd2To3VecR = CDbl(BMIFPAL.Palette(Values2(L)).R) + Vec2To3R * PlaneCutPosition - SrcPixels(I + 2)

PointOnPlaneAnd2To3VecG = CDbl(BMIFPAL.Palette(Values2(L)).G) + Vec2To3G * PlaneCutPosition - SrcPixels(I + 1)

PointOnPlaneAnd2To3VecB = CDbl(BMIFPAL.Palette(Values2(L)).B) + Vec2To3B * PlaneCutPosition - SrcPixels(I + 0)

Dim VecToThatPointR As Double, VecToThatPointG As Double, VecToThatPointB As Double, VecToThatPointLen As Double

VecToThatPointR = PointOnPlaneAnd2To3VecR - Vec1R(L)

VecToThatPointG = PointOnPlaneAnd2To3VecG - Vec1G(L)

VecToThatPointB = PointOnPlaneAnd2To3VecB - Vec1B(L)

VecToThatPointLen = Sqr(VecToThatPointR * VecToThatPointR + VecToThatPointG * VecToThatPointG + VecToThatPointB * VecToThatPointB)

VecToThatPointR = VecToThatPointR / VecToThatPointLen

VecToThatPointG = VecToThatPointG / VecToThatPointLen

VecToThatPointB = VecToThatPointB / VecToThatPointLen

ProjLen = (-Vec1R(L) * VecToThatPointR - Vec1G(L) * VecToThatPointG - Vec1B(L) * VecToThatPointB) / VecToThatPointLen

If ProjLen * 255 <= DitherValue Then DestPixels(L) = Values1(L)

Else '抖动颜色1、2、3、4

Dim Plane12PA As Double, Plane12PB As Double, Plane12PC As Double, Plane12PD As Double, Plane12PABCLen As Double

Dim Plane34PA As Double, Plane34PB As Double, Plane34PC As Double, Plane34PD As Double, Plane34PABCLen As Double

Plane12PA = Vec1G(L) * Vec2B(L) - Vec1B(L) * Vec2G(L)

Plane12PB = Vec1B(L) * Vec2R(L) - Vec1R(L) * Vec2B(L)

Plane12PC = Vec1R(L) * Vec2G(L) - Vec1G(L) * Vec2R(L)

Plane34PA = Vec3G(L) * Vec4B(L) - Vec3B(L) * Vec4G(L)

Plane34PB = Vec3B(L) * Vec4R(L) - Vec3R(L) * Vec4B(L)

Plane34PC = Vec3R(L) * Vec4G(L) - Vec3G(L) * Vec4R(L)

Plane12PD = -(Plane12PA * SrcPixels(I + 2) + Plane12PB * SrcPixels(I + 1) + Plane12PC * SrcPixels(I + 0))

Plane34PD = -(Plane34PA * SrcPixels(I + 2) + Plane34PB * SrcPixels(I + 1) + Plane34PC * SrcPixels(I + 0))

Plane12PABCLen = Sqr(Plane12PA * Plane12PA + Plane12PB * Plane12PB + Plane12PC * Plane12PC)

Plane34PABCLen = Sqr(Plane34PA * Plane34PA + Plane34PB * Plane34PB + Plane34PC * Plane34PC)

Plane12PA = Plane12PA / Plane12PABCLen

Plane12PB = Plane12PB / Plane12PABCLen

Plane12PC = Plane12PC / Plane12PABCLen

Plane12PD = Plane12PD / Plane12PABCLen

Plane34PA = Plane34PA / Plane34PABCLen

Plane34PB = Plane34PB / Plane34PABCLen

Plane34PC = Plane34PC / Plane34PABCLen

Plane34PD = Plane34PD / Plane34PABCLen

Dim Distance1ToP34 As Double, Distance2ToP34 As Double

Dim Distance3ToP12 As Double, Distance4ToP12 As Double

Distance1ToP34 = Abs(Vec1R(L) * Plane34PA + Vec1G(L) * Plane34PB + Vec1B(L) * Plane34PC + Plane34PD)

Distance2ToP34 = Abs(Vec2R(L) * Plane34PA + Vec2G(L) * Plane34PB + Vec2B(L) * Plane34PC + Plane34PD)

Distance3ToP12 = Abs(Vec3R(L) * Plane12PA + Vec3G(L) * Plane12PB + Vec3B(L) * Plane12PC + Plane12PD)

Distance4ToP12 = Abs(Vec4R(L) * Plane12PA + Vec4G(L) * Plane12PB + Vec4B(L) * Plane12PC + Plane12PD)

Dim P12Cut34 As Double, P34Cut12 As Double

P12Cut34 = Distance3ToP12 + (Distance3ToP12 + Distance4ToP12)

P34Cut12 = Distance1ToP34 + (Distance1ToP34 + Distance2ToP34)

Dim Value12 As Byte, Value34 As Byte

If P12Cut34 * 255 <= DitherValue Then Value34 = Values3(L) Else Value34 = Values4(L)

If P34Cut12 * 255 <= DitherValue Then Value12 = Values1(L) Else Value12 = Values2(L)

Vec1To2R = Vec2R(L) - Vec1R(L)

Vec1To2G = Vec2G(L) - Vec1G(L)

Vec1To2B = Vec2B(L) - Vec1B(L)

Dim Vec3To4R As Long, Vec3To4G As Long, Vec3To4B As Long

Vec3To4R = Vec4R(L) - Vec3R(L)

Vec3To4G = Vec4G(L) - Vec3G(L)

Vec3To4B = Vec4B(L) - Vec3B(L)

Dim CutPoint1R As Double, CutPoint1G As Double, CutPoint1B As Double

Dim CutPoint2R As Double, CutPoint2G As Double, CutPoint2B As Double

CutPoint1R = Vec1R(L) + Vec1To2R * P34Cut12

CutPoint1G = Vec1G(L) + Vec1To2G * P34Cut12

CutPoint1B = Vec1B(L) + Vec1To2B * P34Cut12

CutPoint2R = Vec3R(L) + Vec3To4R * P12Cut34

CutPoint2G = Vec3G(L) + Vec3To4G * P12Cut34

CutPoint2B = Vec3B(L) + Vec3To4B * P12Cut34

Dim Dist12 As Double, Dist34 As Double

Dist12 = Sqr(CutPoint1R * CutPoint1R + CutPoint1G * CutPoint1G + CutPoint1B * CutPoint1B)

Dist34 = Sqr(CutPoint2R * CutPoint2R + CutPoint2G * CutPoint2G + CutPoint2B * CutPoint2B)

If Dist12 * 255 / (Dist12 + Dist34) <= DitherValue Then DestPixels(L) = Value12 Else DestPixels(L) = Value34

End If

I = I + 3

L = L + 1

NTm = Timer

If NTm - Tm >= RefreshInterval Then

Tm = NTm

SetDIBits picResult.hDC, picResult.Image.Handle, 0, PH, DestPixels(0), BMIFPAL, DIB_RGB_COLORS

DrawProgress Y / (PH - 1)

picResult.Refresh

DoEvents

If QuitLoop Then Exit For

End If

LStart1 = LStart1 + Pitch1

LStart2 = LStart2 + Pitch2

SetDIBits picResult.hDC, picResult.Image.Handle, 0, PH, DestPixels(0), BMIFPAL, DIB_RGB_COLORS

DrawProgress 1

picResult.Refresh

cmdDither.Enabled = False

OpSrcPic.Enabled = True

OpDitherPic.Enabled = True

OpDitherPic.Value = True

End Sub

Private Sub Form_Load()

With BMIF24

.biSize = 40

.biPlanes = 1

.biBitCount = 24

End With

With BMIFPAL

.biSize = 40

.biPlanes = 1

.biBitCount = COLORS_BITS

.biClrUsed = COLORS_MAX

.biClrImportant = COLORS_MAX

End With

LM = LoadResData(101, "LIGHTMATRIX")

Randomize Timer

ProgWidth = picProgress.ScaleWidth

End Sub

Function Lerp(ByVal V1 As Long, ByVal V2 As Long, ByVal Val_0_255 As Long) As Long

Lerp = V1 + (V2 - V1) * Val_0_255 \ 255

End Function

Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)

On Local Error GoTo eHandlr

Picture = LoadPicture(Data.Files(1))

PW = ScaleX(Picture.Width, vbHimetric, vbPixels)

PH = ScaleY(Picture.Height, vbHimetric, vbPixels)

picSrcPic.Move 0, 0, PW, PH

picSrcPic.PaintPicture Picture, 0, 0

picColor1.Cls

picColor2.Cls

picColor3.Cls

picColor4.Cls

picResult.Cls

picColor1.Visible = False

picColor2.Visible = False

picColor3.Visible = False

picColor4.Visible = False

picResult.Visible = False

picColor1.Move PW * 0, 0, PW, PH

picColor2.Move PW * 1, 0, PW, PH

picColor3.Move PW * 2, 0, PW, PH

picColor4.Move PW * 3, 0, PW, PH

picResult.Move PW * 4, 0, PW, PH

picDither_Resize

HSDither_Change

BMIF24.biWidth = PW

BMIF24.biHeight = PH

BMIFPAL.biWidth = PW

BMIFPAL.biHeight = PH

DrawProgress 0

If ChRandomPalette.Value Then

Dim I&

For I = 0 To UBound(BMIFPAL.Palette)

BMIFPAL.Palette(I).R = Rnd * 255

BMIFPAL.Palette(I).G = Rnd * 255

BMIFPAL.Palette(I).B = Rnd * 255

Else

If CreateOctreePaletteFromHBITMAP(hDC, Picture.Handle, PW, PH, COLORS_MAX, COLORS_BITS, BMIFPAL.Palette(0)) = 0 Then

MsgBox "生成调色板失败。", vbExclamation

End If

DrawPal

cmdDither.Enabled = True

OpSrcPic.Enabled = False

OpDitherPic.Enabled = False

OpSrcPic.Value = True

Exit Sub

eHandlr:

MsgBox Err.Description, vbExclamation, "出错"

End Sub

Sub DrawPal()

Dim X&, Y&

Dim DrX&, DrY&

Dim I&

For Y = 0 To 15

DrX = 0

For X = 0 To 15

picPal.Line (DrX, DrY)-(DrX + 4, DrY + 4), RGB(BMIFPAL.Palette(I).R, BMIFPAL.Palette(I).G, BMIFPAL.Palette(I).B), BF

I = I + 1

If I >= COLORS_MAX Then Exit Sub

DrX = DrX + 5

DrY = DrY + 5

End Sub

Private Sub Form_Resize()

On Error Resume Next

picDither.Width = picRightPanel.Left

End Sub

Private Sub Form_Unload(Cancel As Integer)

QuitLoop = True

End

End Sub

Private Sub HSDither_Change()

On Error Resume Next

Dim LeftBegin As Long

LeftBegin = -HSDither.Value

picColor1.Left = LeftBegin + PW * 0

picColor2.Left = LeftBegin + PW * 1

picColor3.Left = LeftBegin + PW * 2

picColor4.Left = LeftBegin + PW * 3

picResult.Left = LeftBegin + PW * 4

End Sub

Private Sub HSDither_Scroll()

HSDither_Change

End Sub

Private Sub OpDitherPic_Click()

picSrcPic.Visible = False

picDither.Visible = True

End Sub

Private Sub OpSrcPic_Click()

picSrcPic.Visible = True

picDither.Visible = False

End Sub

Private Sub picDither_Resize()

On Error Resume Next

Dim PP1W As Long, PP1H As Long, HSMax As Long

PP1W = picDither.ScaleWidth

PP1H = picDither.ScaleHeight

HSDither.Move 0, PP1H - 17, PP1W, 17

HSMax = PW * 5 - PP1W

If HSMax > 0 Then

HSDither.Max = HSMax

HSDither.LargeChange = PP1W

HSDither.Visible = True

Else

HSDither.Value = 0

HSDither.Visible = False

End If

End Sub

你可能感兴趣的:(c实现,图像dither算法)

机器学习与深度学习间关系与区别 ℒℴѵℯ心·动ꦿ໊ོ꫞ 人工智能学习深度学习 python
一、机器学习概述定义机器学习（MachineLearning,ML）是一种通过数据驱动的方法，利用统计学和计算算法来训练模型，使计算机能够从数据中学习并自动进行预测或决策。机器学习通过分析大量数据样本，识别其中的模式和规律，从而对新的数据进行判断。其核心在于通过训练过程，让模型不断优化和提升其预测准确性。主要类型1.监督学习（SupervisedLearning）监督学习是指在训练数据集中包含输入
android系统selinux中添加新属性property 辉色投像
1.定位/android/system/sepolicy/private/property_contexts声明属性开头：persist.charge声明属性类型：u:object_r:system_prop:s0图12.定位到android/system/sepolicy/public/domain.te删除neverallow{domain-init}default_prop:property
【iOS】MVC设计模式 Magnetic_h ios mvc 设计模式 objective-c 学习 ui
MVC前言如何设计一个程序的结构，这是一门专门的学问，叫做"架构模式"（architecturalpattern），属于编程的方法论。MVC模式就是架构模式的一种。它是Apple官方推荐的App开发架构，也是一般开发者最先遇到、最经典的架构。MVC各层controller层Controller/ViewController/VC（控制器）负责协调Model和View，处理大部分逻辑它将数据从Mod
OC语言多界面传值五大方式 Magnetic_h ios ui 学习 objective-c 开发语言
前言在完成暑假仿写项目时，遇到了许多需要用到多界面传值的地方，这篇博客来总结一下比较常用的五种多界面传值的方式。属性传值属性传值一般用前一个界面向后一个界面传值，简单地说就是通过访问后一个视图控制器的属性来为它赋值，通过这个属性来做到从前一个界面向后一个界面传值。首先在后一个界面中定义属性@interfaceBViewController:UIViewController@propertyNSSt
UI学习——cell的复用和自定义cell Magnetic_h ui 学习
目录cell的复用手动（非注册）自动（注册）自定义cellcell的复用在iOS开发中，单元格复用是一种提高表格（UITableView）和集合视图（UICollectionView）滚动性能的技术。当一个UITableViewCell或UICollectionViewCell首次需要显示时，如果没有可复用的单元格，则视图会创建一个新的单元格。一旦这个单元格滚动出屏幕，它就不会被销毁。相反，它被添
element实现动态路由+面包屑软件技术NINI vue案例 vue.js 前端
el-breadcrumb是ElementUI组件库中的一个面包屑导航组件，它用于显示当前页面的路径，帮助用户快速理解和导航到应用的各个部分。在Vue.js项目中，如果你已经安装了ElementUI，就可以很方便地使用el-breadcrumb组件。以下是一个基本的使用示例：安装ElementUI（如果你还没有安装的话）:你可以通过npm或yarn来安装ElementUI。bash复制代码npmi
C语言宏函数南林yan C语言 c语言
一、什么是宏函数？通过宏定义的函数是宏函数。如下，编译器在预处理阶段会将Add(x,y)替换为((x)*(y))#defineAdd(x,y)((x)*(y))#defineAdd(x,y)((x)*(y))intmain(){inta=10;intb=20;intd=10;intc=Add(a+d,b)*2;cout<
C语言如何定义宏函数？小九格物 c语言
在C语言中，宏函数是通过预处理器定义的，它在编译之前替换代码中的宏调用。宏函数可以模拟函数的行为，但它们不是真正的函数，因为它们在编译时不会进行类型检查，也不会分配存储空间。宏函数的定义通常使用#define指令，后面跟着宏的名称和参数列表，以及宏展开后的代码。宏函数的定义方式：1.基本宏函数：这是最简单的宏函数形式，它直接定义一个表达式。#defineSQUARE(x)((x)*(x))2.带参
微服务下功能权限与数据权限的设计与实现 nbsaas-boot 微服务 java 架构
在微服务架构下，系统的功能权限和数据权限控制显得尤为重要。随着系统规模的扩大和微服务数量的增加，如何保证不同用户和服务之间的访问权限准确、细粒度地控制，成为设计安全策略的关键。本文将讨论如何在微服务体系中设计和实现功能权限与数据权限控制。1.功能权限与数据权限的定义功能权限：指用户或系统角色对特定功能的访问权限。通常是某个用户角色能否执行某个操作，比如查看订单、创建订单、修改用户资料等。数据权限：
理解Gunicorn：Python WSGI服务器的基石范范0825 ipython linux 运维
理解Gunicorn：PythonWSGI服务器的基石介绍Gunicorn，全称GreenUnicorn，是一个为PythonWSGI（WebServerGatewayInterface）应用设计的高效、轻量级HTTP服务器。作为PythonWeb应用部署的常用工具，Gunicorn以其高性能和易用性著称。本文将介绍Gunicorn的基本概念、安装和配置，帮助初学者快速上手。1.什么是Gunico
2021年12月19日，春蕾教育集团团建活动感受——黄晓丹黄错错加油
感受:1.从陌生到熟悉的过程。游戏环节让我们在轻松的氛围中得到了锻炼，也增长了不少知识。2.游戏过程中，我们贡献的是个人力量，展现的是团队的力量。它磨合的往往不止是工作的熟悉，更是观念上契合度的贴近。3.这和工作是一样的道理。在各自的岗位上，每个人摆正自己的位置、各司其职充分发挥才能，并团结一致劲往一处使，才能实现最大的成功。新知:1.团队精神需要不断地创新。过去，人们把创新看作是冒风险，现在人们
Cell Insight | 单细胞测序技术又一新发现，可用于HIV-1和Mtb共感染个体诊断尐尐呅
结核病是艾滋病合并其他疾病中导致患者死亡的主要原因。其中结核病由结核分枝杆菌（Mycobacteriumtuberculosis,Mtb）感染引起，获得性免疫缺陷综合症（艾滋病）由人免疫缺陷病毒（Humanimmunodeficiencyvirustype1,HIV-1）感染引起。国家感染性疾病临床医学研究中心/深圳市第三人民医院张国良团队携手深圳华大生命科学研究院吴靓团队，共同研究得出单细胞测序
c++ 的iostream 和 c++的stdio的区别和联系黄卷青灯77 c++算法开发语言 iostream stdio
在C++中，iostream和C语言的stdio.h都是用于处理输入输出的库，但它们在设计、用法和功能上有许多不同。以下是两者的区别和联系：区别1.编程风格iostream（C++风格）：C++标准库中的输入输出流类库，支持面向对象的输入输出操作。典型用法是cin（输入）和cout（输出），使用>操作符来处理数据。更加类型安全，支持用户自定义类型的输入输出。#includeintmain(){in
Long类型前后端数据不一致 igotyback 前端
响应给前端的数据浏览器控制台中response中看到的Long类型的数据是正常的到前端数据不一致前后端数据类型不匹配是一个常见问题，尤其是当后端使用Java的Long类型（64位）与前端JavaScript的Number类型（最大安全整数为2^53-1，即16位）进行数据交互时，很容易出现精度丢失的问题。这是因为JavaScript中的Number类型无法安全地表示超过16位的整数。为了解决这个问
LocalDateTime 转 String igotyback java 开发语言
importjava.time.LocalDateTime;importjava.time.format.DateTimeFormatter;publicclassMain{publicstaticvoidmain(String[]args){//获取当前时间LocalDateTimenow=LocalDateTime.now();//定义日期格式化器DateTimeFormatterformat
swagger访问路径 igotyback swagger
Swagger2.x版本访问地址：http://{ip}:{port}/{context-path}/swagger-ui.html{ip}是你的服务器IP地址。{port}是你的应用服务端口，通常为8080。{context-path}是你的应用上下文路径，如果应用部署在根路径下，则为空。Swagger3.x版本对于Swagger3.x版本（也称为OpenAPI3）访问地址：http://{ip
mysql禁用远程登录 igotyback mysql
去mysql库中的user表里，将host都改成localhost之后刷新权限FLUSHPRIVILEGES;
Linux下QT开发的动态库界面弹出操作（SDL2） 13jjyao QT类 qt 开发语言 sdl2 linux
需求：操作系统为linux，开发框架为qt，做成需带界面的qt动态库，调用方为java等非qt程序难点：调用方为java等非qt程序，也就是说调用方肯定不带QApplication::exec()，缺少了这个，QTimer等事件和QT创建的窗口将不能弹出(包括opencv也是不能弹出)；这与qt调用本身qt库是有本质的区别的思路：1.调用方缺QApplication::exec()，那么我们在接口
店群合一模式下的社区团购新发展——结合链动 2+1 模式、AI 智能名片与 S2B2C 商城小程序源码说私域人工智能小程序
摘要：本文探讨了店群合一的社区团购平台在当今商业环境中的重要性和优势。通过分析店群合一模式如何将互联网社群与线下终端紧密结合，阐述了链动2+1模式、AI智能名片和S2B2C商城小程序源码在这一模式中的应用价值。这些创新元素的结合为社区团购带来了新的机遇，提升了用户信任感、拓展了营销渠道，并实现了线上线下的完美融合。一、引言随着互联网技术的不断发展，社区团购作为一种新兴的商业模式，在满足消费者日常需
消息中间件有哪些常见类型 xmh-sxh-1314 java
消息中间件根据其设计理念和用途，可以大致分为以下几种常见类型：点对点消息队列（Point-to-PointMessagingQueues）：在这种模型中，消息被发送到特定的队列中，消费者从队列中取出并处理消息。队列中的消息只能被一个消费者消费，消费后即被删除。常见的实现包括IBM的MQSeries、RabbitMQ的部分使用场景等。适用于任务分发、负载均衡等场景。发布/订阅消息模型（Pub/Sub
html 中如何使用 uniapp 的部分方法某公司摸鱼前端 html uni-app 前端
示例代码：Documentconsole.log(window);效果展示：好了，现在就可以uni.使用相关的方法了
ArcGIS栅格计算器常见公式（赋值、0和空值的转换、补充栅格空值）研学随笔 arcgis 经验分享
我们在使用ArcGIS时通常经常用到栅格计算器，今天主要给大家介绍我日常中经常用到的几个公式，供大家参考学习。将特定值（-9999）赋值为0，例如-9999.Con("raster"==-9999,0,"raster")2.给空值赋予特定的值（如0）Con(IsNull("raster"),0,"raster")3.将特定的栅格值(如1)赋值为空值，其他保留原值SetNull("raster"==
高级编程--XML+socket练习题 masa010 java 开发语言
1.北京华北2114.8万人上海华东2,500万人广州华南1292.68万人成都华西1417万人（1）使用dom4j将信息存入xml中（2）读取信息，并打印控制台（3）添加一个city节点与子节点（4）使用socketTCP协议编写服务端与客户端，客户端输入城市ID，服务器响应相应城市信息（5）使用socketTCP协议编写服务端与客户端，客户端要求用户输入city对象，服务端接收并使用dom4j
水平垂直居中的几种方法（总结） LJ小番茄 CSS_玄学语言 html javascript 前端 css css3
1.使用flexbox的justify-content和align-items.parent{display:flex;justify-content:center;/*水平居中*/align-items:center;/*垂直居中*/height:100vh;/*需要指定高度*/}2.使用grid的place-items:center.parent{display:grid;place-item
回溯 Leetcode 332 重新安排行程 mmaerd Leetcode刷题学习记录 leetcode 算法职场和发展
重新安排行程Leetcode332学习记录自代码随想录给你一份航线列表tickets，其中tickets[i]=[fromi,toi]表示飞机出发和降落的机场地点。请你对该行程进行重新规划排序。所有这些机票都属于一个从JFK（肯尼迪国际机场）出发的先生，所以该行程必须从JFK开始。如果存在多种有效的行程，请你按字典排序返回最小的行程组合。例如，行程[“JFK”,“LGA”]与[“JFK”,“LGB
每日一题——第八十九题互联网打工人no1 C语言程序设计每日一练 c语言
题目：在字符串中找到提取数字，并统计一共找到多少整数，a123xxyu23&8889，那么找到的整数为123，23，8889//思想：#include#include#includeintmain(){charstr[]="a123xxyu23&8889";intcount=0;intnum=0;//用于临时存放当前正在构建的整数。boolinNum=false;//用于标记当前是否正在读取一个整
每日一题——第九十题互联网打工人no1 C语言程序设计每日一练 c语言
题目：判断子串是否与主串匹配#include#include#include//////判断子串是否在主串中匹配//////主串///子串///boolisSubstring(constchar*str,constchar*substr){intlenstr=strlen(str);//计算主串的长度intlenSub=strlen(substr);//计算子串的长度//遍历主字符串，对每个可能得
每日一题——第八十一题互联网打工人no1 C语言程序设计每日一练 c语言
打印如下图案:#includeintmain(){inti,j;charch='A';for(i=1;i<5;i++,ch++){for(j=0;j<5-i;j++){printf("");//控制空格输出}for(j=1;j<2*i;j++)//条件j<2*i{printf("%c",ch);//控制字符输出}printf("\n");}return0;}
每日一题——第八十四题互联网打工人no1 C语言程序设计每日一练 c语言
题目：编写函数1、输入10个职工的姓名和职工号2、按照职工由大到小顺序排列，姓名顺序也随之调整3、要求输入一个职工号，用折半查找法找出该职工的姓名#define_CRT_SECURE_NO_WARNINGS#include#include#defineMAX_EMPLOYEES10typedefstruct{intid;charname[50];}Empolyee;voidinputEmploye
每日一题——第八十二题互联网打工人no1 C语言程序设计每日一练 c语言
题目：将一个控制台输入的字符串中的所有元音字母复制到另一字符串中#include#include#include#include#defineMAX_INPUT1024boolisVowel(charp);intmain(){charinput[MAX_INPUT];charoutput[MAX_INPUT];printf("请输入一串字符串：\n");fgets(input,sizeof(inp
矩阵求逆（JAVA）利用伴随矩阵 qiuwanchi 利用伴随矩阵求逆矩阵
package gaodai.matrix; import gaodai.determinant.DeterminantCalculation; import java.util.ArrayList; import java.util.List; import java.util.Scanner; /** * 矩阵求逆(利用伴随矩阵) * @author 邱万迟
单例（Singleton）模式 aoyouzi 单例模式 Singleton
3.1 概述如果要保证系统里一个类最多只能存在一个实例时，我们就需要单例模式。这种情况在我们应用中经常碰到，例如缓存池，数据库连接池，线程池，一些应用服务实例等。在多线程环境中，为了保证实例的唯一性其实并不简单，这章将和读者一起探讨如何实现单例模式。 3.2
[开源与自主研发]就算可以轻易获得外部技术支持,自己也必须研发 comsci 开源
现在国内有大量的信息技术产品，都是通过盗版，免费下载，开源，附送等方式从国外的开发者那里获得的。。。。。。虽然这种情况带来了国内信息产业的短暂繁荣，也促进了电子商务和互联网产业的快速发展，但是实际上，我们应该清醒的看到，这些产业的核心力量是被国外的
页面有两个frame,怎样点击一个的链接改变另一个的内容 Array_06 UI XHTML
<a src="地址" targets="这里写你要操作的Frame的名字" />搜索然后你点击连接以后你的新页面就会显示在你设置的Frame名字的框那里 targerts="",就是你要填写目标的显示页面位置 ===================== 例如： <frame src=&
Struts2实现单个/多个文件上传和下载 oloz 文件上传 struts
struts2单文件上传：步骤01:jsp页面  　　<form action="fileUplo
推荐10个在线logo设计网站 362217990 logo
在线设计Logo网站。 1、http://flickr.nosv.org（这个太简单） 2、http://www.logomaker.com/?source=1.5770.1 3、http://www.simwebsol.com/ImageTool 4、http://www.logogenerator.com/logo.php?nal=1&tpl_catlist[]=2 5、ht
jsp上传文件香水浓 jsp fileupload
1. jsp上传 Notice： 1. form表单 method 属性必须设置为 POST 方法，不能使用 GET 方法 2. form表单 enctype 属性需要设置为 multipart/form-data 3. form表单 action 属性需要设置为提交到后台处理文件上传的jsp文件地址或者servlet地址。例如 uploadFile.jsp 程序文件用来处理上传的文
我的架构经验系列文章 - 前端架构 agevs JavaScript Web 框架 UI jQuer
框架层面：近几年前端发展很快，前端之所以叫前端因为前端是已经可以独立成为一种职业了，js也不再是十年前的玩具了，以前富客户端RIA的应用可能会用flash/flex或是silverlight，现在可以使用js来完成大部分的功能，因此js作为一门前端的支撑语言也不仅仅是进行的简单的编码，越来越多框架性的东西出现了。越来越多的开发模式转变为后端只是吐json的数据源，而前端做所有UI的事情。MVCMV
android ksoap2 中把XML(DataSet) 当做参数传递 aijuans android
我的android app中需要发送webservice ，于是我使用了 ksop2 进行发送，在测试过程中不是很顺利,不能正常工作.我的web service 请求格式如下 [html] view plain copy <Envelope xmlns="http://schemas.
使用Spring进行统一日志管理 + 统一异常管理 baalwolf spring
统一日志和异常管理配置好后，SSH项目中，代码以往散落的log.info() 和 try..catch..finally 再也不见踪影！统一日志异常实现类： [java] view plain copy package com.pilelot.web.util; impor
Android SDK 国内镜像 BigBird2012 android sdk
一、镜像地址： 1、东软信息学院的 Android SDK 镜像，比配置代理下载快多了。配置地址， http://mirrors.neusoft.edu.cn/configurations.we#android 2、北京化工大学的： IPV4:ubuntu.buct.edu.cn IPV4:ubuntu.buct.cn IPV6:ubuntu.buct6.edu.cn
HTML无害化和Sanitize模块 bijian1013 JavaScript AngularJS Linky Sanitize
一.ng-bind-html、ng-bind-html-unsafe AngularJS非常注重安全方面的问题，它会尽一切可能把大多数攻击手段最小化。其中一个攻击手段是向你的web页面里注入不安全的HTML，然后利用它触发跨站攻击或者注入攻击。考虑这样一个例子，假设我们有一个变量存
[Maven学习笔记二]Maven命令 bit1129 maven
mvn compile compile编译命令将src/main/java和src/main/resources中的代码和配置文件编译到target/classes中，不会对src/test/java中的测试类进行编译 MVN编译使用 maven-resources-plugin:2.6:resources maven-compiler-plugin:2.5.1:compile &nbs
【Java命令二】jhat bit1129 Java命令
jhat用于分析使用jmap dump的文件，，可以将堆中的对象以html的形式显示出来，包括对象的数量，大小等等，并支持对象查询语言。 jhat默认开启监听端口7000的HTTP服务，jhat是Java Heap Analysis Tool的缩写 1. 用法： [hadoop@hadoop bin]$ jhat -help Usage: jhat [-stack <bool&g
JBoss 5.1.0 GA:Error installing to Instantiated: name=AttachmentStore state=Desc ronin47
进到类似目录 server/default/conf/bootstrap，打开文件 profile.xml找到： Xml代码<bean name="AttachmentStore" class="org.jboss.system.server.profileservice.repository.AbstractAtta
写给初学者的6条网页设计安全配色指南 brotherlamp UI ui自学 ui视频 ui教程 ui资料
网页设计中最基本的原则之一是，不管你花多长时间创造一个华丽的设计，其最终的角色都是这场秀中真正的明星——内容的衬托我仍然清楚地记得我最早的一次美术课，那时我还是一个小小的、对凡事都充满渴望的孩子，我摆放出一大堆漂亮的彩色颜料。我仍然记得当我第一次看到原色与另一种颜色混合变成第二种颜色时的那种兴奋，并且我想，既然两种颜色能创造出一种全新的美丽色彩，那所有颜色
有一个数组，每次从中间随机取一个，然后放回去，当所有的元素都被取过，返回总共的取的次数。写一个函数实现。复杂度是什么。 bylijinnan java 算法面试
import java.util.Random; import java.util.Set; import java.util.TreeSet; /** * http://weibo.com/1915548291/z7HtOF4sx * #面试题#有一个数组，每次从中间随机取一个，然后放回去，当所有的元素都被取过，返回总共的取的次数。 * 写一个函数实现。复杂度是什么
struts2获得request、session、application方式 chiangfai application
1、与Servlet API解耦的访问方式。 a.Struts2对HttpServletRequest、HttpSession、ServletContext进行了封装，构造了三个Map对象来替代这三种对象要获取这三个Map对象，使用ActionContext类。 -----> package pro.action; import java.util.Map; imp
改变python的默认语言设置 chenchao051 python
import sys sys.getdefaultencoding() 可以测试出默认语言，要改变的话，需要在python lib的site-packages文件夹下新建： sitecustomize.py，这个文件比较特殊，会在python启动时来加载，所以就可以在里面写上： import sys sys.setdefaultencoding('utf-8') &n
mysql导入数据load data infile用法 daizj mysql 导入数据
我们常常导入数据！mysql有一个高效导入方法，那就是load data infile 下面来看案例说明基本语法： load data [low_priority] [local] infile 'file_name txt' [replace | ignore] into table tbl_name [fields [terminated by't'] [OPTI
phpexcel导入excel表到数据库简单入门示例 dcj3sjt126com PHP Excel
跟导出相对应的，同一个数据表，也是将phpexcel类放在class目录下，将Excel表格中的内容读取出来放到数据库中 <?php error_reporting(E_ALL); set_time_limit(0); ?> <html> <head> <meta http-equiv="Content-Type"
22岁到72岁的男人对女人的要求 dcj3sjt126com
22岁男人对女人的要求是：一，美丽，二，性感，三，有份具品味的职业，四，极有耐性，善解人意，五，该聪明的时候聪明，六，作小鸟依人状时尽量自然，七，怎样穿都好看，八，懂得适当地撒娇，九，虽作惊喜反应，但看起来自然，十，上了床就是个无条件荡妇。 32岁的男人对女人的要求，略作修定，是：一，入得厨房，进得睡房，二，不必服侍皇太后，三，不介意浪漫蜡烛配盒饭，四，听多过说，五，不再傻笑，六，懂得独
Spring和HIbernate对DDM设计的支持 e200702084 DAO 设计模式 spring Hibernate 领域模型
A：数据访问对象 DAO和资源库在领域驱动设计中都很重要。DAO是关系型数据库和应用之间的契约。它封装了Web应用中的数据库CRUD操作细节。另一方面，资源库是一个独立的抽象，它与DAO进行交互，并提供到领域模型的“业务接口”。资源库使用领域的通用语言，处理所有必要的DAO，并使用领域理解的语言提供对领域模型的数据访问服务。
NoSql 数据库的特性比较 geeksun NoSQL
Redis 是一个开源的使用ANSI C语言编写、支持网络、可基于内存亦可持久化的日志型、Key-Value数据库，并提供多种语言的API。目前由VMware主持开发工作。 1. 数据模型作为Key-value型数据库，Redis也提供了键（Key）和值（Value）的映射关系。除了常规的数值或字符串，Redis的键值还可以是以下形式之一： Lists （列表） Sets
使用 Nginx Upload Module 实现上传文件功能 hongtoushizi nginx
转载自： http://www.tuicool.com/wx/aUrAzm 普通网站在实现文件上传功能的时候，一般是使用Python，Java等后端程序实现，比较麻烦。Nginx有一个Upload模块，可以非常简单的实现文件上传功能。此模块的原理是先把用户上传的文件保存到临时文件，然后在交由后台页面处理，并且把文件的原名，上传后的名称，文件类型，文件大小set到页面。下
spring-boot-web-ui及thymeleaf基本使用 jishiweili spring thymeleaf
视图控制层代码demo如下： @Controller @RequestMapping("/") public class MessageController { private final MessageRepository messageRepository; @Autowired public MessageController(Mes
数据源架构模式之活动记录 home198979 PHP 架构活动记录数据映射
hello!架构一、概念活动记录（Active Record）：一个对象，它包装数据库表或视图中某一行，封装数据库访问，并在这些数据上增加了领域逻辑。对象既有数据又有行为。活动记录使用直截了当的方法，把数据访问逻辑置于领域对象中。二、实现简单活动记录活动记录在php许多框架中都有应用，如cakephp。 <?php /** * 行数据入口类 *
Linux Shell脚本之自动修改IP pda158 linux centos Debian 脚本
作为一名 Linux SA，日常运维中很多地方都会用到脚本，而服务器的ip一般采用静态ip或者MAC绑定，当然后者比较操作起来相对繁琐，而前者我们可以设置主机名、ip信息、网关等配置。修改成特定的主机名在维护和管理方面也比较方便。如下脚本用途为：修改ip和主机名等相关信息，可以根据实际需求修改，举一反三！ #!/bin/sh #auto Change ip netmask ga
开发环境搭建独浮云 eclipse jdk tomcat
最近在开发过程中，经常出现MyEclipse内存溢出等错误，需要重启的情况，好麻烦。对于一般的JAVA+TOMCAT项目开发，其实没有必要使用重量级的MyEclipse，使用eclipse就足够了。尤其是开发机器硬件配置一般的人。 &n

c实现 图像dither算法_【图像】抖动算法实现真彩色图片高细节256色降级处理【旧帖，效果不好，勿用】...

你可能感兴趣的:(c实现,图像dither算法)

c实现图像dither算法_【图像】抖动算法实现真彩色图片高细节256色降级处理【旧帖，效果不好，勿用】...