Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1186 1800 (N49W28 L=336)   304     38        1 (1163/1781-1207/1818)  11.3 W25-W30 N47-N50
      2 1709 1595 (N26W61 L=  9)   544    121        2 (1682/1578-1743/1612)  -8.1 W57-W64 N25-N27
      3  193 1307 (N27E59 L=249)  4341    539        8 ( 119/1218- 252/1409) -65.2 E67-E51 N20-N33
      4  358 1283 (N23E42 L=266)   783    216        0 ( 271/1240- 417/1357)  22.6 E50-E37 N21-N26
      5 1789 1175 (S00W54 L=  2)   577    155        2 (1744/1146-1836/1195)   0.0 W50-W59 S02-N01
      6 1239 1103 (N02W14 L=322)   204     44        0 (1224/1067-1252/1131) -90.0 W12-W14 N00-N03
      7  264  793 (S05E56 L=252)  1222    267        2 ( 188/ 695- 334/ 882) -47.7 E62-E51 S11-N00
      8  941  670 (S21E10 L=298)   968    230        2 ( 861/ 580- 994/ 776)  42.5 E16-E04 S25-S14
      9  386  720 (S11E46 L=262)   478     88        1 ( 364/ 683- 410/ 762)  45.0 E49-E44 S12-S08
     10 1224  687 (S23W09 L=317)   268     69        1 (1192/ 659-1248/ 724)  53.1 W06-W10 S24-S20
     11  277  639 (S15E59 L=249)  2778    438       11 ( 216/ 536- 347/ 720)  74.7 E65-E51 S20-S09
     12 1472  639 (S29W26 L=334)   404     78        0 (1436/ 607-1504/ 674)  31.0 W23-W28 S31-S27
     13 1692  606 (S34W45 L=353)   480    105        2 (1670/ 566-1713/ 646) -63.4 W42-W47 S37-S31
     14  365  525 (S23E55 L=253)   868    191        2 ( 334/ 453- 387/ 594)  56.3 E58-E51 S27-S18
  

    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