Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1472 1657 (N41W30 L= 74)  2926    506        8 (1257/1557-1656/1738)  -6.7 W12-W46 N34-N46
      2 1126 1605 (N33W02 L= 46)   797    160        1 (1050/1545-1174/1643) -32.0 E02-W06 N28-N35
      3 1677 1541 (N34W46 L= 89)   598    126        2 (1649/1509-1713/1568)  26.6 W42-W50 N31-N37
      4 1767 1498 (N33W54 L= 97)  1396    208        3 (1709/1459-1823/1532)   4.8 W47-W60 N29-N35
      5  286 1357 (N12E54 L=349)   838    205        1 ( 234/1293- 340/1393) -24.8 E60-E47 N08-N14
      6 1741 1293 (N18W47 L= 91)   325    102        1 (1704/1244-1765/1341) -51.3 W44-W49 N15-N20
      7 1053 1283 (N11E00 L= 44)   202     61        1 (1022/1259-1090/1304) -18.4 E01-W02 N09-N12
      8 1658 1222 (N12W40 L= 84)   346    120        1 (1639/1162-1676/1283) -69.4 W38-W41 N08-N16
      9 1416 1113 (N03W23 L= 67)  1006    300        3 (1326/ 980-1479/1276) -53.7 W16-W28 S03-N12
     10 1749 1194 (N12W48 L= 91)   411    150        3 (1704/1161-1790/1239)  26.6 W43-W51 N09-N14
     11 1874  871 (S06W64 L=107)   450    189        1 (1836/ 849-1923/ 888)  20.0 W58-W71 S07-S03
     12 1753  626 (S22W57 L=101)   501     92        0 (1715/ 600-1792/ 651)  33.7 W54-W60 S23-S19
     13  541  571 (S36E33 L= 11)   613    104        1 ( 490/ 547- 597/ 601) -14.0 E36-E28 S37-S33
  

    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