Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  915 1666 (N31E26 L=264)  1218    217        2 ( 835/1579- 993/1721) -21.8 E32-E17 N26-N34
      2  543 1572 (N16E46 L=244)   751    143        3 ( 510/1520- 578/1626) -45.0 E51-E43 N12-N18
      3  966 1463 (N19E15 L=275)   937    211        3 ( 935/1351-1014/1552) -63.4 E18-E12 N12-N24
      4 1736 1244 (N28W42 L=332)  1598    298        1 (1671/1107-1776/1367) -49.4 W34-W47 N20-N34
      5 1852 1150 (N26W56 L=346)  1764    280        2 (1777/1068-1922/1211)  38.7 W47-W68 N19-N31
      6  318 1030 (S20E47 L=244)   492    106        0 ( 296/ 989- 360/1074) -38.7 E48-E42 S22-S17
      7 1493  976 (N05W28 L=319)   765    189        1 (1434/ 916-1530/1069)  84.8 W25-W29 N00-N11
      8 1904  939 (N16W66 L=357)  2205    180        5 (1860/ 890-1948/1006)  81.9 W60-W77 N12-N19
      9 1852  711 (N02W69 L=359)  1055    112        0 (1790/ 687-1903/ 733)   7.8 W59-W81 N00-N03
     10  940  645 (S28W05 L=296)   409    119        0 ( 884/ 624- 999/ 663)  33.7 W02-W08 S30-S25
     11  399  557 (S49E38 L=253)  2088    254        3 ( 309/ 491- 512/ 636)  -7.1 E49-E24 S53-S45
     12 1597  537 (S15W52 L=342)  1317    292        0 (1462/ 499-1715/ 565)  31.4 W43-W62 S21-S10
     13 1168  260 (S45W42 L=332)   337     42        0 (1148/ 239-1188/ 282)  -9.5 W38-W45 S46-S44
     14 1342  200 (S43W65 L=355)  2331    163        3 (1285/ 155-1413/ 270)  -2.0 W50-W79 S45-S39
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y