Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1514 1679 (N35W47 L=180)   362     56        0 (1493/1658-1536/1701)   9.5 W43-W49 N33-N36
      2  482 1511 (N36E35 L= 99)  2849    725        8 ( 294/1426- 699/1592) -23.6 E56-E17 N27-N44
      3  260 1185 (N17E51 L= 82)   973    202        3 ( 218/1121- 324/1246)  45.0 E55-E45 N13-N20
      4  871 1168 (N09E08 L=126)   270     87        1 ( 832/1123- 913/1201) -51.3 E09-E05 N06-N11
      5 1071 1070 (N01W03 L=136)   297     77        2 (1046/1029-1092/1121)  53.1 W01-W04 N00-N04
      6  276 1055 (N09E50 L= 83)   321     46        1 ( 253/1024- 292/1078) -76.0 E52-E48 N06-N10
      7 1813  901 (S16W54 L=187)  1214    277        2 (1725/ 813-1884/ 982)  25.2 W45-W62 S20-S11
      8  927  785 (S14E08 L=125)   202    116        0 ( 886/ 737- 985/ 815)  23.2 E11-E04 S16-S12
      9 1455  717 (S24W25 L=158)   218    102        0 (1403/ 699-1504/ 741)   0.0 W21-W28 S24-S22
     10 1781  587 (S36W55 L=188)   426     70        2 (1760/ 560-1794/ 617) -76.0 W52-W56 S38-S33
     11 1292  461 (S39W13 L=146)   753    221        3 (1202/ 410-1390/ 530)  21.8 W05-W20 S42-S35
     12  886  433 (S36E18 L=115)   487    147        1 ( 847/ 388- 920/ 499)  41.2 E21-E13 S39-S31
     13  581  379 (S36E43 L= 90)  1011    313        0 ( 552/ 262- 623/ 489)  59.5 E48-E38 S45-S28
  

    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