Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  710 1769 (N31E44 L=316)   391     52        1 ( 678/1743- 734/1787)   0.0 E47-E41 N29-N32
      2  819 1626 (N24E28 L=332)   323     97        1 ( 800/1588- 842/1678) -74.1 E29-E26 N20-N27
      3 1642 1562 (N43W32 L= 32)   374     35        1 (1619/1544-1660/1585)  45.0 W29-W34 N40-N45
      4 1423 1437 (N27W14 L= 14)   370    112        0 (1392/1392-1470/1464)  56.3 W12-W17 N22-N29
      5  824 1328 (N05E18 L=342)   857    391        0 ( 645/1279- 974/1396)  35.2 E28-E10 N00-N12
      6 1479 1267 (N17W21 L= 21)   278    116        0 (1447/1244-1533/1311)  -9.5 W18-W24 N16-N19
      7  200 1209 (S12E62 L=298)   758    124        2 ( 175/1156- 229/1255) -51.3 E66-E58 S14-S09
      8 1724 1066 (N13W42 L= 42)   512    109        1 (1710/1004-1739/1124) -74.1 W40-W43 N09-N16
      9 1340 1008 (S01W18 L= 18)   245     76        2 (1308/ 991-1387/1033)   0.0 W15-W21 S01-N00
     10 1005  720 (S25W06 L=  6)   268     63        0 ( 977/ 703-1046/ 745)  14.0 W04-W08 S25-S23
     11  165  661 (S45E77 L=283)   736     60        2 ( 138/ 641- 196/ 686)  -7.6 E86-E69 S46-S43
     12 1345  589 (S23W31 L= 31)  1821    494        5 (1135/ 533-1590/ 659)  35.8 W19-W45 S30-S12
     13 1702  539 (S15W61 L= 61)   836    109        1 (1652/ 522-1754/ 567)  14.0 W55-W67 S17-S13
     14  954  347 (S50W18 L= 18)   482     90        1 ( 922/ 319- 987/ 386)  -8.1 W14-W21 S51-S46
     15 1323  261 (S43W53 L= 53)   727    112        1 (1297/ 208-1348/ 308) -13.2 W45-W62 S45-S40
  

    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