Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  542 1750 (N31E56 L= 96)  1109    139        2 ( 510/1689- 569/1824) -40.6 E64-E49 N26-N38
      2 1106 1753 (N42E12 L=140)   329     61        0 (1072/1739-1142/1765)  18.4 E14-E08 N40-N43
      3 1347 1729 (N47W08 L=160)   431     56        0 (1312/1710-1377/1744)  18.4 W05-W11 N44-N49
      4  897 1706 (N34E24 L=128)   598    113        1 ( 842/1670- 952/1731)   0.0 E28-E19 N31-N35
      5  564 1621 (N22E44 L=108)   955    164        2 ( 528/1576- 647/1677)  -5.2 E48-E37 N18-N25
      6  405 1567 (N17E55 L= 97)   567    149        0 ( 385/1495- 432/1632) -63.4 E57-E51 N11-N21
      7 1118 1542 (N26E04 L=148)   494     93        0 (1099/1498-1137/1595) -74.1 E05-E02 N23-N30
      8  647 1547 (N18E35 L=117)   785    106        5 ( 590/1507- 685/1590) -12.5 E39-E30 N15-N21
      9  560 1487 (N13E39 L=113)   400     71        1 ( 530/1460- 592/1519)  76.0 E40-E36 N11-N15
     10  742 1485 (N16E26 L=126)   247     53        2 ( 716/1447- 758/1518) -63.4 E27-E24 N13-N17
     11 1081 1399 (N16E04 L=148)   218     34        1 (1059/1380-1111/1416)   0.0 E05-E01 N15-N17
     12 1863 1265 (N27W58 L=210)  1675    209        1 (1773/1206-1923/1343)  -8.1 W47-W68 N23-N29
     13 1712 1183 (N17W42 L=194)   799    116        2 (1691/1114-1740/1242)  90.0 W39-W44 N12-N20
     14 1912 1132 (N20W65 L=217)   820    124        1 (1893/1067-1925/1189) -74.1 W62-W67 N16-N23
     15  818 1111 (S05E13 L=139)   215     64        1 ( 784/1089- 854/1128)  26.6 E15-E11 S06-S04
     16  502 1043 (S14E33 L=119)  1028    199        3 ( 446/ 964- 561/1088)  53.1 E36-E28 S19-S11
     17 1781 1024 (N09W50 L=202)   427     55        4 (1763/ 989-1800/1058) -76.0 W48-W51 N07-N11
     18  953  899 (S15E02 L=150)   389     92        0 ( 904/ 869- 995/ 935)  51.3 E04-W00 S17-S12
     19  636  885 (S21E22 L=130)   220     79        1 ( 613/ 848- 654/ 924) -53.1 E23-E20 S23-S19
     20  322  876 (S26E47 L=105)   695    153        1 ( 258/ 820- 375/ 913) -18.4 E53-E41 S29-S24
     21  277  747 (S35E53 L= 99)   672     97        1 ( 245/ 713- 321/ 783) -33.7 E57-E48 S36-S32
     22  610  688 (S34E22 L=130)   313     68        1 ( 582/ 662- 639/ 716)  51.3 E23-E19 S36-S31
     23  994  642 (S30W06 L=158)  1221    355        4 ( 829/ 596-1145/ 681)   8.1 E05-W16 S32-S26
     24 1647  602 (S17W52 L=204)  1034    246        3 (1554/ 530-1730/ 676)  59.7 W47-W57 S23-S11
     25  459  566 (S45E36 L=116)  1551    248        2 ( 353/ 533- 570/ 609)   4.8 E48-E24 S47-S41
     26 1132  498 (S36W20 L=172)   366     65        0 (1101/ 472-1171/ 525)  53.1 W17-W21 S37-S33
     27  769  389 (S52E05 L=147)   276     34        2 ( 750/ 366- 789/ 414)  90.0 E06-E02 S54-S50
     28  552  281 (S68E40 L=112)   962    141        1 ( 485/ 257- 608/ 304)  -4.6 E55-E26 S70-S65
  

    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