Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1558 1659 (N24W58 L=198)   695     91        1 (1508/1637-1602/1677) -29.7 W54-W61 N22-N26
      2 1508 1628 (N24W51 L=191)   478     92        1 (1463/1598-1552/1652) -59.0 W48-W54 N21-N26
      3 1492 1535 (N20W44 L=184)   929    226        0 (1387/1505-1569/1583) -10.6 W35-W51 N17-N22
      4 1334 1393 (N16W28 L=168)   774    216        1 (1312/1282-1352/1491)  54.0 W24-W32 N10-N21
      5 1803 1176 (S08W54 L=194)  4253    424        9 (1706/1026-1897/1372)  81.5 W47-W62 S16-N04
      6 1866 1236 (S07W63 L=204)  4078    291       16 (1813/1106-1935/1356) -86.2 W58-W73 S15-N00
      7  801 1332 (N27E05 L=135)   358     65        0 ( 766/1310- 837/1355)   0.0 E07-E02 N25-N28
      8 1677 1085 (S09W41 L=181)  1179    313        3 (1637/ 965-1719/1215)  65.2 W36-W46 S16-S02
      9  368 1076 (N22E40 L=100)   977    207        1 ( 337/1003- 428/1171) -71.6 E42-E36 N16-N28
     10  220 1040 (N23E55 L= 85)  2526    433        4 (  92/ 847- 309/1166) -38.2 E78-E47 N10-N32
     11 1258  987 (S04W12 L=152)  1211    268        2 (1179/ 859-1318/1079) -90.0 W09-W14 S11-N03
     12 1777  944 (S20W46 L=186)  2544    435        7 (1705/ 803-1842/1067) -71.6 W40-W53 S29-S11
     13 1869 1019 (S19W58 L=198)   552     58        0 (1855/ 983-1891/1049)  26.6 W55-W61 S21-S17
     14 1087  670 (S17E05 L=135)  1675    478        1 ( 933/ 555-1254/ 832)  15.6 E17-W08 S20-S11
     15  318  726 (N03E53 L= 87)   458     83        1 ( 299/ 690- 349/ 767) -78.7 E54-E51 N00-N05
     16 1420  671 (S26W15 L=155)  1439    353        3 (1262/ 598-1564/ 761)   0.0 W03-W26 S27-S23
     17  633  630 (S09E33 L=107)   289     66        1 ( 616/ 598- 659/ 667)  76.0 E34-E31 S10-S06
     18  468  590 (S07E46 L= 94)   644    164        2 ( 409/ 528- 534/ 633) -58.0 E49-E42 S12-S04
     19  308  567 (S06E61 L= 79)  1210    144        3 ( 253/ 508- 355/ 610) -66.8 E65-E56 S09-S02
     20  673  505 (S17E35 L=105)   483    157        0 ( 607/ 474- 721/ 561)   6.3 E39-E30 S18-S14
  

    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