Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1143 1818 (N48W44 L= 31)   383     50        0 (1129/1787-1157/1846)  35.5 W41-W49 N45-N50
      2 1544 1690 (N26W62 L= 49)   749     66        1 (1502/1668-1583/1709) -29.7 W58-W66 N24-N28
      3 1335 1569 (N26W37 L= 24)   477    127        0 (1273/1542-1402/1601) -54.5 W34-W40 N23-N30
      4 1561 1502 (N16W49 L= 35)   826    189        2 (1491/1461-1652/1531) -41.6 W43-W54 N10-N18
      5 1689 1489 (N11W59 L= 46)   740    141        3 (1630/1452-1742/1531) -58.0 W54-W62 N07-N15
      6 1108 1398 (N23W15 L=  2)   770    242        2 ( 993/1352-1215/1430) -39.3 W09-W20 N18-N28
      7 1526 1311 (N07W37 L= 24)   233     43        0 (1508/1286-1541/1334)  71.6 W36-W39 N05-N08
      8 1602 1261 (N02W41 L= 28)   578    141        3 (1562/1200-1642/1314)  18.4 W36-W45 N00-N04
      9  160 1001 (N23E65 L=281)  1222    140        3 ( 103/ 974- 238/1025)  -2.6 E76-E54 N21-N24
     10 1360  984 (S06W18 L=  4)   274     92        0 (1333/ 943-1385/1019)  36.9 W15-W19 S07-S04
     11  883  916 (N02E11 L=336)   208     72        0 ( 847/ 900- 920/ 928) -26.6 E12-E08 N01-N03
     12 1467  616 (S31W16 L=  3)  1828    290        8 (1411/ 487-1518/ 731)  49.4 W09-W21 S38-S23
     13 1655  573 (S41W32 L= 19)  1546    224        5 (1562/ 535-1758/ 634) -12.8 W23-W45 S45-S37
     14 1805  573 (S48W55 L= 42)  1466     95        0 (1769/ 537-1839/ 628) -28.6 W46-W70 S53-S41
     15  912  318 (S34E31 L=316)   420     87        0 ( 897/ 281- 934/ 358)  50.2 E32-E27 S37-S31
  

    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