Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1228 1761 (N48E13 L=359)   396     79        1 (1185/1745-1266/1774)  15.9 E15-E08 N45-N50
      2  499 1691 (N21E58 L=314)  2681    304        5 ( 432/1634- 563/1773)  90.0 E62-E54 N16-N27
      3 1323 1615 (N40W01 L= 13)   624    116        2 (1297/1577-1348/1666)  90.0 E01-W03 N36-N43
      4  738 1548 (N18E32 L=339)   694    216        0 ( 716/1473- 778/1633) -45.0 E36-E27 N13-N22
      5  475 1589 (N14E53 L=318)   335     61        0 ( 455/1561- 504/1624)  90.0 E55-E51 N11-N16
      6 1406 1482 (N33W11 L= 22)  1895    279        5 (1356/1365-1451/1613) -60.6 W05-W15 N26-N42
      7  573 1462 (N08E40 L=332)   581    160        3 ( 532/1397- 603/1525) -71.6 E42-E37 N03-N12
      8  456 1451 (N05E48 L=324)   814    193        1 ( 379/1374- 514/1512)  53.1 E51-E45 N00-N08
      9 1783 1195 (N28W45 L= 57)   478    111        0 (1755/1142-1801/1247) -45.0 W42-W47 N24-N29
     10 1242 1127 (N07W09 L= 21)   279     85        0 (1218/1081-1270/1174) -38.7 W06-W11 N04-N08
     11 1368 1085 (N08W18 L= 29)   248     62        1 (1341/1059-1386/1110) -14.0 W15-W19 N06-N09
     12 1721 1046 (N16W43 L= 55)   564     95        3 (1702/ 995-1748/1106) -45.0 W40-W46 N14-N19
     13 1890  906 (N15W64 L= 76)  2582    408        3 (1849/ 813-1919/1031) -47.5 W59-W73 N10-N22
     14  264  921 (S30E49 L=322)  1107    322        1 ( 207/ 815- 351/ 997)  54.5 E54-E42 S37-S23
     15  885  941 (S13E06 L=  6)   341    142        0 ( 814/ 905- 950/ 979)  49.4 E08-E02 S16-S09
     16 1567  871 (N02W36 L= 48)   316    108        0 (1520/ 855-1617/ 888)  33.7 W33-W39 N00-N04
     17 1168  820 (S12W14 L= 26)   199     67        0 (1131/ 798-1198/ 847)  45.0 W11-W14 S13-S10
     18  293  763 (S39E46 L=326)   469     82        2 ( 264/ 743- 317/ 787)  38.7 E48-E43 S41-S37
     19 1295  643 (S18W27 L= 39)  1343    432        0 (1097/ 570-1500/ 747)  46.5 W17-W36 S27-S06
     20 1122  720 (S19W14 L= 26)   414    166        2 (1045/ 697-1200/ 741)  16.7 W09-W19 S21-S16
  

    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