Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1121 1777 (N43E19 L=172)   803    191        1 (1073/1719-1167/1839) -31.6 E25-E12 N39-N47
      2  527 1687 (N21E53 L=137)   376     25        0 ( 505/1670- 552/1704)   0.0 E55-E50 N19-N21
      3  562 1586 (N15E45 L=146)   602    132        0 ( 543/1528- 583/1639) -40.6 E48-E41 N11-N17
      4 1303 1092 (N04W14 L=204)   453    145        1 (1232/1071-1388/1114)  18.4 W09-W18 N01-N06
      5 1784 1032 (N15W48 L=238)   416     94        0 (1771/ 982-1796/1083) -80.5 W46-W49 N12-N18
      6  249 1021 (S24E52 L=138)   815    269        1 ( 178/ 965- 328/1072)  33.7 E58-E45 S28-S19
      7 1424 1034 (N04W22 L=213)   225     29        1 (1405/1011-1441/1056)  71.6 W20-W23 N02-N05
      8 1449  841 (S06W29 L=220)   734    123        3 (1424/ 761-1470/ 908) -66.0 W26-W31 S10-S01
      9 1184  779 (S16W16 L=206)  1081    235        1 (1059/ 737-1297/ 836)  39.3 W09-W20 S21-S11
     10 1383  812 (S09W26 L=217)   232     68        1 (1353/ 785-1412/ 832) -11.3 W23-W28 S10-S08
     11 1859  810 (N06W63 L=254)   507    166        1 (1823/ 794-1899/ 828)  15.3 W58-W69 N04-N07
     12  885  519 (S40W07 L=197)  1680    347        2 ( 725/ 487-1066/ 562)  13.5 E06-W19 S44-S35
     13 1487  460 (S25W48 L=238)  1739    395        0 (1323/ 430-1629/ 505)  23.5 W36-W59 S30-S19
  

    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