/usr/share/doc/libghc-x11-xft-doc/html/src/Graphics-X11-Xrender.html is in libghc-x11-xft-doc 0.3.1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 | <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html>
<head>
<!-- Generated by HsColour, http://code.haskell.org/~malcolm/hscolour/ -->
<title>dist-ghc/build/Graphics/X11/Xrender.hs</title>
<link type='text/css' rel='stylesheet' href='hscolour.css' />
</head>
<body>
<pre><a name="line-1"></a><span class='hs-comment'>{-# LINE 1 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-2"></a><span class='hs-comment'>-----------------------------------------------------------------------------</span>
<a name="line-3"></a><span class='hs-comment'>{-# LINE 2 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-4"></a><span class='hs-comment'>-- Module : Graphics.X11.Xrender</span>
<a name="line-5"></a><span class='hs-comment'>-- Copyright : Clemens Fruhwirth <clemens@endorphin.org> 2007</span>
<a name="line-6"></a><span class='hs-comment'>--</span>
<a name="line-7"></a><span class='hs-comment'>-- Haskell bindings for the Xrender extension.</span>
<a name="line-8"></a><span class='hs-comment'>--</span>
<a name="line-9"></a><span class='hs-comment'>-----------------------------------------------------------------------------</span>
<a name="line-10"></a>
<a name="line-11"></a><span class='hs-keyword'>module</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>X11</span><span class='hs-varop'>.</span><span class='hs-conid'>Xrender</span>
<a name="line-12"></a><span class='hs-keyword'>where</span>
<a name="line-13"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>X11</span>
<a name="line-14"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Graphics</span><span class='hs-varop'>.</span><span class='hs-conid'>X11</span><span class='hs-varop'>.</span><span class='hs-conid'>Xlib</span><span class='hs-varop'>.</span><span class='hs-conid'>Types</span>
<a name="line-15"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Foreign</span>
<a name="line-16"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Foreign</span><span class='hs-varop'>.</span><span class='hs-conid'>C</span>
<a name="line-17"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Foreign</span><span class='hs-varop'>.</span><span class='hs-conid'>C</span><span class='hs-varop'>.</span><span class='hs-conid'>Types</span>
<a name="line-18"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Foreign</span><span class='hs-varop'>.</span><span class='hs-conid'>Ptr</span>
<a name="line-19"></a><span class='hs-keyword'>import</span> <span class='hs-conid'>Foreign</span><span class='hs-varop'>.</span><span class='hs-conid'>Storable</span><span class='hs-layout'>(</span> <span class='hs-conid'>Storable</span><span class='hs-layout'>(</span><span class='hs-keyglyph'>..</span><span class='hs-layout'>)</span> <span class='hs-layout'>)</span>
<a name="line-20"></a>
<a name="line-21"></a>
<a name="line-22"></a><span class='hs-comment'>{-# LINE 20 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-23"></a>
<a name="line-24"></a><a name="peekCUShort"></a><span class='hs-definition'>peekCUShort</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Int</span>
<a name="line-25"></a><span class='hs-definition'>peekCUShort</span> <span class='hs-varid'>ptr</span> <span class='hs-varid'>off</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-26"></a> <span class='hs-varid'>v</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>off</span><span class='hs-layout'>)</span>
<a name="line-27"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-layout'>(</span><span class='hs-varid'>v</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>CUShort</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-28"></a>
<a name="line-29"></a><a name="pokeCUShort"></a><span class='hs-definition'>pokeCUShort</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-30"></a><span class='hs-definition'>pokeCUShort</span> <span class='hs-varid'>ptr</span> <span class='hs-varid'>off</span> <span class='hs-varid'>v</span> <span class='hs-keyglyph'>=</span>
<a name="line-31"></a> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>off</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>v</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>CUShort</span><span class='hs-layout'>)</span>
<a name="line-32"></a>
<a name="line-33"></a>
<a name="line-34"></a><a name="peekCShort"></a><span class='hs-definition'>peekCShort</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>Int</span>
<a name="line-35"></a><span class='hs-definition'>peekCShort</span> <span class='hs-varid'>ptr</span> <span class='hs-varid'>off</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-36"></a> <span class='hs-varid'>v</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekByteOff</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>off</span><span class='hs-layout'>)</span>
<a name="line-37"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-layout'>(</span><span class='hs-varid'>v</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>CShort</span><span class='hs-layout'>)</span><span class='hs-layout'>)</span>
<a name="line-38"></a>
<a name="line-39"></a><a name="pokeCShort"></a><span class='hs-definition'>pokeCShort</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Ptr</span> <span class='hs-varid'>a</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>CInt</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>Int</span> <span class='hs-keyglyph'>-></span> <span class='hs-conid'>IO</span> <span class='hs-conid'>()</span>
<a name="line-40"></a><span class='hs-definition'>pokeCShort</span> <span class='hs-varid'>ptr</span> <span class='hs-varid'>off</span> <span class='hs-varid'>v</span> <span class='hs-keyglyph'>=</span>
<a name="line-41"></a> <span class='hs-varid'>pokeByteOff</span> <span class='hs-varid'>ptr</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>off</span><span class='hs-layout'>)</span> <span class='hs-layout'>(</span><span class='hs-varid'>fromIntegral</span> <span class='hs-varid'>v</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>CShort</span><span class='hs-layout'>)</span>
<a name="line-42"></a>
<a name="line-43"></a><a name="XRenderColor"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>XRenderColor</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>XRenderColor</span> <span class='hs-layout'>{</span>
<a name="line-44"></a> <span class='hs-varid'>xrendercolor_red</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-45"></a> <span class='hs-varid'>xrendercolor_green</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-46"></a> <span class='hs-varid'>xrendercolor_blue</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-47"></a> <span class='hs-varid'>xrendercolor_alpha</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span>
<a name="line-48"></a><span class='hs-layout'>}</span>
<a name="line-49"></a>
<a name="line-50"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Storable</span> <span class='hs-conid'>XRenderColor</span> <span class='hs-keyword'>where</span>
<a name="line-51"></a> <span class='hs-varid'>sizeOf</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-num'>8</span><span class='hs-layout'>)</span>
<a name="line-52"></a><span class='hs-comment'>{-# LINE 49 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-53"></a> <span class='hs-varid'>alignment</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>alignment</span> <span class='hs-layout'>(</span><span class='hs-varid'>undefined</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>CInt</span><span class='hs-layout'>)</span>
<a name="line-54"></a> <span class='hs-varid'>peek</span> <span class='hs-varid'>p</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-55"></a> <span class='hs-varid'>red</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekCUShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>0</span><span class='hs-layout'>)</span>
<a name="line-56"></a><span class='hs-comment'>{-# LINE 52 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-57"></a> <span class='hs-varid'>blue</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekCUShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>4</span><span class='hs-layout'>)</span>
<a name="line-58"></a><span class='hs-comment'>{-# LINE 53 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-59"></a> <span class='hs-varid'>green</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekCUShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>2</span><span class='hs-layout'>)</span>
<a name="line-60"></a><span class='hs-comment'>{-# LINE 54 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-61"></a> <span class='hs-varid'>alpha</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekCUShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>6</span><span class='hs-layout'>)</span>
<a name="line-62"></a><span class='hs-comment'>{-# LINE 55 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-63"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>XRenderColor</span> <span class='hs-varid'>red</span> <span class='hs-varid'>blue</span> <span class='hs-varid'>green</span> <span class='hs-varid'>alpha</span><span class='hs-layout'>)</span>
<a name="line-64"></a> <span class='hs-varid'>poke</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-conid'>XRenderColor</span> <span class='hs-varid'>red</span> <span class='hs-varid'>blue</span> <span class='hs-varid'>green</span> <span class='hs-varid'>alpha</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-65"></a> <span class='hs-varid'>pokeCUShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varid'>red</span>
<a name="line-66"></a><span class='hs-comment'>{-# LINE 58 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-67"></a> <span class='hs-varid'>pokeCUShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>4</span><span class='hs-layout'>)</span> <span class='hs-varid'>blue</span>
<a name="line-68"></a><span class='hs-comment'>{-# LINE 59 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-69"></a> <span class='hs-varid'>pokeCUShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>2</span><span class='hs-layout'>)</span> <span class='hs-varid'>green</span>
<a name="line-70"></a><span class='hs-comment'>{-# LINE 60 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-71"></a> <span class='hs-varid'>pokeCUShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>6</span><span class='hs-layout'>)</span> <span class='hs-varid'>alpha</span>
<a name="line-72"></a><span class='hs-comment'>{-# LINE 61 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-73"></a>
<a name="line-74"></a><a name="XGlyphInfo"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>XGlyphInfo</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>XGlyphInfo</span> <span class='hs-layout'>{</span>
<a name="line-75"></a> <span class='hs-varid'>xglyphinfo_width</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-76"></a> <span class='hs-varid'>xglyphinfo_height</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-77"></a> <span class='hs-varid'>xglyphinfo_x</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-78"></a> <span class='hs-varid'>xglyphinfo_y</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-79"></a> <span class='hs-varid'>xglyphinfo_xOff</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-80"></a> <span class='hs-varid'>xglyphinfo_yOff</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span>
<a name="line-81"></a><span class='hs-layout'>}</span>
<a name="line-82"></a>
<a name="line-83"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Storable</span> <span class='hs-conid'>XGlyphInfo</span> <span class='hs-keyword'>where</span>
<a name="line-84"></a> <span class='hs-varid'>sizeOf</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-num'>12</span><span class='hs-layout'>)</span>
<a name="line-85"></a><span class='hs-comment'>{-# LINE 73 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-86"></a> <span class='hs-varid'>alignment</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>alignment</span> <span class='hs-layout'>(</span><span class='hs-varid'>undefined</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>CInt</span><span class='hs-layout'>)</span>
<a name="line-87"></a> <span class='hs-varid'>peek</span> <span class='hs-varid'>p</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-88"></a> <span class='hs-varid'>width</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekCUShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>0</span><span class='hs-layout'>)</span>
<a name="line-89"></a><span class='hs-comment'>{-# LINE 76 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-90"></a> <span class='hs-varid'>height</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekCUShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>2</span><span class='hs-layout'>)</span>
<a name="line-91"></a><span class='hs-comment'>{-# LINE 77 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-92"></a> <span class='hs-varid'>x</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>4</span><span class='hs-layout'>)</span>
<a name="line-93"></a><span class='hs-comment'>{-# LINE 78 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-94"></a> <span class='hs-varid'>y</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>6</span><span class='hs-layout'>)</span>
<a name="line-95"></a><span class='hs-comment'>{-# LINE 79 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-96"></a> <span class='hs-varid'>xOff</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>8</span><span class='hs-layout'>)</span>
<a name="line-97"></a><span class='hs-comment'>{-# LINE 80 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-98"></a> <span class='hs-varid'>yOff</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>10</span><span class='hs-layout'>)</span>
<a name="line-99"></a><span class='hs-comment'>{-# LINE 81 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-100"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>XGlyphInfo</span> <span class='hs-varid'>width</span> <span class='hs-varid'>height</span> <span class='hs-varid'>x</span> <span class='hs-varid'>y</span> <span class='hs-varid'>xOff</span> <span class='hs-varid'>yOff</span><span class='hs-layout'>)</span>
<a name="line-101"></a> <span class='hs-varid'>poke</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-conid'>XGlyphInfo</span> <span class='hs-varid'>width</span> <span class='hs-varid'>height</span> <span class='hs-varid'>x</span> <span class='hs-varid'>y</span> <span class='hs-varid'>xOff</span> <span class='hs-varid'>yOff</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-102"></a> <span class='hs-varid'>pokeCUShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varid'>width</span>
<a name="line-103"></a><span class='hs-comment'>{-# LINE 84 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-104"></a> <span class='hs-varid'>pokeCUShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>2</span><span class='hs-layout'>)</span> <span class='hs-varid'>height</span>
<a name="line-105"></a><span class='hs-comment'>{-# LINE 85 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-106"></a> <span class='hs-varid'>pokeCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>4</span><span class='hs-layout'>)</span> <span class='hs-varid'>x</span>
<a name="line-107"></a><span class='hs-comment'>{-# LINE 86 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-108"></a> <span class='hs-varid'>pokeCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>6</span><span class='hs-layout'>)</span> <span class='hs-varid'>y</span>
<a name="line-109"></a><span class='hs-comment'>{-# LINE 87 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-110"></a> <span class='hs-varid'>pokeCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>8</span><span class='hs-layout'>)</span> <span class='hs-varid'>xOff</span>
<a name="line-111"></a><span class='hs-comment'>{-# LINE 88 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-112"></a> <span class='hs-varid'>pokeCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>10</span><span class='hs-layout'>)</span> <span class='hs-varid'>yOff</span>
<a name="line-113"></a><span class='hs-comment'>{-# LINE 89 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-114"></a>
<a name="line-115"></a>
<a name="line-116"></a><a name="XRenderDirectFormat"></a><span class='hs-keyword'>data</span> <span class='hs-conid'>XRenderDirectFormat</span> <span class='hs-keyglyph'>=</span> <span class='hs-conid'>XRenderDirectFormat</span> <span class='hs-layout'>{</span>
<a name="line-117"></a> <span class='hs-varid'>xrenderdirectformat_red</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-118"></a> <span class='hs-varid'>xrenderdirectformat_redMask</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-119"></a> <span class='hs-varid'>xrenderdirectformat_green</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-120"></a> <span class='hs-varid'>xrenderdirectformat_greenMask</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-121"></a> <span class='hs-varid'>xrenderdirectformat_blue</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-122"></a> <span class='hs-varid'>xrenderdirectformat_blueMask</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-123"></a> <span class='hs-varid'>xrenderdirectformat_alpha</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span><span class='hs-layout'>,</span>
<a name="line-124"></a> <span class='hs-varid'>xrenderdirectformat_alphaMask</span> <span class='hs-keyglyph'>::</span> <span class='hs-conid'>Int</span>
<a name="line-125"></a><span class='hs-layout'>}</span>
<a name="line-126"></a>
<a name="line-127"></a><span class='hs-keyword'>instance</span> <span class='hs-conid'>Storable</span> <span class='hs-conid'>XRenderDirectFormat</span> <span class='hs-keyword'>where</span>
<a name="line-128"></a> <span class='hs-varid'>sizeOf</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-layout'>(</span><span class='hs-num'>16</span><span class='hs-layout'>)</span>
<a name="line-129"></a><span class='hs-comment'>{-# LINE 104 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-130"></a> <span class='hs-varid'>alignment</span> <span class='hs-keyword'>_</span> <span class='hs-keyglyph'>=</span> <span class='hs-varid'>alignment</span> <span class='hs-layout'>(</span><span class='hs-varid'>undefined</span><span class='hs-keyglyph'>::</span><span class='hs-conid'>CInt</span><span class='hs-layout'>)</span>
<a name="line-131"></a> <span class='hs-varid'>peek</span> <span class='hs-varid'>p</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-132"></a> <span class='hs-varid'>red</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>0</span><span class='hs-layout'>)</span>
<a name="line-133"></a><span class='hs-comment'>{-# LINE 107 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-134"></a> <span class='hs-varid'>redMask</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>2</span><span class='hs-layout'>)</span>
<a name="line-135"></a><span class='hs-comment'>{-# LINE 108 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-136"></a> <span class='hs-varid'>green</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>4</span><span class='hs-layout'>)</span>
<a name="line-137"></a><span class='hs-comment'>{-# LINE 109 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-138"></a> <span class='hs-varid'>greenMask</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>6</span><span class='hs-layout'>)</span>
<a name="line-139"></a><span class='hs-comment'>{-# LINE 110 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-140"></a> <span class='hs-varid'>blue</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>8</span><span class='hs-layout'>)</span>
<a name="line-141"></a><span class='hs-comment'>{-# LINE 111 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-142"></a> <span class='hs-varid'>blueMask</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>10</span><span class='hs-layout'>)</span>
<a name="line-143"></a><span class='hs-comment'>{-# LINE 112 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-144"></a> <span class='hs-varid'>alpha</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>12</span><span class='hs-layout'>)</span>
<a name="line-145"></a><span class='hs-comment'>{-# LINE 113 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-146"></a> <span class='hs-varid'>alphaMask</span> <span class='hs-keyglyph'><-</span> <span class='hs-varid'>peekCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>14</span><span class='hs-layout'>)</span>
<a name="line-147"></a><span class='hs-comment'>{-# LINE 114 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-148"></a> <span class='hs-varid'>return</span> <span class='hs-layout'>(</span><span class='hs-conid'>XRenderDirectFormat</span> <span class='hs-varid'>red</span> <span class='hs-varid'>redMask</span> <span class='hs-varid'>green</span> <span class='hs-varid'>greenMask</span> <span class='hs-varid'>blue</span> <span class='hs-varid'>blueMask</span> <span class='hs-varid'>alpha</span> <span class='hs-varid'>alphaMask</span><span class='hs-layout'>)</span>
<a name="line-149"></a> <span class='hs-varid'>poke</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-conid'>XRenderDirectFormat</span> <span class='hs-varid'>red</span> <span class='hs-varid'>redMask</span> <span class='hs-varid'>green</span> <span class='hs-varid'>greenMask</span> <span class='hs-varid'>blue</span> <span class='hs-varid'>blueMask</span> <span class='hs-varid'>alpha</span> <span class='hs-varid'>alphaMask</span><span class='hs-layout'>)</span> <span class='hs-keyglyph'>=</span> <span class='hs-keyword'>do</span>
<a name="line-150"></a> <span class='hs-varid'>pokeCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>0</span><span class='hs-layout'>)</span> <span class='hs-varid'>red</span>
<a name="line-151"></a><span class='hs-comment'>{-# LINE 117 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-152"></a> <span class='hs-varid'>pokeCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>2</span><span class='hs-layout'>)</span> <span class='hs-varid'>redMask</span>
<a name="line-153"></a><span class='hs-comment'>{-# LINE 118 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-154"></a> <span class='hs-varid'>pokeCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>8</span><span class='hs-layout'>)</span> <span class='hs-varid'>blue</span>
<a name="line-155"></a><span class='hs-comment'>{-# LINE 119 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-156"></a> <span class='hs-varid'>pokeCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>10</span><span class='hs-layout'>)</span> <span class='hs-varid'>blueMask</span>
<a name="line-157"></a><span class='hs-comment'>{-# LINE 120 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-158"></a> <span class='hs-varid'>pokeCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>4</span><span class='hs-layout'>)</span> <span class='hs-varid'>green</span>
<a name="line-159"></a><span class='hs-comment'>{-# LINE 121 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-160"></a> <span class='hs-varid'>pokeCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>6</span><span class='hs-layout'>)</span> <span class='hs-varid'>greenMask</span>
<a name="line-161"></a><span class='hs-comment'>{-# LINE 122 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-162"></a> <span class='hs-varid'>pokeCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>12</span><span class='hs-layout'>)</span> <span class='hs-varid'>alpha</span>
<a name="line-163"></a><span class='hs-comment'>{-# LINE 123 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-164"></a> <span class='hs-varid'>pokeCShort</span> <span class='hs-varid'>p</span> <span class='hs-layout'>(</span><span class='hs-num'>14</span><span class='hs-layout'>)</span> <span class='hs-varid'>alphaMask</span>
<a name="line-165"></a><span class='hs-comment'>{-# LINE 124 "Graphics/X11/Xrender.hsc" #-}</span>
<a name="line-166"></a>
</pre></body>
</html>
|