Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  550 1705 (N46E48 L=129)  3552    533        9 ( 425/1632- 680/1758)  19.3 E58-E33 N39-N51
      2  848 1629 (N42E17 L=160)   387     65        0 ( 817/1604- 876/1661)  45.0 E19-E15 N40-N44
      3 1244 1551 (N38W15 L=192)   335     70        2 (1206/1522-1278/1581) -31.0 W12-W17 N35-N40
      4  249 1366 (N20E62 L=115)   511    108        1 ( 231/1313- 269/1418)  81.9 E63-E60 N16-N23
      5  439 1364 (N21E43 L=134)   459    104        2 ( 414/1333- 467/1408) -51.3 E45-E40 N19-N24
      6  384 1255 (N14E46 L=132)  1064    279        6 ( 313/1201- 451/1290)   0.0 E52-E40 N10-N16
      7  456 1215 (N12E39 L=138)   319     79        0 ( 436/1182- 471/1249) -45.0 E41-E37 N10-N14
      8  363 1167 (N09E46 L=131)   845    274        3 ( 300/1137- 451/1214) -12.1 E52-E38 N06-N11
      9  633  937 (S04E24 L=153)   211    101        0 ( 618/ 884- 653/ 984)  71.6 E25-E23 S07-S01
     10 1871  848 (S07W67 L=244)   789    106        2 (1849/ 812-1892/ 885) -51.3 W63-W70 S09-S04
     11  390  791 (S15E43 L=134)  1153    201        3 ( 354/ 710- 446/ 838)  69.4 E46-E38 S19-S11
     12 1435  583 (S24W30 L=208)   280     76        0 (1398/ 568-1469/ 602)  -9.5 W27-W33 S25-S22
     13 1242  431 (S36W19 L=196)   859    163        2 (1175/ 404-1319/ 469)  -9.5 W13-W25 S37-S32
     14  843  401 (S40E12 L=165)  1205    339        6 ( 702/ 359- 981/ 436)  11.8 E24-W00 S43-S36
  

    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