ô >ShowDraw *ô ShowDraw - examine DrawFile contents ô (c) DoggySoft, 1995 ë 0 ï 14 è "Filename: "A$ *ç A$="" Œ A$="RAM::RamDisc0.$.Current" È™ "OS_File",5,A$ ¸ A%,,,,L% #ç A%<>1 Œ È™ "OS_File",19,A$,A% "ç L%<40 Œ … 0,"File too small" Þ F% L% È™ "OS_File",255,A$,F%,0 ;ç !F%<>&77617244 Œ … 0,"'Draw' file identifier missing" %ñ "Version: ";(F%!4)/100;".";F%!8 ñ "Creator: '"; ã I%=12 ¸ 23 ' ç F%?I%>31 € F%?I%<>127 Œ ï F%?I% í I% ñ "'" òbbox(F%+24) P%=F%+40:Q%=F%+L% ob%=0 È• (P%+8)=(F%+40) ob%+=1 ñ - ñ "Type: '";¤otype(!P%);"' Size: ";P%!4 9 ç ((P%!4)€3) „ (P%!4)<8 Œ … 0,"Illegal object size" ç !P%<>0 Œ òbbox(P%+8) A%=P%+24 ÈŽ !P% Ê ! É 0 : ô Font table " A%=P%+8 # È• ?A%<>0 $ ñ " ";?A%;": '"; % A%+=1 & È• ?A%>31 '& ç ?A%>31 € ?A%<>127 Œ ï?A% ( A%+=1 ) Î * ñ "'" + Î , É 1 : ô Text -B ñ " Colour: ";~A%!0;" Background: ";~A%!4;" Style: ";A%!8 .= ñ " XSize: ";(A%!12)/640;" YSize: ";(A%!16)/640;" "; /C ñ "XPos: ";(A%!20)/256;" YPos: ";(A%!24)/256'" String: '"; 0 A%+=28 1 È• ?A%>31 2% ç ?A%>31 € ?A%<>127 Œ ï ?A% 3 A%+=1 4 Î 5 ñ "'" 6 É 2 : ô Path 7A ñ " Fill: ";~A%!0;" Colour: ";~A%!4;" Width: ";A%!8;" "; 8 ñ "Style: ";~A%!12 9 A%+=16 : ç (A%!12)€128 Œ ;: ñ "Dash: Distance: ";A%!0;" Size: ";A%!4'" "; < S%=A%!4 = A%+=8 > ã I%=0 ¸ S% ? ñ !A% @ A%+=4 A í I% B ñ C Í D È• A%<(P%+P%!4) E ÈŽ !A% Ê F É 0 : G ñ " End of path" H A%+=4 I É 2 : J> ñ " Move: XPos: ";(A%!4)/256;" YPos: ";(A%!8)/256 K A%+=12 L É 5 : M ñ " Close sub-path" N A%+=4 O É 8 : P> ñ " Draw: XPos: ";(A%!4)/256;" YPos: ";(A%!8)/256 Q A%+=12 R É 6 : S ñ " Bezier:" T A%+=4 U ã I%=0 ¸ 2 VB ñ " XPos: ";(A%!0)/256;" YPos: ";(A%!4)/256 W A%+=8 X Í Y : Z3 … 0,"Unknown path component ("+Ã!A%+")" [ Ë \ Î ] Ë ^ P%+=(P%!4) _Î `ñ "Total objects: ";ob% aà b cÝ òbbox(P%) d4 ñ "XMin: ";(!P%)/256;" YMin: ";(P%!4)/256;" "; e1 ñ "XMax: ";(P%!8)/256;" YMax: ";(P%!12)/256 fá g hÝ ¤otype(O%) i ÈŽ O% Ê j É 0 : ="Font table" k É 1 : ="Text" l É 2 : ="Path" m É 5 : ="Sprite" n É 6 : ="Group" o É 7 : ="Tag" p É 9 : ="Text area" q É 10 : ="Text column" r É 11 : ="Options" s É 12 : ="Transformed text" t" É 13 : ="Transformed sprite" u Ë v =Ã O% ÿ