Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1188 1802 (N46W48 L= 87)   573    100        1 (1163/1771-1223/1847)  40.6 W43-W54 N43-N49
      2  763 1752 (N61W09 L= 49)   334     54        0 ( 736/1727- 781/1769) -68.2 W07-W12 N57-N62
      3  552 1657 (N61E20 L= 20)  1575    283        2 ( 429/1575- 663/1721)   5.0 E37-E03 N57-N64
      4  898 1564 (N41W10 L= 49)   822    224        1 ( 824/1499- 990/1629) -65.2 W06-W13 N34-N47
      5 1295 1535 (N27W33 L= 73)   782    278        2 (1160/1508-1414/1549) -31.0 W24-W39 N21-N31
      6  979 1337 (N25W06 L= 46)   811    229        4 ( 893/1253-1047/1393) -71.6 W02-W09 N18-N30
      7 1165 1276 (N16W15 L= 55)   292     93        1 (1138/1228-1188/1312)  68.2 W14-W16 N13-N18
      8  841 1177 (N19E06 L= 33)   445    216        0 ( 758/1141- 951/1206) -42.0 E10-W00 N14-N23
      9 1792 1018 (S17W50 L= 89)  2164    412        8 (1697/ 837-1841/1196)  36.0 W37-W59 S24-S08
     10 1894  954 (S25W61 L=101)  1204    188        1 (1836/ 905-1939/1042)   9.5 W52-W71 S27-S21
     11 1272  628 (S23W03 L= 43)   275     42        1 (1242/ 606-1300/ 643) -26.6 W01-W05 S24-S21
     12 1131  473 (S29E10 L= 30)   889    255        1 (1030/ 409-1185/ 567)  21.8 E18-E03 S31-S24
     13 1217  365 (S39E09 L= 31)   335     53        1 (1197/ 336-1240/ 390)  36.9 E10-E06 S41-S37
     14 1056  253 (S43E26 L= 14)  1187    188        2 ( 981/ 200-1130/ 312)  15.5 E35-E17 S45-S40
  

    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