Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  719 1746 (N34E39 L=126)   414     73        0 ( 685/1726- 754/1765)  21.8 E41-E35 N31-N35
      2  439 1655 (N23E58 L=107)  2130    262        7 ( 387/1583- 526/1752) -24.8 E72-E46 N18-N31
      3  777 1705 (N31E32 L=133)   366     41        2 ( 753/1683- 806/1725)  33.7 E34-E30 N29-N33
      4  930 1592 (N26E17 L=148)   435     96        1 ( 906/1552- 962/1631)  90.0 E18-E15 N23-N29
      5 1107 1572 (N28E06 L=160)   224     80        0 (1088/1530-1126/1610) -51.3 E07-E03 N25-N30
      6  441 1563 (N17E52 L=114)  1261    194        3 ( 361/1529- 523/1595)  17.1 E58-E44 N14-N19
      7 1821 1291 (N27W53 L=218)  2282    170        8 (1769/1223-1876/1352) -26.6 W47-W61 N23-N31
      8  265 1265 (S03E56 L=109)  1007    122        3 ( 240/1191- 298/1318) -66.8 E59-E53 S07-N00
      9 1552 1227 (N16W29 L=194)   725    191        1 (1526/1131-1592/1311)  85.2 W27-W31 N09-N21
     10 1807 1193 (N20W51 L=216)   642    113        0 (1789/1130-1822/1240) -81.9 W49-W52 N16-N23
     11 1626 1118 (N11W36 L=201)   449     94        1 (1605/1061-1640/1167) -71.6 W33-W37 N07-N13
     12  462 1089 (S12E36 L=129)   418     78        2 ( 436/1057- 493/1124) -76.0 E38-E34 S13-S09
     13  327 1083 (S14E47 L=118)   410    118        0 ( 297/1024- 368/1115)  56.3 E49-E43 S17-S11
     14  442  950 (S20E36 L=129)   334     78        2 ( 417/ 917- 464/ 986)  78.7 E38-E34 S22-S17
     15  203  897 (S26E60 L=105)   374     67        0 ( 172/ 868- 233/ 923) -20.6 E64-E56 S27-S24
     16  181  728 (S36E69 L= 96)   680     59        1 ( 158/ 702- 217/ 749)   0.0 E74-E62 S38-S35
     17  851  691 (S29E05 L=161)  1047    341        3 ( 689/ 645-1002/ 727)   5.4 E15-W06 S32-S27
     18 1476  646 (S19W37 L=202)   402    138        0 (1428/ 596-1504/ 702)  81.9 W34-W38 S22-S15
     19 1709  653 (S13W55 L=220)   328     58        1 (1676/ 635-1733/ 675)  36.9 W52-W57 S14-S11
     20 1724  576 (S17W61 L=226)  1461    254        1 (1620/ 507-1801/ 663)  55.3 W54-W65 S23-S09
     21  358  589 (S45E48 L=117)  1278    202        1 ( 270/ 558- 447/ 628)   9.1 E61-E36 S46-S40
     22 1558  473 (S27W52 L=217)   416     77        0 (1521/ 458-1599/ 489)  15.9 W48-W55 S27-S25
     23  644  424 (S52E18 L=147)   369     44        1 ( 619/ 406- 670/ 452)  45.0 E21-E15 S53-S49
     24  549  408 (S55E30 L=135)   545     69        1 ( 520/ 389- 593/ 439) -15.9 E34-E24 S57-S53
     25 1590  309 (S35W73 L=239)   626     65        0 (1564/ 295-1627/ 326)  20.6 W67-W79 S36-S33
     26  511  283 (S69E52 L=114)   776    119        1 ( 463/ 270- 572/ 306)  -2.4 E67-E36 S69-S66
  

    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