Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1548 1602 (N23W55 L= 17)   320     35        0 (1526/1580-1568/1625)  11.3 W52-W58 N21-N23
      2 1018 1544 (N37W16 L=339)   544    147        1 ( 949/1509-1081/1590)   4.8 W10-W22 N35-N37
      3 1318 1551 (N28W35 L=358)   297     87        0 (1272/1533-1361/1569) -15.9 W31-W38 N26-N28
      4  836 1514 (N40W03 L=325)   338     48        1 ( 809/1484- 859/1538) -56.3 W01-W04 N38-N41
      5 1760 1329 (N02W57 L= 19)   468     79        0 (1722/1304-1784/1358)   0.0 W52-W60 N00-N03
      6  231 1285 (N41E58 L=265)   842    116        2 ( 179/1260- 285/1307)  -9.5 E67-E49 N38-N42
      7  782 1269 (N27E08 L=315)  1232    333        2 ( 629/1234- 935/1296) -24.0 E18-W00 N21-N30
      8 1818 1100 (S12W54 L= 16)  1142    188        2 (1782/1002-1855/1172)  48.8 W49-W59 S16-S08
      9  357  903 (N15E46 L=277)  3422    732        4 ( 245/ 678- 632/1049)  23.6 E57-E23 N03-N23
     10 1583  960 (S12W31 L=353)   747    167        0 (1526/ 901-1615/1031)  29.1 W25-W34 S14-S08
     11  725  912 (N08E20 L=303)   224     86        0 ( 691/ 876- 760/ 943) -59.0 E21-E18 N05-N10
     12 1341  743 (S17W11 L=333)   303     73        0 (1312/ 707-1369/ 776)  36.9 W08-W12 S18-S15
     13 1135  738 (S12E01 L=321)   281     66        0 (1102/ 707-1160/ 763)  33.7 E03-W00 S12-S10
     14 1075  699 (S12E06 L=317)   214     70        1 (1065/ 659-1095/ 736)  63.4 E07-E04 S14-S10
     15  356  608 (S02E55 L=267)   760    139        0 ( 316/ 561- 404/ 661) -56.3 E57-E52 S05-N01
     16 1301  556 (S28W04 L=326)   405    142        0 (1283/ 480-1332/ 616)  53.1 W00-W06 S32-S24
     17  454  386 (S17E60 L=263)  4316    441       11 ( 354/ 284- 523/ 483) -85.6 E74-E50 S25-S10
     18  762  416 (S22E34 L=289)  1132    209        3 ( 722/ 319- 807/ 483)  42.3 E41-E29 S27-S17
     19  552  348 (S22E54 L=269)   379     72        1 ( 527/ 322- 571/ 372)  23.2 E58-E51 S23-S19
     20 1483  310 (S55W12 L=335)   761    102        0 (1437/ 288-1523/ 331) -31.0 W07-W17 S59-S51
     21  753  171 (S40E56 L=266)   828     86        2 ( 738/ 128- 773/ 206)  19.3 E69-E49 S44-S36
  

    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