Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1624 1577 (N17W59 L=185)   684    101        2 (1606/1519-1644/1618)  24.0 W54-W64 N14-N19
      2 1693 1589 (N15W67 L=193)   749     52        2 (1666/1559-1719/1615)  18.4 W64-W71 N14-N16
      3 1556 1546 (N18W51 L=177)   294     30        0 (1531/1531-1584/1562) -21.8 W48-W54 N17-N19
      4 1760 1506 (N09W68 L=194)  1734    153        4 (1703/1469-1825/1546) -26.6 W62-W79 N05-N12
      5 1862 1161 (S12W60 L=186)  7774    514       17 (1775/ 996-1953/1384)  87.5 W49-W79 S23-N00
      6 1220 1345 (N18W20 L=147)   603    131        1 (1157/1326-1282/1363) -20.6 W16-W24 N15-N20
      7 1035 1263 (N19W07 L=133)   379    155        0 ( 971/1224-1092/1297) -50.2 W03-W09 N15-N21
      8  410 1041 (N22E38 L= 88)  1707    398        0 ( 289/ 899- 524/1171) -54.5 E47-E32 N11-N32
      9 1148 1122 (N08W09 L=136)   208    133        0 (1082/1109-1209/1136) -15.9 W05-W12 N07-N09
     10  665 1048 (N17E20 L=106)   381    144        0 ( 606/1024- 747/1079) -36.9 E23-E15 N13-N19
     11 1760 1001 (S17W45 L=171)   286     38        1 (1742/ 977-1783/1022)  45.0 W43-W47 S17-S15
     12 1799  932 (S22W48 L=174)   323     70        1 (1768/ 916-1828/ 961) -18.4 W44-W50 S23-S20
     13 1413  824 (S15W16 L=143)   452    174        1 (1377/ 752-1440/ 912)  45.0 W12-W20 S18-S11
     14 1544  646 (S31W21 L=148)  3632    598        5 (1408/ 433-1692/ 890)  33.7 W07-W37 S41-S20
     15  923  766 (S05E12 L=114)   216     54        1 ( 889/ 750- 947/ 787) -14.0 E14-E10 S06-S03
     16 1330  768 (S16W10 L=136)   246     66        0 (1293/ 748-1364/ 782) -53.1 W08-W11 S18-S14
     17  751  679 (S06E25 L=102)   464    163        1 ( 737/ 588- 768/ 748)  66.0 E28-E22 S10-S01
     18  501  654 (S01E41 L= 85)   714    163        6 ( 432/ 593- 559/ 708) -26.6 E46-E38 S05-N01
     19 1159  618 (S20E04 L=123)   466    228        0 (1115/ 532-1212/ 703)  37.9 E08-W01 S24-S16
     20  581  659 (S03E36 L= 90)   451     82        1 ( 542/ 627- 622/ 696) -68.2 E38-E33 S05-N00
     21  928  518 (S20E20 L=106)   940    328        1 ( 895/ 360- 976/ 665)  46.7 E28-E12 S29-S11
  

    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