Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  663 1341 (N22E20 L=263)   338    158        1 ( 593/1310- 744/1360)   5.7 E24-E14 N20-N22
      2 1184 1181 (N07W11 L=294)   220    128        0 (1126/1161-1232/1220)   0.0 W07-W14 N05-N08
      3  275 1199 (N18E50 L=233)   337     97        0 ( 243/1186- 310/1214)  -9.5 E52-E46 N16-N19
      4 1803 1015 (S09W53 L=336)   486    153        0 (1786/ 934-1823/1088)  63.4 W51-W56 S13-S05
      5  387 1005 (N05E41 L=242)   245     54        1 ( 373/ 970- 410/1033)  76.0 E42-E39 N02-N06
      6 1863  939 (S14W59 L=342)   462    110        0 (1837/ 900-1893/ 985)  45.0 W56-W63 S16-S11
      7 1566  941 (S11W33 L=316)   224     60        0 (1539/ 920-1597/ 961)  26.6 W31-W35 S12-S10
      8 1331  748 (S20W16 L=299)   823    192        3 (1269/ 673-1378/ 820)  45.0 W11-W19 S24-S16
      9  533  733 (S13E34 L=248)   897    201        2 ( 476/ 669- 583/ 771) -56.3 E38-E30 S16-S10
     10  243  727 (S10E59 L=223)   673    142        4 ( 203/ 685- 276/ 754) -15.9 E63-E56 S12-S07
     11  637  614 (S21E30 L=253)   561    234        0 ( 598/ 515- 672/ 714)  47.7 E35-E25 S26-S15
     12 1737  669 (S30W48 L=331)   437    100        0 (1703/ 639-1780/ 701)  26.6 W45-W51 S31-S28
     13  605  338 (S39E43 L=239)   352     67        1 ( 575/ 319- 635/ 357) -26.6 E45-E40 S40-S37
     14  910  316 (S45E20 L=263)   396     92        1 ( 886/ 285- 931/ 354)  39.8 E23-E17 S47-S42
     15  736  257 (S48E38 L=245)   457     96        2 ( 704/ 234- 767/ 282)   0.0 E41-E34 S49-S45
  

    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