Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  997 1623 (N40E11 L=180)   606    132        0 ( 938/1597-1059/1653) -10.3 E16-E05 N38-N41
      2 1680 1593 (N47W60 L=251)   611     65        0 (1650/1575-1706/1612)   4.8 W52-W65 N45-N48
      3 1730 1447 (N36W56 L=246)  1933    234        3 (1693/1361-1763/1564)  53.7 W49-W66 N30-N45
      4  845 1362 (N20E16 L=175)   227     79        0 ( 835/1317- 857/1401) -68.2 E16-E14 N17-N22
      5 1124 1265 (N17W04 L=194)   501    273        1 (1070/1212-1170/1352) -58.0 W00-W07 N14-N22
      6 1468 1180 (N15W27 L=218)   325     73        1 (1437/1144-1498/1214) -36.9 W24-W29 N13-N17
      7 1694  871 (S01W48 L=238)   611    124        0 (1635/ 828-1731/ 909) -16.7 W41-W51 S03-N00
      8 1253  804 (S10W17 L=207)   286    102        1 (1210/ 777-1292/ 827)  11.3 W14-W19 S11-S08
      9  477  780 (S20E35 L=156)   312    111        0 ( 429/ 762- 527/ 810)   0.0 E38-E30 S21-S18
     10  850  795 (S15E08 L=182)   209     63        0 ( 816/ 783- 883/ 807)   0.0 E10-E06 S15-S14
     11 1286  726 (S14W20 L=211)   267     95        1 (1253/ 699-1326/ 746)  45.0 W18-W22 S16-S12
     12  729  648 (S26E16 L=175)   216     21        0 ( 714/ 628- 744/ 672) -71.6 E16-E14 S27-S24
     13  893  642 (S24E04 L=186)   309     44        1 ( 868/ 619- 917/ 670)  56.3 E05-E02 S25-S22
     14 1391  546 (S25W32 L=222)   712     92        1 (1342/ 524-1438/ 569)  15.9 W28-W36 S26-S23
     15  916  494 (S34E01 L=190)   308     99        0 ( 872/ 484- 970/ 505)   9.5 E04-W02 S35-S33
  

    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