Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1698 1429 (N09W56 L= 38)   452     80        2 (1674/1398-1721/1463)  76.0 W53-W59 N07-N11
      2 1254 1353 (N19W23 L=  4)   522    189        0 (1166/1320-1327/1419)   4.4 W16-W29 N17-N20
      3 1768  895 (S22W44 L= 26)   661    106        1 (1720/ 859-1810/ 927)   6.3 W39-W48 S23-S20
      4 1241  675 (S18W03 L=345)   401    133        1 (1213/ 606-1285/ 735)  35.5 W00-W07 S22-S15
      5 1171  536 (S25E05 L=337)   495    128        0 (1107/ 516-1228/ 570)   0.0 E08-W00 S27-S23
      6  956  324 (S34E26 L=315)  1039    237        0 ( 892/ 247-1004/ 408)  33.7 E34-E19 S38-S28
      7 1122  157 (S55E30 L=312)  2020    236        4 ( 999/ 112-1250/ 197)  -6.6 E44-E16 S58-S51
  

    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