Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1437 1793 (N44W65 L=351)  1824    140        2 (1393/1729-1466/1852)  16.3 W56-W85 N40-N47
      2  821 1758 (N60W01 L=287)   510     57        1 ( 795/1726- 844/1792)  56.3 E02-W04 N57-N63
      3 1336 1575 (N33W35 L=321)  2081    395        3 (1224/1512-1511/1651) -45.0 W28-W45 N25-N40
      4  431 1448 (N43E41 L=246)  1604    301        5 ( 290/1405- 553/1485)  -8.6 E60-E27 N37-N46
      5 1778 1334 (N09W60 L=346)   786    173        2 (1739/1253-1816/1399)  84.3 W58-W62 N03-N13
      6 1101 1100 (N10W06 L=292)   646    179        1 (1032/1031-1163/1160) -63.4 W02-W08 N04-N14
      7 1870 1041 (S10W61 L=348)   459     45        0 (1855/1012-1882/1073)  45.0 W59-W63 S11-S08
      8  369  973 (N13E44 L=242)   440    151        1 ( 309/ 939- 408/1009)  -7.1 E49-E41 N10-N15
      9  466  945 (N10E37 L=249)   250     89        0 ( 454/ 900- 479/ 992)  80.5 E37-E36 N07-N13
     10 1473  870 (S11W25 L=311)   251     98        0 (1449/ 830-1514/ 901)  36.9 W22-W27 S12-S09
     11 1626  627 (S30W35 L=321)  2295    417        3 (1473/ 524-1753/ 781)  17.7 W21-W46 S35-S22
     12 1318  588 (S25W11 L=297)   341     83        0 (1275/ 571-1355/ 613)   0.0 W07-W13 S26-S23
     13  470  482 (S19E50 L=237)  1425    248        3 ( 397/ 387- 552/ 580) -74.1 E52-E45 S25-S11
     14  926  244 (S44E27 L=259)  3266    453        6 ( 755/ 175-1128/ 332)   9.5 E49-E07 S48-S39
  

    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