Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1101 1608 (N35W21 L=177)  1234    228        0 (1002/1554-1216/1643) -14.9 W13-W28 N31-N37
      2 1741 1373 (N06W56 L=212)   891    104        2 (1697/1327-1783/1421) -66.8 W53-W59 N02-N09
      3  247 1225 (N31E50 L=106)   417     78        1 ( 218/1208- 274/1242)   0.0 E53-E47 N29-N31
      4 1247  926 (S08W11 L=167)  1290    428        1 (1095/ 725-1341/1109)  35.5 E02-W19 S16-N01
      5 1757 1075 (S11W48 L=204)   315     91        1 (1718/1049-1784/1090) -21.8 W45-W50 S12-S09
      6  891  430 (S30E24 L=133)   703    190        1 ( 868/ 361- 913/ 511)  65.6 E27-E20 S34-S23
      7 1306  457 (S38W05 L=161)   387     80        1 (1271/ 424-1331/ 497)  26.6 W01-W07 S40-S35
      8  509  378 (S25E53 L=103)  1587    308        4 ( 468/ 297- 553/ 485)  61.7 E59-E47 S30-S17
  

    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