Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1586 1377 (N11W43 L=313)   484    113        0 (1555/1315-1631/1435) -82.9 W41-W44 N06-N14
      2  367 1246 (N27E40 L=231)   825    209        1 ( 290/1204- 434/1287)  14.0 E46-E34 N25-N28
      3  402 1019 (N13E39 L=232)   292     67        0 ( 365/1000- 437/1040) -31.0 E41-E36 N10-N14
      4  816  957 (N02E13 L=257)   451     71        1 ( 785/ 917- 852/1001)  76.0 E14-E11 N00-N04
      5  509  917 (N05E33 L=238)   233     29        0 ( 486/ 899- 535/ 934) -45.0 E34-E31 N03-N06
      6  698  823 (S04E23 L=248)   325     85        0 ( 653/ 790- 731/ 863)  31.0 E25-E20 S05-S01
      7 1736  468 (S50W50 L=320)   713    176        1 (1705/ 444-1768/ 498) -31.0 W45-W56 S53-S47
      8  892  360 (S36E25 L=246)   822    145        1 ( 809/ 338- 970/ 383)  -9.5 E31-E19 S38-S33
  

    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