Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  353 1266 (N32E40 L=179)   980    152        3 ( 296/1202- 402/1300) -53.1 E45-E35 N27-N35
      2 1168 1199 (N10W12 L=231)   228    119        0 (1124/1170-1197/1230) -11.3 W09-W14 N08-N11
      3  419  713 (S01E45 L=173)  2097    412        5 ( 339/ 607- 552/ 784)  -3.2 E54-E36 S06-N02
      4  892  706 (S12E15 L=204)   228    116        0 ( 832/ 691- 949/ 718) -23.2 E18-E11 S13-S09
      5  576  534 (S15E40 L=178)  1943    485        7 ( 473/ 406- 641/ 678)  33.7 E54-E33 S20-S06
      6  378  535 (S11E56 L=163)   499    133        3 ( 355/ 492- 403/ 575)  45.0 E59-E52 S13-S08
      7  742  448 (S24E33 L=186)   517    167        1 ( 672/ 421- 813/ 481)   0.0 E38-E26 S24-S22
  

    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