Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  449 1733 (N24E71 L=217)   709     97        0 ( 427/1699- 491/1766) -71.6 E74-E66 N21-N27
      2  973 1554 (N25E18 L=270)  2214    486        3 ( 868/1326-1043/1720) -50.4 E29-E10 N11-N35
      3  583 1550 (N15E42 L=246)   358     90        2 ( 564/1511- 601/1592) -51.3 E45-E39 N13-N18
      4 1752 1255 (N29W43 L=332)  1619    240        3 (1693/1139-1799/1361) -50.7 W37-W49 N23-N35
      5 1855 1133 (N25W56 L=344)  2127    355        1 (1773/1057-1936/1207)  17.7 W46-W71 N19-N31
      6 1524  969 (N06W30 L=319)   887    236        1 (1457/ 897-1561/1086)  90.0 W27-W32 N00-N12
      7  339 1020 (S20E45 L=244)   511    108        0 ( 318/ 980- 382/1068) -39.8 E46-E40 S22-S17
      8 1889  912 (N14W65 L=353)   581     85        1 (1875/ 868-1904/ 955) -78.7 W62-W68 N11-N16
      9 1872  701 (N02W73 L=  1)   789     49        1 (1841/ 683-1903/ 718)   3.8 W67-W82 N00-N03
     10  959  629 (S28W07 L=295)   567    132        1 ( 898/ 588-1025/ 658)  49.4 W04-W10 S32-S25
     11  405  554 (S49E37 L=251)  2092    271        2 ( 307/ 481- 524/ 633)  -9.1 E49-E23 S53-S45
     12 1653  531 (S14W57 L=345)   997    163        1 (1578/ 510-1726/ 558)  32.5 W51-W63 S17-S10
     13 1335  204 (S43W63 L=351)  1740    137        3 (1283/ 162-1402/ 259)  -4.1 W52-W81 S44-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