Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  880 1787 (N60W20 L=297)   375     37        1 ( 852/1762- 899/1809)   0.0 W17-W23 N57-N61
      2 1292 1750 (N41W48 L=324)   528     66        1 (1249/1728-1322/1772) -53.1 W45-W50 N39-N43
      3  682 1696 (N59E06 L=270)   589    119        1 ( 624/1665- 741/1723)   0.0 E13-W01 N56-N61
      4 1157 1602 (N37W27 L=304)  1088    222        2 (1060/1560-1272/1636) -13.2 W19-W36 N33-N39
      5  935 1571 (N41W11 L=287)   294     51        0 ( 901/1555- 959/1588)   0.0 W08-W12 N39-N42
      6  532 1098 (N22E29 L=248)   487    125        0 ( 487/1062- 586/1147) -45.0 E31-E25 N19-N26
      7 1537 1054 (S04W31 L=307)   884    198        0 (1516/ 955-1570/1144)  48.4 W26-W35 S09-N00
      8  488 1015 (N18E33 L=243)   439    159        0 ( 415/ 980- 557/1038)   0.0 E39-E28 N17-N19
      9 1750  713 (S32W42 L=319)  2716    353        2 (1635/ 596-1820/ 864)  30.1 W30-W50 S36-S23
     10  284  712 (N04E58 L=218)   452     93        0 ( 266/ 677- 311/ 756) -90.0 E59-E55 N01-N06
     11 1481  674 (S25W19 L=295)   317     61        0 (1453/ 650-1512/ 704)  11.3 W16-W21 S26-S23
     12  472  478 (S13E51 L=225)   981    221        1 ( 420/ 404- 537/ 537) -84.3 E53-E48 S18-S08
     13  397  414 (S16E63 L=213)  2366    216        5 ( 318/ 356- 460/ 460) -30.3 E72-E56 S20-S12
     14  744  336 (S28E39 L=237)  1443    211        1 ( 673/ 301- 841/ 380) -24.4 E44-E30 S30-S23
     15 1028  254 (S42E25 L=251)  2500    437        4 ( 852/ 138-1198/ 368)  11.6 E52-E07 S49-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