From 29447a35cdb5907f29888d7e9df35f6f41f99b9c Mon Sep 17 00:00:00 2001 From: Ahmed Nematallah Date: Sun, 17 May 2026 03:46:10 +0200 Subject: [PATCH] Delete duplicate magicps.pro file This file exists in the magic directory, and is the one the build system uses, this file is a duplicate that has one different line "/ms { rectfill } bind def", and is not used anywhere Keeping two duplicate files causes issues like them being out of sync, therefore it would be great if it was deleted --- tcltk/magicps.pro | 70 ----------------------------------------------- 1 file changed, 70 deletions(-) delete mode 100644 tcltk/magicps.pro diff --git a/tcltk/magicps.pro b/tcltk/magicps.pro deleted file mode 100644 index f16abb87..00000000 --- a/tcltk/magicps.pro +++ /dev/null @@ -1,70 +0,0 @@ -%%BeginProlog -% -% PostScript prolog for output from magic plot -% Version: 1.0 -% written by Tim Edwards 4/05/00 JHU Applied Physics Laboratory -% -%%BeginResource: procset MAGICproc 1.0 1 -% supporting definitions - -/MAGICsave save def - -/bop { 1 setlinecap 0 setlinejoin 6 setmiterlimit 0 setgray } def -/ninit { /nChars matrix currentmatrix dup 0 get 0 eq {1} {0} - ifelse get abs 72 8.5 mul mul 64 div ceiling cvi def } def -/minit { 1 1 dtransform abs dup 1 exch div /onePix exch def - dup /resY exch def 1 exch div /iresY exch def - abs dup /resX exch def 1 exch div /iresX exch def - /bX 64 iresX mul def /bY 64 iresY mul def - /pattFont StipplePattern definefont pop - /patterns /pattFont findfont [iresX 64 mul 0 0 iresY 64 mul 0 0] makefont def - /ca nChars 1 add string def - } def -/StipplePattern 45 dict def -StipplePattern begin - /FontType 3 def - /FontMatrix [1 0 0 1 0 0] def - /FontBBox [0 0 1 1] def - /Encoding 256 array def - /PattName (P0) def - /tmpStr 1 string def - /NoPatt {<00>} def - 0 1 255 { Encoding exch /NoPatt put } for - /BuildChar { - 1 0 0 0 1 1 setcachedevice exch begin Encoding exch get load - 64 64 true [64 0 0 64 0 0] 5 -1 roll imagemask end } def -end -/dp { StipplePattern begin dup 30 tmpStr cvrs PattName exch 1 exch - putinterval PattName cvn dup Encoding exch 4 -1 roll exch put exch - store end } def -/sf { findfont exch scalefont setfont } bind def -/sp { patterns setfont 2 setlinewidth } def -/lb { gsave translate 0 0 moveto /just exch def gsave dup true charpath - flattenpath pathbbox grestore exch 4 -1 roll exch sub 3 1 roll sub - just 4 and 0 gt {just 8 and 0 eq {0.5 mul} if}{pop 0} ifelse exch - just 1 and 0 gt {just 2 and 0 eq {0.5 mul} if}{pop 0} ifelse exch - rmoveto show grestore } def -/sl { 0 1 nChars { exch dup 3 1 roll ca 3 1 roll put } for pop } def -/sc { setcmykcolor } bind def -/l1 { onePix setlinewidth } def -/l2 { onePix 2 mul setlinewidth } def -/l3 { onePix 3 mul setlinewidth } def -/ml { moveto lineto stroke } bind def -/vl { moveto 0 exch rlineto stroke } bind def -/hl { moveto 0 rlineto stroke } bind def -/mr { rectstroke } bind def -/mx { 4 copy rectstroke 4 -1 roll 4 -1 roll 4 copy moveto rlineto stroke - 3 -1 roll dup neg 4 1 roll add moveto rlineto stroke } bind def -/pl { gsave translate /d exch def 0 d neg moveto 0 d lineto stroke - d neg 0 moveto d 0 lineto stroke grestore } bind def -/bx { x resX mul cvi 63 not and dup iresX mul exch - w resX mul sub abs 63 add cvi 64 idiv /w exch def - y resY mul cvi 63 not and dup iresY mul exch - h resY mul sub abs 63 add cvi 64 idiv /h exch def - /ch ca 0 w getinterval def - moveto h { ch gsave show grestore 0 bY rmoveto } repeat grestore } def -/fb {/h exch def /w exch def /y exch def /x exch def gsave newpath - x y moveto w y lineto w h lineto x h lineto closepath clip bx } def -/tb {1 sub 3 1 roll gsave newpath moveto {lineto} repeat closepath clip pathbbox - /h exch def /w exch def /y exch def /x exch def bx } def -