Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1393 1392 (N17W33 L= 55)   231     54        1 (1375/1363-1419/1413)  33.7 W30-W34 N15-N17
      2  718 1048 (N16E17 L=  5)  2152    486        6 ( 584/ 918- 891/1234) -64.4 E22-E09 N04-N29
      3 1011 1199 (N17W04 L= 26)   420    144        1 ( 947/1146-1065/1233) -60.3 W00-W06 N12-N20
      4 1138 1176 (N12W10 L= 33)   335     94        2 (1099/1133-1172/1206) -78.7 W08-W11 N09-N14
      5  157 1141 (N33E68 L=314)   479     55        1 ( 136/1114- 184/1171) -18.4 E73-E63 N31-N34
      6  413  989 (N19E39 L=343)   236    114        0 ( 361/ 978- 464/1001) -20.6 E43-E35 N18-N21
      7 1775  837 (S26W45 L= 67)   442     65        0 (1747/ 814-1804/ 859)   0.0 W42-W48 S27-S25
      8  390  762 (N07E47 L=335)   352     51        2 ( 360/ 741- 421/ 785)   0.0 E49-E43 N05-N07
      9 1545  581 (S35W21 L= 43)  1752    317        3 (1413/ 498-1636/ 686)  10.8 W09-W30 S38-S29
     10  582  372 (S21E50 L=332)   441     83        1 ( 567/ 335- 599/ 411)  45.0 E52-E46 S23-S18
     11 1266  325 (S44E07 L= 15)   639     90        0 (1237/ 286-1304/ 364)  26.6 E10-E02 S47-S42
     12 1196  261 (S47E15 L=  7)   429     59        1 (1178/ 238-1219/ 295)  80.5 E17-E13 S49-S43
     13 1133  229 (S48E22 L=360)   441     66        0 (1108/ 208-1162/ 250) -63.4 E24-E19 S50-S45
  

    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