Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1742 1361 (N19W57 L= 33)   947    149        1 (1698/1315-1785/1415)  71.6 W52-W61 N16-N22
      2  233 1243 (N20E60 L=276)   378     71        0 ( 216/1223- 260/1270) -31.0 E63-E57 N18-N21
      3  300  893 (S01E51 L=285)  2886    505        4 ( 242/ 727- 447/1084) -54.5 E56-E40 S11-N10
      4  617  988 (N04E26 L=310)   611    163        1 ( 590/ 911- 644/1072)  77.5 E27-E23 N00-N09
      5  537  660 (S16E35 L=301)   686    183        2 ( 468/ 597- 593/ 700) -49.4 E39-E30 S20-S13
      6  483  576 (S22E41 L=295)   593    162        0 ( 413/ 547- 550/ 622) -26.6 E46-E36 S23-S18
      7  703  354 (S39E31 L=305)  1359    243        3 ( 634/ 267- 777/ 448)  33.7 E43-E22 S46-S31
  

    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