Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.postscript > #1308

Re: Followup: Making an image into a pattern

Show all headers | View raw

On 2013-03-11 05:53:35 +0000, luser- -droog said:

> On Thursday, March 7, 2013 9:16:17 AM UTC-6, John Deubert wrote:
>> On 2013-03-07 14:59:52 +0000, John Deubert said:
>> 
>> 
>> 
>>> On 2013-03-07 12:57:17 +0000, alamraquib@gmail.com said:
>> 
>>> 
>> 
>>>> On Friday, September 25, 1998 12:30:00 PM UTC+5:30, Darrin Cardani wrote:
>> 
>>>>> Thanks to Martin Bailey for his help with getting an image into a pattern
>> 
>>>>> so I could apply an imagemask to it. For those of you who are interested, I
>> 
>>>>> learned the following things in my search:
>> 
>>>>> 
>> 
>>>>> If you want to use a color image as a pattern, you must use the 5 operand
>> 
>>>>> version of the colorimage command. It will not accept the dictionary
>> 
>>>>> version of the command. Apparently this is because the colorimage command
>> 
>>>>> does not require the current colorspace to be specified.
>> 
>>>>> 
>> 
>>>>> If you then want to apply an imagemask to it, you must also use the 5
>> 
>>>>> operand version of imagemask, rather than the dictionary version. I don't
>> 
>>>>> really understand why, but that's the way it is.
>> 
>>>>> 
>> 
>>>>> And you cannot use TilingType 2 in your pattern, I believe.
>> 
>>>>> 
>> 
>>>>> So my working code looks like this:
>> 
>>>>> 
>> 
>>>>> [...headers deleted...]
>> 
>>>>> currentfile 4096 string
>> 
>>>>> %%BeginBinary:  4107
>> 
>>>>> readstring
>> 
>>>>> [...4096 bytes deleted...]
>> 
>>>>> %%EndBinary
>> 
>>>>> pop
>> 
>>>>> /ImageData  exch def
>> 
>>>>> 
>> 
>>>>> /ImageDraw {
>> 
>>>>> 32 32 scale
>> 
>>>>> 32 32 8
>> 
>>>>> [ 32 0 0 -32 0 32 ]
>> 
>>>>> { ImageData }
>> 
>>>>> false 4
>> 
>>>>> colorimage
>> 
>>>>> } bind def
>> 
>>>>> 
>> 
>>>>> <<
>> 
>>>>> /PatternType    1
>> 
>>>>> /PaintType      1
>> 
>>>>> /TilingType     1
>> 
>>>>> /BBox           [ 0 0 32 32 ]
>> 
>>>>> /XStep          32
>> 
>>>>> /YStep          32
>> 
>>>>> /PaintProc  {
>> 
>>>>> begin
>> 
>>>>> ImageDraw
>> 
>>>>> end
>> 
>>>>> }
>> 
>>>>>>> 
>> 
>>>>> matrix
>> 
>>>>> makepattern
>> 
>>>>> 
>> 
>>>>> /ImagePat exch def
>> 
>>>>> 
>> 
>>>>> /Pattern setcolorspace
>> 
>>>>> ImagePat setcolor
>> 
>>>>> 
>> 
>>>>> 72 72 scale
>> 
>>>>> 
>> 
>>>>> currentfile 128 string
>> 
>>>>> %%BeginBinary:  139
>> 
>>>>> readstring
>> 
>>>>> [...128 bytes of mask data deleted...]
>> 
>>>>> %%EndBinary
>> 
>>>>> pop
>> 
>>>>> /MaskData   exch def
>> 
>>>>> 32 32 true [ 32 0 0 -32 0 32 ] { MaskData }
>> 
>>>>> imagemask
>> 
>>>>> 
>> 
>>>>> showpage
>> 
>>>>> 
>> 
>>>>> I hope that's helpful to someone!
>> 
>>>>> 
>> 
>>>>> Darrin
>> 
>>>>> 
>> 
>>>>> --
>> 
>>>>> Darrin Cardani
>> 
>>>> 
>> 
>>>> Hello,
>> 
>>>> I am also working on the Patterns in PostScript.
>> 
>>>> My image Data size is more than 65535. How that can be done. Could you
>> 
>>>> please provide a solution.
>> 
>>> 
>> 
>>> Hi, Darrin -
>> 
>>> 
>> 
>>> Actually, the modern versions of image and imagemask work perfectly
>> 
>>> well with an image-based pattern. Here's an example:
>> 
>>> 
>> 
>>> =========== Cut here =============
>> 
>>> 
>> 
>>> /ImageData  <
>> 
>>> 	ff0000 ff0000 00ff00
>> 
>>> 	00ff00 00ff00 0000ff
>> 
>>> 	0000ff 0000ff ff0000
>> 
>>>> def
>> 
>>> 
>> 
>>> 
>> 
>>> /ImagePat	<<
>> 
>>> 	/PatternType    1
>> 
>>> 	/PaintType      1
>> 
>>> 	/TilingType     1
>> 
>>> 	/BBox           [ 0 0 9 9 ]
>> 
>>> 	/XStep          12
>> 
>>> 	/YStep          12
>> 
>>> 	
>> 
>>> 	/DoImage {
>> 
>>> 		/DeviceRGB setcolorspace
>> 
>>> 		9 9 scale
>> 
>>> 		<<
>> 
>>> 			/ImageType 1
>> 
>>> 			/Width 3
>> 
>>> 			/Height 3
>> 
>>> 			/BitsPerComponent 8
>> 
>>> 			/ImageMatrix	[ 3 0 0 -3 0 3 ]
>> 
>>> 			/DataSource ImageData
>> 
>>> 			/Decode [ 0 1 0 1 0 1 ]
>> 
>>> 		>> image
>> 
>>> 	} bind
>> 
>>> 
>> 
>>> 	/PaintProc  {
>> 
>>> 		begin
>> 
>>> 		DoImage
>> 
>>> 		end
>> 
>>> 	}
>> 
>>>>> 
>> 
>>> matrix
>> 
>>> makepattern
>> 
>>> def
>> 
>>> 
>> 
>>> /Pattern ImagePat setpattern
>> 
>>> 
>> 
>>> 275 375 translate
>> 
>>> 72 72 scale
>> 
>>> 
>> 
>>> <<
>> 
>>> 	/ImageType 1
>> 
>>> 	/Width 50
>> 
>>> 	/Height 50
>> 
>>> 	/BitsPerComponent 1
>> 
>>> 	/ImageMatrix [ 50 0 0 -50 0 50 ]
>> 
>>> 	/DataSource currentfile
>> 
>>> 		/ASCII85Decode filter
>> 
>>> 		/LZWDecode filter
>> 
>>> 	/Decode [ 0 1 ]
>> 
>>>>> 
>> 
>>> imagemask
>> 
>>> J3Vsg3$]7K#&$;kY]q,L"Nu?=!&.@P!X-u'3$Q^>KPe$sNko5'p\XY>!0T5cnjja6
>> 
>>> IfG)9fY@f@%VIG45`ib]r"1#5J'MEZq?.:a&"p^jkR']arC`qETChaU*X;NaYU[tS
>> 
>>> rF(3YJ%jh/Jbt&8!djtJ('\W9eIuLYj.H[IZK6+`[@cjpPZd*p^;&ATp'&$0_8B6W
>> 
>>> (7AV9]/6KsT9De[:FA$(5GsLMp1AjQcVbhs2u!HV0%,8UHAeT!)$H>mi(YU*~>
>> 
>>> 
>> 
>>> showpage
>> 
>>> 
>> 
>>> =========== Cut here =============
>> 
>>> 
>> 
>>> I happened to have much of this code lying around in examples from
>> 
>>> various classes I teach.
>> 
>>> 
>> 
>>> - John
>> 
>> 
>> 
>> Hmmm. I see that several of the less-than symbols got mangled by my
>> 
>> newsreader, so none of the dictionaries are closed. Odd. I assume you
>> 
>> can figure out where they go.
>> 
>> 
>> 
>> Here's a dropbox link to an unmangled version of the code:
>> 
>> 
>> 
>> 	https://dl.dropbox.com/u/29544294/ImagePatternExample.ps
>> 
>> 
>> 
>> I'll leave it there for a week or so.
>> 
>> 
>> 
>> - J
>> 
> 
> Uh, you did see the original message was from 1998, right?

I can be remarkably unobservant sometimes.

Oh, well. Not the most embarrassing thing I've ever done.

Maybe he was still chewing on the problem. These things can obsess one, 
you know.

- J

-- 
========
John Deubert
Acumen Training
PostScript & PDF Engineering Classes & Consulting
www.acumentraining.com

Learn PostScript programming techniques
Read the free Acumen Journal
acumentraining.com/acumenjournal.html

Back to comp.lang.postscript | Previous | Next — Previous in thread | Find similar | Unroll thread

Thread

Re: Followup: Making an image into a pattern alamraquib@gmail.com - 2013-03-07 04:57 -0800
  Re: Followup: Making an image into a pattern John Deubert <john@acumentraining.com> - 2013-03-07 05:55 -0800
  Re: Followup: Making an image into a pattern John Deubert <john@acumentraining.com> - 2013-03-07 06:59 -0800
    Re: Followup: Making an image into a pattern John Deubert <john@acumentraining.com> - 2013-03-07 07:16 -0800
      Re: Followup: Making an image into a pattern luser- -droog <mijoryx@yahoo.com> - 2013-03-10 22:53 -0700
        Re: Followup: Making an image into a pattern John Deubert <john@acumentraining.com> - 2013-03-11 06:17 -0700

csiph-web