Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1102 1328 (N12E01 L=144)   832    247        1 (1078/1215-1133/1454) -61.7 E05-W02 N05-N19
      2 1723 1192 (N18W42 L=187)   476    121        0 (1714/1126-1732/1256) -76.0 W40-W43 N14-N22
      3 1366 1155 (N07W17 L=163)   419    104        0 (1327/1106-1400/1208)  69.4 W15-W18 N03-N11
      4  175 1160 (S12E64 L= 82)   513     61        0 ( 159/1119- 194/1195)  76.0 E65-E61 S13-S09
      5 1691 1057 (N09W41 L=187)   261     57        0 (1666/1039-1718/1074)  11.3 W38-W43 N08-N10
      6 1675  612 (S15W53 L=199)  1707    362        1 (1525/ 506-1799/ 773)  58.2 W45-W58 S24-S03
      7 1188  653 (S25W18 L=164)  1195    353        0 (1004/ 603-1341/ 705)  32.3 W07-W26 S31-S18
      8 1474  270 (S40W57 L=203)  2245    377        1 (1368/ 245-1564/ 300)  19.4 W48-W65 S43-S35
  

    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