Перевести картинку в 16 цветов!

[kozak]

Прошу извининения за несовсем поянтную тему...
Мне нужно как-то сделать что бы можно было перевести обычную картинку в паскаль, т.е. по-пиксольно считать все пиксели а потом сделать это кодом паскаля... у меня такая проблема что паскаль поддерживает только 16 цветов и я не могу различить где какой...
Я думаю суть понятная... вот код что бы получить цвет пикселя в картинке:

Код: Выделить всё

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long

Private Sub Form_Load()
    Me.AutoRedraw = True
    msgbox = GetPixel(Picture1.hdc, XX, YY)
End Sub


[Faust]

А адрес электронной почты у тебя есть? Если да, то укажи в профиле или напиши что-нибудь мне, если не хочешь его разглашать. Я писал нечто подобное в свое время.

[GAGArin]

Можно по соотношению и каким-то заданным рамкам цветовых составляющих. Но я не очень уверен в том что это сильно хорошо будет. Да и ещё когда я писал такую прогу на QB то он загибался от обилия точек. Думаю такая же фигня будет и с паскалем. Не привык он к миллионам точек (я думаю) Да и качество картинки после перевода тебя "поразит"

[Mikle]

Я тоже писал такое на QB, а чтобы качество не "поражало", сделал рэндомную зависимость полученного цвета от исходного. Выбирал четыре ближайших цвета, какой ближе, у того выше вероятность. Получается что-то вроде заставки из установки Win95 - такая синяя клавиатура, вся в мелких точках.
...Не могу найти.

[Шурик]

На QB можно сделать 1024х768 32bit без проблем...

[GAGArin]

На QB можно сделать 1024х768 32bit без проблем...

Как? Если не секрет? Всегда хотел узнать можно ли и как?

[Шурик]

На QB 4.5:

Код: Выделить всё

DECLARE SUB Pixel (x%, y%, Col%)
   DECLARE SUB ScreenMode (SM%)

   ' $INCLUDE: 'qb.bi'                            'Required to use
   DIM SHARED InReg AS RegType, OutReg AS RegType 'CALL INTERRUPT

   DEFINT A-Z                   'Defines all variables as Integers

   ScreenMode &H101             'Call sub ScreenMode
   FOR a = 1 TO 640             'Begins "a" FOR-NEXT Loop
    Col = Col + 1               'Increases variable Col
    IF Col = 256 THEN Col = 1   'If Col is bigger than 256,
                                'then set it to 1
    FOR b = 1 TO 480            'Begins "b" FOR-NEXT Loop
     Pixel a, b, Col            'Call sub Pixel
    NEXT                        'Ends "b" FOR-NEXT Loop
   NEXT                         'Ends "a" FOR-NEXT Loop

   SLEEP 1                      'Waits for 1 second or user input
   ScreenMode 3                 'Return to text mode

   END                          'La fin!

   SUB Pixel (x, y, Col)

    InReg.Ax = &HC00 + Col             'Sticks your color into AX
    InReg.Cx = x                       'Sticks x value in CX
    InReg.Dx = y                       'Sticks y value in DX
    CALL INTERRUPT(&H10, InReg, OutReg)'Calls Int 10h, which places
                                       'a pixel at (x, y) with an
                                       'attribute of Col
   END SUB

   SUB ScreenMode (SM)

    'SM (ScreenMode) may be any one of the following:
    '3 = Text Mode
    '&H100 = 640x400x256
    '&H101 = 640x480x256
    '&H102 = 800x600x16
    '&H103 = 800x600x256
    '&H104 = 1024x768x16
    '&H105 = 1024x768x256

    InReg.Ax = &H4F02                      'Sticks 4F02h in AX
    InReg.Bx = SM                          'Sticks ScreenMode in BX
    CALL INTERRUPT(&H10, InReg, OutReg)    'Using InRegisters,
                                           'calls Int 10h and
                                           'sticks output (none in
                                           'this case) into
                                           'OutRegisters
   END SUB