Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  622 1397 (N38E16 L=164)   993    234        2 ( 540/1306- 718/1450)  11.3 E22-E07 N34-N40
      2  859 1349 (N28E01 L=178)   232     29        0 ( 843/1320- 875/1375)  71.6 E01-W00 N26-N29
      3 1019 1305 (N21W08 L=187)   742    194        3 ( 943/1247-1118/1348) -55.0 W03-W11 N15-N25
      4  306 1328 (N42E44 L=135)   321     81        0 ( 277/1303- 340/1347)   8.1 E47-E40 N40-N42
      5  308 1003 (N22E47 L=132)  1958    538        5 ( 157/ 941- 481/1083) -28.3 E60-E34 N14-N29
      6  924  847 (S01E10 L=169)   785    178        3 ( 827/ 805-1001/ 884) -29.1 E15-E06 S05-N01
      7  231  752 (N09E62 L=117)  3033    531       10 ( 177/ 665- 293/ 855)  71.6 E72-E55 N02-N14
      8 1797  755 (S34W45 L=224)  1271    145        3 (1759/ 697-1828/ 837)  54.5 W41-W48 S37-S29
      9 1088  666 (S16E06 L=173)   709    127        2 (1046/ 594-1145/ 719)  26.6 E10-E02 S19-S12
     10  824  592 (S13E23 L=156)   574    219        0 ( 788/ 514- 888/ 695)  71.6 E25-E19 S19-S07
     11 1692  654 (S37W34 L=214)   605    140        0 (1646/ 630-1742/ 689) -12.5 W30-W39 S38-S33
     12  581  443 (S17E45 L=134)   619     86        1 ( 534/ 411- 634/ 477) -45.0 E47-E42 S19-S13
     13  415  362 (S19E65 L=114)  1635    256        3 ( 366/ 320- 448/ 396) -29.7 E71-E61 S21-S16
  

    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