Страница 1 из 1
  • Вы не можете создать новую тему
  • Вы не можете ответить в тему

Манипуляция цветом Трюки с Canon IX5000

|    Сообщение #1 Отправлено 06 июля 2007 - 14:43
Гостьkurbads_*

Мне после 17 000 умерла голова на IX5000 и я за 110$ купил новую.
После 3 500 подох желтый. Поскольку мне для печати нужен в основном только красный, я вместо циана подал желтый а красный цвет переделал в синий.
Так как мне каждый цвет является одельным покршеным битмапом, это не составило труда. И печатаю дальше.
Теперь мне осенило, что надо было сделать это сначала. Так как я почти не пользуюсь цианом, его можно было пустить через желтый и соотвественно изменить состав цвета.
1) Зеленый цвет не меняеться так как в нем 100%C и 100%M
2) Red меняем на синий.
3) Меняем желтый на циан.

Прикрепленные изображения

  • Прикрепленное изображение: post-24-1183725807.gif

|    Сообщение #2 Отправлено 06 июля 2007 - 14:51
Гостьkurbads_*

Вид принтера.

Прикрепленные изображения

  • Прикрепленное изображение: post-24-1183726297.jpg

|    Сообщение #3 Отправлено 24 июля 2007 - 16:34
Гостьkurbads_*

Для успешной замены цвета надо поставить Color Correction на None.
Я поствил новую голову и констатировал, что он мне в желтый наливает циан, потому что думает, что это циан в который надо долить желтый. :unsure:
На картинке с лева Correction: Driver Matching, с права Correction: None.
В правой стороне виден симетричный массив, а слева мура.
Прикрепленное изображение: iX5000ColorTable.jpg
Наконец в первые вижу, что цвето коррекцию можно реально отключить!
Чистый синий печатается как чистый желтый.

А вот WordBasic macro, который делает эти таблицы в PageMaker.
Sub MAIN
DDETerminateAll
Chan = DDEInitiate("PageMaker", "")
DDEExecute Chan, "supressautosave"
For x = 0 To 10
	For y = 0 To 10
		DDEExecute Chan, "Box" + Str$(x * 10) + Str$(y * 10) + Str$(x * 10 + 10) + Str$(y * 10 + 10)
		ColName$ = Str$(x * 10) + Str$(y * 10) + Str$(y * 10)
		ColName$ = Str$(x * 10) + Str$(y * 10) + " 0"
REM 		ColName$ = Str$(x * 10) + " 0" + Str$(y * 10)
REM 		ColName$ = " 0" + Str$(x * 10) + Str$(y * 10)
		DDEExecute Chan, "DefineColor " + Chr$(34) + "Color" + ColName$ + Chr$(34) + ", process, RGB 0" + ColName$
		DDEExecute Chan, "Color " + Chr$(34) + "Color" + ColName$ + Chr$(34)
		DDEExecute Chan, ""
	Next
Next
DDETerminateAll
End Sub