% Copyright (C) 2001-2023 Artifex Software, Inc. % All Rights Reserved. % % This software is provided AS-IS with no warranty, either express or % implied. % % This software is distributed under license and may not be copied, % modified or distributed except as expressly authorized under the terms % of the license contained in the file LICENSE in this distribution. % % Refer to licensing information at http://www.artifex.com or contact % Artifex Software, Inc., 39 Mesa Street, Suite 108A, San Francisco, % CA 94129, USA, for further information. % % stcinfo.ps % Epson Stylus-Color Printer-Driver % The purpose of this file is to print & show Parameters of the % stcolor-driver. If not run on ghostscript/stcolor, it prints % something like a color-chart. % use either existing STCinfo-dictionary, retrieve new one or create dummy statusdict begin product end dup (Ghostscript) eq 1 index (Artifex Ghostscript) eq or exch (AFPL Ghostscript) eq or{ currentpagedevice dup /Name get (stcolor) eq /STCi_onstc exch def /STCinfo where {/STCinfo get exch pop} if /STCinfo exch def }{ /STCinfo 10 dict def STCinfo begin /Name (unknown) def end /STCi_onstc false def }ifelse % Next Block are procedures to generate the color-triangles. % you may wish to separate them, just look ahead for the name % given in the next line to achieve that. % Begin: colortri_procedures % Plot the CIE-XY-triangle (or something like that) % /colortri_mat Conversion matrix RGB -> XYZ % /colortri_bg procedure, that takes X/Y-Values and delivers the % "background color" as RGB-Values, default is: % {pop pop 0.85 dup dup} % The default matrix was taken from: % Color spaces FAQ - David Bourgin % Date: 15/6/94 (items 5.3 and 6 updated) % Last update: 29/6/94 /colortri_mat [ % RGB -> CIE XYZitu601-1 (D65) 0.4306 0.3415 0.1784 0.2220 0.7067 0.0713 0.0202 0.1295 0.9394 ] def /colortri_bg {pop pop 0.85 dup dup} bind def % +---------------------------------------------------------------------+ % | Besides from fixing bugs, nothing should be changed below this line | % +---------------------------------------------------------------------+ % Arbitrary operation on a pair of vectors, *CHANGES* 1st. % invoke: Vaccu Vop op vop /vop { bind 0 1 3 index length 1 sub { 3 index 1 index get 3 index 2 index get 3 index exec 4 index 3 1 roll put } for pop pop } bind def /vsub { {sub} vop } bind def % subtract two vectors /vmul { {mul} vop } bind def % multiply two vectors % Compute sum of vectors elements /vsum {0.0 exch{add}forall} bind def % Sum up products of elements /veqn { [ 3 -1 roll {} forall ] exch vmul vsum } bind def % Find index of |maximum| in array /imax { dup 0 get abs 0 exch % array i v[i] 1 1 4 index length 1 sub { 3 index 1 index get abs dup 3 index gt {4 2 roll}if pop pop } for 3 -1 roll pop } bind def % Procedure to *CHANGE* RGB-Values into XYZ-Values /rgb2xyz { 0 3 6 { colortri_mat exch 3 getinterval 1 index veqn exch } for astore } bind def % Procedure to *CHANGE* transform rgb->xy /rgb2xy { rgb2xyz dup 0 get 1 index 1 get 2 index vsum % XYZ X Y sum dup 0 ne { exch 1 index div 3 1 roll div % XYZ y x 2 index exch 0 exch put % xYZ y 1 index exch 1 exch put % xyZ }{ pop pop pop dup 0 0 put dup 0 1 put } ifelse 0 2 getinterval } bind def % So here we go with our procedure /colortri { %Usage: box #pixels save 1 index type /arraytype eq {exch 8}{3 1 roll} ifelse % Default scale /colortri_scale exch def /colortri_box exch def % Prepare some useful constants for xy -> RGB conversion /colsum [ % Array with column-sums 0 1 2{0 exch 3 1 index 6 add{colortri_mat exch get add}for}for ] def /Xrow colortri_mat 0 3 getinterval def % two rows from colortri_mat /Yrow colortri_mat 3 3 getinterval def % Avoid allocating new arrays /xcoeff 3 array def /ycoeff 3 array def % Procedure to derive RGB-Values form X,Y /xy2rgb{ aload pop dup dup dup ycoeff astore colsum vmul Yrow vsub imax 3 index dup dup xcoeff astore colsum vmul Xrow vsub imax 3 -1 roll 1 index 1 index gt{ xcoeff ycoeff /xcoeff exch def /ycoeff exch def pop 3 -1 roll pop }{ 3 1 roll pop pop } ifelse 1e-6 lt { % No Pivot ? pop colortri_bg xcoeff astore pop }{ % Have a Pivot dup ycoeff exch get neg 0 1 2 { dup ycoeff exch get 2 index div ycoeff 3 1 roll put} for pop ycoeff 1 index 0 put xcoeff 1 index get 0 1 2 { ycoeff 1 index get 2 index mul xcoeff 2 index get add xcoeff 3 1 roll put } for pop xcoeff 1 index 0 put xcoeff imax 1e-6 lt { % no Pivot ? pop pop colortri_bg xcoeff astore pop }{ dup 2 index or 3 exch sub xcoeff 1 index get xcoeff 3 index get div neg xcoeff exch 3 index exch put xcoeff 1 index 1 put ycoeff exch get ycoeff 2 index get xcoeff 4 -1 roll get mul add xcoeff 3 1 roll put 0 1 2 { xcoeff exch get dup -0.0015 lt exch 1.0015 gt or { colortri_bg xcoeff astore dup exit } if } for pop pop xcoeff } ifelse } ifelse } bind def % Compute the displayed range [ 1 1 1 ] rgb2xy dup 0 get /colortri_x0 exch def /colortri_dx colortri_x0 def 1 get /colortri_y0 exch def /colortri_dy colortri_y0 def [[0 0 1][0 1 0][0 1 1][1 0 0][1 0 1][1 1 0]] { rgb2xy dup 0 get dup colortri_x0 lt {/colortri_x0 1 index def}if dup colortri_dx gt {/colortri_dx 1 index def}if pop 1 get dup colortri_y0 lt {/colortri_y0 1 index def}if dup colortri_dy gt {/colortri_dy 1 index def}if pop } forall colortri_dx colortri_x0 sub /colortri_dx exch def colortri_dy colortri_y0 sub /colortri_dy exch def % % determine the scale colortri_box 2 get colortri_box 0 get sub colortri_dx div % fx colortri_box 3 get colortri_box 1 get sub colortri_dy div % fx fy gt { % fy limits colortri_box 3 get colortri_box 1 get sub dup colortri_dx mul colortri_dy div exch }{ % fx limits colortri_box 2 get colortri_box 0 get sub dup colortri_dy mul colortri_dx div } ifelse dtransform abs colortri_scale div cvi /colortri_ny exch def abs colortri_scale div cvi /colortri_nx exch def colortri_nx colortri_scale mul colortri_ny colortri_scale mul idtransform abs exch abs exch colortri_box 0 get colortri_box 2 get 1 index sub 3 index sub 2 div add colortri_box 1 get colortri_box 3 get 1 index sub 3 index sub 2 div add transform .5 add cvi exch .5 add cvi exch itransform translate scale % String & indices /colortri_tmp colortri_nx 3 mul string def /colortri_dx colortri_dx colortri_nx 1 sub div def /colortri_dy colortri_dy colortri_ny 1 sub div def /colortri_xy [ colortri_x0 colortri_y0 ] def /colortri_ie colortri_tmp length 3 sub def colortri_nx colortri_ny 8 [ colortri_nx 0 0 colortri_ny 0 0 ] { colortri_xy 0 colortri_x0 put 0 3 colortri_ie { colortri_tmp exch % buf ir colortri_xy xy2rgb % buf ir rgb buf ib 2 index 2 index 2 add 2 index 2 get 255 mul cvi put 2 index 2 index 1 add 2 index 1 get 255 mul cvi put 0 get 255 mul cvi put colortri_xy dup 0 exch 0 get colortri_dx add put }for colortri_xy dup 1 exch 1 get colortri_dy add put colortri_tmp } bind false 3 colorimage restore } bind def % [ newpath clippath pathbbox ] colortri showpage % standalone usage % End: colortri_procedures % The next section is a group of procedures, that I for myself % do no more fully understand, but they do the Job. % Begin: stcinfo_procedures_1 % fetch a parameter from the dictionary /STCiget { STCinfo exch get } bind def % action upon ProcessColorModel /STCimode { /ProcessColorModel STCiget dup /DeviceCMYK eq{pop 2}{/DeviceRGB eq{1}{0}ifelse}ifelse get exec } bind def % print given number of blanks /STCipspace { dup 0 gt{ 1 exch 1 exch { pop ( ) print}for }{ pop } ifelse } bind def % print right or left-justified text /STCiprint { dup 0 gt { dup 2 index length sub STCipspace } if 1 index print dup 0 lt { neg dup 2 index length sub STCipspace } if pop pop } bind def % floating-point to fixed-length-string conversion /STCicvs { % number -> string % Prepare the result 8 string dup 0 ( ) putinterval exch % Make it unsigned dup 0 lt {neg(-)}{( )}ifelse 0 get exch dup 1000 lt 1 index 0 eq 2 index 0.001 ge or and { % floating point (e+) 0 }{ % engineering 0 { 1 index 1000.0 ge {3 add exch 1000 div exch} {1 index 1 lt {3 sub exch 1000 mul exch}{exit}ifelse} ifelse }loop dup 0 lt {neg(e-)}{(e+)}ifelse exch }ifelse % string sign num esig e % always up to three Integer Digits plus sign 2 index cvi 3 { % string sign num esig e int ind 1 index 10 div cvi dup 10 mul 3 index exch sub cvi (0123456789) exch get 8 index exch 3 index exch put 3 -2 roll 1 sub exch pop dup 0 eq 2 index 0 eq or {exit} if } loop exch pop % string sign num esig e ind 5 index exch 6 -1 roll put % string num esig e % print either fraction or exponent dup 0 eq { pop pop dup cvi sub % String fraction dup 0.0 ne { % Fraction present 0.0005 add 1 index 4 (.) putinterval 5 1 7 { % string frac ind exch 10 mul dup cvi exch 1 index sub % string ind ic nfrac exch (0123456789) exch get 3 -1 roll % string nfrac chr ind exch 3 index 3 1 roll put } for } if pop }{ 3 -1 roll pop % string esig e exch 2 index exch 4 exch putinterval 7 -1 6 { % string n i 1 index 10 div cvi dup 10 mul 3 index exch sub cvi % string n i n/10 (0123456789) exch get 4 index exch 3 index exch put exch pop exch pop } for pop } ifelse } bind def % compute colorvalue-steps from transfer & coding /STCisteps { % xfer, coding => X-values, Y-Values % 2^nbits 2 /BitsPerComponent STCiget dup 11 gt { pop 11 } if exp cvi % X & Y - Arrays (stack: xv:4 yv:3 xfer:2 coding:1 2^ni:0) dup 1 add array 1 index array 5 2 roll % compute GS-Color-Value according to the coding-array 1 index null eq { % no coding present 0 1 2 index 1 sub { dup 6 index exch dup 4 index div put 4 index exch dup 3 index 1 sub div put } for }{ % coding-array given 1.0 1 index 1 sub div % y step 0 % current index 0 1 4 index 1 sub { % over indices dup 3 index mul { dup 3 index 1 add dup 8 index length ge {pop pop exit} if % i y 7 index exch get le {exit} if 2 index 1 add 3 1 roll 4 -1 roll pop } loop 5 index 3 index get sub 5 index 3 index 1 add get 6 index 4 index get sub div 2 index add 5 index length 1 sub div 2 copy exch dup 0 eq { 10 index exch 0.0 put pop }{ dup 10 index exch 1 sub get 3 -1 roll add 2 div 10 index 3 1 roll put }ifelse 7 index 3 1 roll put } for % over indices pop pop } ifelse 4 index 1 index 1.0 put % Replace the raw y-values by those computed from the transfer-array 0 1 2 index 1 sub { % over indices, 2nd dup 5 index exch get dup 5 index length 1 sub mul cvi % -> iy 5 index 1 index get 1 index 1 add 7 index length lt { dup 7 index 3 index 1 add get exch sub 3 index 3 index 9 index length 1 sub div sub mul 7 index length 1 sub mul add } if exch pop exch pop 5 index 3 1 roll put } for % over indices, 2nd pop pop pop } bind def /STCibar { % Window X-Values proc => Window 0 1 3 index length 2 sub { dup 3 index exch get exch 1 add 3 index exch get dup 2 index add 2 div 3 index exec % Color to average 4 index 2 get 5 index 0 get sub exch 1 index mul 5 index 0 get add 3 1 roll mul 4 index 0 get add 4 index 3 get 5 index 1 get newpath 2 index 1 index moveto 3 index 1 index lineto 3 index 2 index lineto 2 index 2 index lineto closepath fill pop pop pop pop } for pop pop 0 setgray newpath dup 0 get 1 index 1 get moveto dup 2 get 1 index 1 get lineto dup 2 get 1 index 3 get lineto dup 0 get 1 index 3 get lineto closepath stroke pop } bind def % End: stcinfo_procedures_1 % Begin: stcinfo_preparation % Compute used area from clippath /STCi_clip [ newpath clippath pathbbox 2 sub 4 1 roll 2 sub 4 1 roll 2 add 4 1 roll 2 add 4 1 roll ] def % % Perpare the texual messages, assume no stcolor if this fails % { /STCi_stopped % A Special Mark % Textual Parameters (an array of pairs of strings) /STCi_l1 0 def /STCi_l2 0 def /STCi_text [ % Driver-Name & Version (Parameters of) /Name STCiget length /Version STCiget length add 1 add string dup 0 /Name STCiget putinterval dup /Name STCiget length (-)putinterval dup /Name STCiget length 1 add /Version STCiget putinterval % Dithering-Algorithm (Dithering) /Dithering STCiget [{( \(Monochrome\))}{( \(RGB\))}{( \(CMYK\))}] STCimode dup length 2 index length add string exch 1 index exch 3 index length exch putinterval dup 3 1 roll exch 0 exch putinterval % Flags for the algorithm (Flag4-0) 5 string dup 0 /Flag4 STCiget {(T)}{(f)} ifelse putinterval dup 1 /Flag3 STCiget {(T)}{(f)} ifelse putinterval dup 2 /Flag2 STCiget {(T)}{(f)} ifelse putinterval dup 3 /Flag1 STCiget {(T)}{(f)} ifelse putinterval dup 4 /Flag0 STCiget {(T)}{(f)} ifelse putinterval % Bits Per Pixel & Bits Per Component (BitsPerPixel) 10 string % (nn -> nxnn) /BitsPerPixel STCiget 1 index cvs length % string used dup 2 index exch ( -> ) putinterval 4 add dup 2 add exch 2 index exch [{(1x)}{(3x)}{(4x)}] STCimode putinterval % String used /BitsPerComponent STCiget 2 index 2 index 2 getinterval cvs length add 0 exch getinterval () () % ColorAdjustMatrix (ColorAdjustMatrix) /ColorAdjustMatrix STCiget dup null eq { pop (default) }{ { STCicvs } forall [{ % Monochrome 26 string dup 0 6 -1 roll putinterval dup 8 ( ) putinterval dup 9 5 -1 roll putinterval dup 17 ( ) putinterval dup 18 4 -1 roll putinterval }{ % RGB 26 string dup 0 12 -1 roll putinterval dup 8 ( ) putinterval dup 9 11 -1 roll putinterval dup 17 ( ) putinterval dup 18 10 -1 roll putinterval () 26 string dup 0 11 -1 roll putinterval dup 8 ( ) putinterval dup 9 10 -1 roll putinterval dup 17 ( ) putinterval dup 18 9 -1 roll putinterval () 26 string dup 0 10 -1 roll putinterval dup 8 ( ) putinterval dup 9 9 -1 roll putinterval dup 17 ( ) putinterval dup 18 8 -1 roll putinterval }{ 35 string dup 0 19 -1 roll putinterval dup 8 ( ) putinterval dup 9 18 -1 roll putinterval dup 17 ( ) putinterval dup 18 17 -1 roll putinterval dup 26 ( ) putinterval dup 27 16 -1 roll putinterval () 35 string dup 0 17 -1 roll putinterval dup 8 ( ) putinterval dup 9 16 -1 roll putinterval dup 17 ( ) putinterval dup 18 15 -1 roll putinterval dup 26 ( ) putinterval dup 27 14 -1 roll putinterval () 35 string dup 0 15 -1 roll putinterval dup 8 ( ) putinterval dup 9 14 -1 roll putinterval dup 17 ( ) putinterval dup 18 13 -1 roll putinterval dup 26 ( ) putinterval dup 27 12 -1 roll putinterval () 35 string dup 0 13 -1 roll putinterval dup 8 ( ) putinterval dup 9 12 -1 roll putinterval dup 17 ( ) putinterval dup 18 11 -1 roll putinterval dup 26 ( ) putinterval dup 27 10 -1 roll putinterval } ] STCimode } ifelse () () % Printer Model (Printer-Model) /Model STCiget % Resolution (Resolution) 15 string % (nnnnnxnnnnn DpI) /HWResolution STCiget 0 get cvi 1 index cvs length dup 2 index exch (x) putinterval 1 add dup 2 index exch 5 getinterval /HWResolution STCiget 1 get cvi exch cvs length add dup 2 index exch ( DpI) putinterval 4 add 0 exch getinterval % HWsize holds entire Page in Pixels, % .HWMargins is [left,bottom,right,top] in Points (Printed Area) 18 string % (nnnnnxnnnnn Pixel) /HWSize STCiget 0 get /.HWMargins STCiget dup 0 get exch 2 get add /HWResolution STCiget 0 get mul 72.0 div sub cvi 1 index cvs length dup 2 index exch (x) putinterval 1 add dup 2 index exch 5 getinterval /HWSize STCiget 1 get /.HWMargins STCiget dup 1 get exch 3 get add /HWResolution STCiget 1 get mul 72.0 div sub cvi exch cvs length add dup 2 index exch ( Pixel) putinterval 6 add 0 exch getinterval () () % WeaveMode (Weave-Mode) /noWeave STCiget { (noWeave) }{ /Microweave STCiget {(Microweave)}{(Softweave)}ifelse }ifelse % Unidirectional (Unidirectional) /Unidirectional STCiget {(ON)}{(off)} ifelse % Output coding (OutputCode) /OutputCode STCiget % number of heads (escp_Band) /escp_Band STCiget 3 string cvs (escp_Width) /escp_Width STCiget 5 string cvs (escp_Height) /escp_Height STCiget 5 string cvs (escp_Top) /escp_Top STCiget 5 string cvs (escp_Bottom) /escp_Bottom STCiget 5 string cvs ] def % % compute the Proper X & Y-Arrays % [{ % Monochrome /Ktransfer STCiget /Kcoding STCiget STCisteps /STCi_yv [ 3 -1 roll ] def /STCi_xv [ 3 -1 roll ] def /STCi_col [[0 0 0]] def /STCi_set [{1.0 exch sub setgray}] def }{ % RGB /Rtransfer STCiget /Rcoding STCiget STCisteps /Gtransfer STCiget /Gcoding STCiget STCisteps /Btransfer STCiget /Bcoding STCiget STCisteps exch 4 -1 roll 6 -1 roll exch 3 -1 roll /STCi_xv [ 5 2 roll ] def /STCi_yv [ 5 2 roll ] def /STCi_col [[1 0 0] [0 1 0] [0 0 1]] def /STCi_set [ {1.0 exch sub 1 exch dup setrgbcolor} {1.0 exch sub dup 1 exch setrgbcolor} {1.0 exch sub dup 1 setrgbcolor} ] def }{ % CMYK /Ctransfer STCiget /Ccoding STCiget STCisteps /Mtransfer STCiget /Mcoding STCiget STCisteps exch 3 1 roll /Ytransfer STCiget /Ycoding STCiget STCisteps exch 4 1 roll /Ktransfer STCiget /Kcoding STCiget STCisteps exch 5 1 roll /STCi_yv [ 6 2 roll ] def /STCi_xv [ 6 2 roll ] def /STCi_col [[0 1 1] [1 0 1] [1.0 0.5 0.0] [0 0 0]] def /STCi_set [ { 0 0 0 setcmykcolor } { 0 exch 0 0 setcmykcolor } { 0 exch 0 exch 0 setcmykcolor } { 0 exch 0 exch 0 exch setcmykcolor } ] def } ]STCimode } stopped { {/STCi_stopped eq {exit}if}loop true} { {/STCi_stopped eq {exit}if}loop false} ifelse % End: stcinfo_preparation % The Next section does the real job % Begin: stcinfo_execution { (%%[ stcinfo.ps: currentdevice is not supported -> colortri ]%%\n) print STCi_clip colortri % The default action }{ % % Print the text % 0 2 STCi_text length 2 sub { dup 1 add exch STCi_text exch get length dup STCi_l1 gt{/STCi_l1 exch def}{pop}ifelse STCi_text exch get length dup STCi_l2 gt{/STCi_l2 exch def}{pop}ifelse } for /STCi_l2 STCi_l2 neg def 0 2 STCi_text length 2 sub { dup 1 add STCi_text exch get exch STCi_text exch get 1 index length 0 gt { dup STCi_l1 STCiprint length 0 gt {(: )}{( )}ifelse print print }{ pop pop } ifelse (\n) print } for % % Deactivate a present ColorAdjust Matrix, if any % /ColorAdjustMatrix STCiget null ne STCi_onstc and { mark /ColorAdjustMatrix null .dicttomark setpagedevice } if % % "Show" the text % /Times-Roman findfont 10 scalefont setfont /STCi_l1 0 def 0 2 STCi_text length 2 sub { STCi_text exch get stringwidth pop dup STCi_l1 gt { /STCi_l1 exch def }{ pop } ifelse } for STCi_l1 STCi_clip 0 get add /STCi_l1 exch def STCi_clip 3 get 12 sub 0 2 STCi_text length 2 sub { STCi_text exch get dup length 0 gt { dup stringwidth pop STCi_l1 exch sub 2 index moveto show }{ pop } ifelse 12 sub } for pop /Courier findfont 10 scalefont setfont /STCi_l2 0 def 1 2 STCi_text length 1 sub { STCi_text exch get stringwidth pop dup STCi_l2 gt { /STCi_l2 exch def }{ pop } ifelse } for STCi_clip 3 get 12 sub 1 2 STCi_text length 1 sub { STCi_text exch get dup length 0 gt { STCi_l1 12 add 2 index moveto show }{ pop } ifelse 12 sub } for pop % % compute the space for the graph-window % STCi_l1 12 add STCi_l2 add 12 add dup STCi_clip 2 get exch sub % Extend [ 3 -1 roll dup 3 index add STCi_clip 3 get dup 5 index sub 3 1 roll ] /STCi_win exch def /STCi_l1 exch def % The "Axis" newpath STCi_win 0 get STCi_win 1 get 14 add moveto STCi_win 2 get STCi_win 1 get 14 add lineto stroke STCi_win 0 get 14 add STCi_win 1 get moveto STCi_win 0 get 14 add STCi_win 3 get lineto stroke % The Labels /Times-Roman findfont 10 scalefont setfont (Postscript-color) dup stringwidth pop STCi_win 2 get STCi_win 0 get sub 14 sub 1 index sub 2 div exch pop STCi_win 0 get add 14 add STCi_win 1 get 4 add moveto show gsave STCi_win 0 get 10 add STCi_win 1 get 14 add translate 90 rotate (Device-color) dup stringwidth pop STCi_win 3 get STCi_win 1 get sub 14 sub 1 index sub 2 div exch pop 0 moveto show grestore % The Graphs gsave STCi_win 0 get 14 add STCi_win 1 get 14 add STCi_win 2 get 2 index sub STCi_win 3 get 2 index sub 4 2 roll translate STCi_col 0 1 2 index length 1 sub { 1 index 1 index get aload pop setrgbcolor STCi_xv 1 index get STCi_yv 3 -1 roll get newpath 1 index 0 get 5 index mul 1 index 0 get 5 index mul moveto 1 index 1 get 5 index mul 1 index 0 get 5 index mul lineto 1 1 2 index length 1 sub { 2 index 1 index get 6 index mul 2 index 2 index get 6 index mul lineto 2 index 1 index 1 add get 6 index mul 2 index 2 index get 6 index mul lineto pop } for stroke pop pop } for pop pop pop grestore % % Find lowest Y from Text or graph % STCi_win 1 get STCi_clip 3 get STCi_text length 2 div 12 mul sub dup 2 index gt { pop } { exch pop } ifelse 12 sub % % compute the upper bar-window % /STCi_win [ STCi_clip 0 get 4 -1 roll 36 sub STCi_clip 2 get 1 index 36 add ] def % % Draw the required number of graphs % [{ % Monochrome STCi_win STCi_xv 0 get {setgray} STCibar }{ % RGB STCi_win STCi_xv 0 get {0 0 setrgbcolor} STCibar STCi_win dup 1 exch 1 get 47 sub put STCi_win dup 3 exch 3 get 47 sub put STCi_win STCi_xv 1 get {0 0 3 1 roll setrgbcolor} STCibar STCi_win dup 1 exch 1 get 47 sub put STCi_win dup 3 exch 3 get 47 sub put STCi_win STCi_xv 2 get {0 0 3 2 roll setrgbcolor} STCibar }{ % CMYK STCi_win STCi_xv 0 get {0 0 0 setcmykcolor} STCibar STCi_win dup 1 exch 1 get 47 sub put STCi_win dup 3 exch 3 get 47 sub put STCi_win STCi_xv 1 get {0 0 0 4 1 roll setcmykcolor} STCibar STCi_win dup 1 exch 1 get 47 sub put STCi_win dup 3 exch 3 get 47 sub put STCi_win STCi_xv 2 get {0 0 0 4 2 roll setcmykcolor} STCibar STCi_win dup 1 exch 1 get 47 sub put STCi_win dup 3 exch 3 get 47 sub put STCi_win STCi_xv 3 get {0 0 0 4 3 roll setcmykcolor} STCibar } ] STCimode STCi_win 1 STCi_clip 1 get put STCi_win dup 3 exch 3 get 47 sub put % % Plot either one or two Color-Triangles % /ColorAdjustMatrix STCiget null ne STCi_onstc and { STCi_win 0 get STCi_win 2 get add 2 div [STCi_win 0 get STCi_win 1 get 3 index STCi_win 3 get ] colortri mark /ColorAdjustMatrix dup STCiget .dicttomark setpagedevice [1 index STCi_win 1 get STCi_win 2 get STCi_win 3 get ] colortri pop }{ STCi_win colortri } ifelse newpath clippath stroke } ifelse showpage

Es la eliminación del sarro y la placa adherida a la superficie de los dientes mediante un equipo de ultrasonidos que garantiza la integridad de las piezas dentales a la vez que elimina en profundidad cualquier resto de suciedad.

A continuación se procede al pulido de los dientes mediante una fresa especial que elimina la placa bacteriana y devuelve a los dientes el aspecto sano que deben tener.

Una vez terminado todo el proceso, se mantiene al perro en observación hasta que se despierta de la anestesia, bajo la atenta supervisión de un veterinario.

¿Cada cuánto tiempo tengo que hacerle una limpieza dental a mi perro?

A partir de cierta edad, los perros pueden necesitar una limpieza dental anual o bianual. Depende de cada caso. En líneas generales, puede decirse que los perros de razas pequeñas suelen acumular más sarro y suelen necesitar una atención mayor en cuanto a higiene dental.

Riesgos de una mala higiene

Los riesgos más evidentes de una mala higiene dental en los perros son los siguientes:

Cuando la acumulación de sarro no se trata, se puede producir una inflamación y retracción de las encías que puede descalzar el diente y provocar caídas.
Mal aliento (halitosis).
Sarro perros
Puede ir a más
Las bacterias de la placa pueden trasladarse a través del torrente circulatorio a órganos vitales como el corazón ocasionando problemas de endocarditis en las válvulas. Las bacterias pueden incluso acantonarse en huesos (La osteomielitis es la infección ósea, tanto cortical como medular) provocando mucho dolor y una artritis séptica).

¿Cómo se forma el sarro?

El sarro es la calcificación de la placa dental. Los restos de alimentos, junto con las bacterias presentes en la boca, van a formar la placa bacteriana o placa dental. Si la placa no se retira, al mezclarse con la saliva y los minerales presentes en ella, reaccionará formando una costra. La placa se calcifica y se forma el sarro.

El sarro, cuando se forma, es de color blanquecino pero a medida que pasa el tiempo se va poniendo amarillo y luego marrón.

Síntomas de una pobre higiene dental
La señal más obvia de una mala salud dental canina es el mal aliento.

Sin embargo, a veces no es tan fácil de detectar
Y hay perros que no se dejan abrir la boca por su dueño. Por ejemplo…

Recientemente nos trajeron a la clínica a un perro que parpadeaba de un ojo y decía su dueño que le picaba un lado de la cara. Tenía molestias y dificultad para comer, lo que había llevado a sus dueños a comprarle comida blanda (que suele ser un poco más cara y llevar más contenido en grasa) durante medio año. Después de una exploración oftalmológica, nos dimos cuenta de que el ojo tenía una úlcera en la córnea probablemente de rascarse . Además, el canto lateral del ojo estaba inflamado. Tenía lo que en humanos llamamos flemón pero como era un perro de pelo largo, no se le notaba a simple vista. Al abrirle la boca nos llamó la atención el ver una muela llena de sarro. Le realizamos una radiografía y encontramos una fístula que llegaba hasta la parte inferior del ojo.

Le tuvimos que extraer la muela. Tras esto, el ojo se curó completamente con unos colirios y una lentilla protectora de úlcera. Afortunadamente, la úlcera no profundizó y no perforó el ojo. Ahora el perro come perfectamente a pesar de haber perdido una muela.

¿Cómo mantener la higiene dental de tu perro?
Hay varias maneras de prevenir problemas derivados de la salud dental de tu perro.

Limpiezas de dientes en casa
Es recomendable limpiar los dientes de tu perro semanal o diariamente si se puede. Existe una gran variedad de productos que se pueden utilizar:

Pastas de dientes.
Cepillos de dientes o dedales para el dedo índice, que hacen más fácil la limpieza.
Colutorios para echar en agua de bebida o directamente sobre el diente en líquido o en spray.

En la Clínica Tus Veterinarios enseñamos a nuestros clientes a tomar el hábito de limpiar los dientes de sus perros desde que son cachorros. Esto responde a nuestro compromiso con la prevención de enfermedades caninas.

Hoy en día tenemos muchos clientes que limpian los dientes todos los días a su mascota, y como resultado, se ahorran el dinero de hacer limpiezas dentales profesionales y consiguen una mejor salud de su perro.

Limpiezas dentales profesionales de perros y gatos

Recomendamos hacer una limpieza dental especializada anualmente. La realizamos con un aparato de ultrasonidos que utiliza agua para quitar el sarro. Después, procedemos a pulir los dientes con un cepillo de alta velocidad y una pasta especial. Hacemos esto para proteger el esmalte.

La frecuencia de limpiezas dentales necesaria varía mucho entre razas. En general, las razas grandes tienen buena calidad de esmalte, por lo que no necesitan hacerlo tan a menudo e incluso pueden pasarse la vida sin requerir una limpieza. Sin embargo, razas pequeñas como el Yorkshire o el Maltés, deben hacérselas todos los años desde cachorros si se quiere conservar sus piezas dentales.

Otro factor fundamental es la calidad del pienso. Algunas marcas han diseñado croquetas que limpian la superficie del diente y de la muela al masticarse.

Ultrasonido para perros

¿Se necesita anestesia para las limpiezas dentales de perros y gatos?

La limpieza dental en perros no es una técnica que pueda practicarse sin anestesia general , aunque hay veces que los propietarios no quieren anestesiar y si tiene poco sarro y el perro es muy bueno se puede intentar…… , pero no se va a poder pulir ni acceder a todas la zona de la boca …. Además los limpiadores dentales van a irrigar agua y hay riesgo de aspiración a vías respiratorias si no se realiza una anestesia correcta con intubación traqueal . En resumen , sin anestesia no se va hacer una correcta limpieza dental.

Tampoco sirve la sedación ya que necesitamos que el animal esté totalmente quieto, y el veterinario tenga un acceso completo a todas sus piezas dentales y encías.

Alimentos para la limpieza dental

Hay que tener cierto cuidado a la hora de comprar determinados alimentos porque no todos son saludables. Algunos tienen demasiado contenido graso, que en exceso puede causar problemas cardiovasculares y obesidad.

Los mejores alimentos para los dientes son aquellos que están elaborados por empresas farmacéuticas y llevan componentes químicos con tratamientos específicos para el diente del perro. Esto implica no solo limpieza a través de la acción mecánica de morder sino también un tratamiento antibacteriano para prevenir el sarro.

Conclusión

Si eres como la mayoría de dueños, por falta de tiempo , es probable que no estés prestando la suficiente atención a la limpieza dental de tu perro. Por eso te animamos a que comiences a limpiar los dientes de tu perro y consideres atender a su higiene bucal con frecuencia.

Estas simples medidas pueden conllevar a que tu perro tenga una vida más larga y mucho más saludable.

Si te resulta imposible introducir un cepillo de dientes a tu perro en la boca, pásate con él por clínica Tus Veterinarios y te explicamos cómo hacerlo.

Necesitas hacer una limpieza dental profesional a tu mascota?
Llámanos al 622575274 o contacta con nosotros

¿Cada cuánto tiempo tengo que hacerle una limpieza dental a mi perro?

Riesgos de una mala higiene

¿Cómo se forma el sarro?

Limpiezas dentales profesionales de perros y gatos

Ultrasonido para perros

Alimentos para la limpieza dental

Conclusión

Deja un comentario Cancelar respuesta

Entradas recientes

Horarios

Donde estamos

Síguenos