Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1090 1479 (N27W13 L=212)   589    165        0 (1017/1427-1160/1517) -48.8 W09-W17 N22-N30
      2  986 1426 (N26W06 L=204)   264     97        0 ( 942/1398-1026/1445) -36.9 W02-W07 N23-N27
      3 1550 1372 (N11W40 L=238)   753    146        0 (1489/1324-1616/1404) -45.0 W36-W43 N07-N14
      4  773 1360 (N26E09 L=189)   302    117        0 ( 713/1328- 815/1402)  14.0 E13-E05 N24-N27
      5  851 1218 (N16E06 L=192)   422    184        0 ( 776/1174- 923/1281)  21.8 E11-E01 N14-N18
      6  188 1069 (N19E59 L=140)  2961    272        6 ( 103/ 992- 279/1150) -21.4 E72-E48 N14-N24
      7 1875 1091 (S11W61 L=259)  1539    135        4 (1839/1041-1916/1146)  56.3 W56-W66 S13-S07
      8 1278 1021 (S03W14 L=213)   315    118        0 (1226/ 990-1315/1042) -31.0 W11-W16 S05-S01
      9 1180  906 (S08W07 L=205)   523    159        0 (1154/ 847-1226/ 973) -76.0 W05-W08 S12-S04
     10 1329  876 (S13W15 L=213)   393    166        0 (1251/ 838-1384/ 931)  11.3 W09-W19 S13-S10
     11  388  603 (S11E51 L=148)  2497    458        3 ( 329/ 451- 427/ 828)  45.0 E65-E44 S20-N01
     12 1147  768 (S15W02 L=201)   211    121        0 (1095/ 727-1185/ 785) -59.0 W00-W03 S18-S13
     13 1680  597 (S38W40 L=238)  3370    635        3 (1432/ 435-1915/ 784)  12.2 W17-W69 S44-S30
     14 1535  743 (S25W27 L=225)   231     59        0 (1514/ 717-1557/ 779)  45.0 W25-W28 S25-S22
     15  612  650 (S12E32 L=166)  1323    360        2 ( 483/ 597- 724/ 755)   9.0 E42-E23 S15-S07
     16  185  640 (S06E73 L=126)  1312    132        0 ( 154/ 577- 214/ 694) -90.0 E76-E69 S10-S02
     17  602  520 (S20E38 L=161)   560    126        2 ( 570/ 478- 626/ 563)  45.0 E41-E35 S22-S17
     18  541  411 (S26E48 L=150)  1028    197        2 ( 461/ 380- 644/ 454)   0.0 E57-E38 S27-S23
     19  929  364 (S37E22 L=176)   255     31        0 ( 913/ 344- 948/ 391)  76.0 E23-E20 S38-S34
  

    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