Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1015 1723 (N37E25 L=161)  1073    319        3 ( 875/1652-1126/1796)  -4.6 E39-E14 N34-N39
      2  866 1577 (N23E26 L=159)  1132    333        2 ( 794/1430- 927/1686) -35.8 E36-E18 N14-N28
      3  641 1619 (N19E43 L=143)   607    145        0 ( 584/1579- 693/1672)  77.5 E45-E41 N15-N24
      4  488 1572 (N13E52 L=134)   393    113        0 ( 445/1555- 540/1593)   6.3 E57-E48 N11-N14
      5 1683 1457 (N42W35 L=221)   511     95        0 (1641/1424-1729/1481)   5.7 W30-W40 N40-N43
      6  756 1256 (N01E21 L=164)  1133    303        1 ( 709/1121- 801/1383) -82.9 E23-E18 S07-N09
      7  402 1270 (S07E46 L=140)   799    175        2 ( 339/1208- 477/1318)  41.6 E49-E40 S11-S02
      8 1776 1274 (N33W46 L=232)   573     61        0 (1754/1240-1795/1312) -53.1 W43-W48 N30-N35
      9  198 1239 (S13E66 L=120)  1003    122        2 ( 179/1175- 224/1298) -82.9 E69-E63 S16-S08
     10  554 1227 (S06E33 L=153)   573    132        1 ( 535/1156- 575/1291) -63.4 E35-E30 S09-S01
     11 1653 1197 (N23W34 L=220)   608    169        1 (1626/1130-1671/1276)  90.0 W31-W37 N18-N28
     12 1415 1124 (N11W19 L=205)   380     73        1 (1381/1098-1456/1151)   9.5 W16-W22 N10-N12
     13 1629 1073 (N15W35 L=221)   276     95        0 (1595/1039-1670/1102)  -8.1 W32-W39 N14-N16
     14  764  845 (S22E10 L=176)   486    150        0 ( 717/ 780- 813/ 896)  71.6 E11-E08 S26-S17
     15 1149  812 (S13W13 L=199)   255    109        0 (1124/ 778-1183/ 848) -36.9 W10-W15 S14-S11
     16 1452  686 (S11W35 L=221)  1166    334        5 (1313/ 643-1540/ 740)  34.7 W27-W42 S17-S06
     17 1297  717 (S14W25 L=211)   209     28        0 (1276/ 701-1319/ 732)  56.3 W23-W25 S15-S12
     18 1459  636 (S14W38 L=224)   325     65        1 (1437/ 598-1481/ 667) -68.2 W35-W39 S16-S11
     19 1091  570 (S28W18 L=204)  1237    424        0 ( 934/ 526-1277/ 653)  11.3 W05-W30 S31-S23
     20  926  302 (S52W23 L=209)   591    124        0 ( 864/ 284- 988/ 326)  15.3 W17-W29 S53-S49
  

    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