Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1502 1692 (N51W14 L=276)   827    142        2 (1441/1652-1553/1715)  -5.2 W08-W19 N48-N53
      2  393 1641 (N15E64 L=199)   687     97        2 ( 368/1601- 415/1674) -56.3 E66-E61 N11-N17
      3  309 1567 (N09E68 L=194)   818    187        3 ( 282/1543- 339/1606)  90.0 E73-E64 N07-N11
      4 1435 1469 (N30W13 L=275)   370     73        2 (1409/1440-1464/1493)   0.0 W10-W15 N27-N32
      5 1040 1365 (N12E08 L=254)   545    222        0 ( 986/1270-1083/1443) -38.7 E13-E03 N07-N16
      6  324 1222 (S12E50 L=212)   395    117        3 ( 291/1182- 362/1262) -33.7 E53-E46 S13-S09
      7  212 1137 (S19E58 L=204)   785    128        1 ( 173/1088- 238/1183)  56.3 E61-E56 S21-S15
      8  265 1087 (S21E52 L=210)  1374    341        5 ( 201/ 989- 329/1167)  59.7 E56-E46 S27-S15
      9  250  925 (S31E51 L=211)   586    167        0 ( 205/ 904- 304/ 953)  -5.7 E55-E45 S31-S29
     10  731  910 (S21E14 L=248)  1495    591        1 ( 454/ 869- 979/ 942)  20.0 E32-W01 S28-S15
     11 1129  733 (S20W14 L=276)  1209    381        1 ( 962/ 628-1288/ 805)   7.8 W04-W26 S24-S16
     12 1538  689 (S11W40 L=303)   260     56        2 (1522/ 655-1555/ 723) -63.4 W38-W41 S12-S08
     13 1645  535 (S15W56 L=318)   522    164        2 (1622/ 494-1666/ 577) -20.6 W52-W60 S17-S12
     14 1485  520 (S21W45 L=307)   297     93        0 (1462/ 486-1506/ 557) -18.4 W41-W47 S22-S19
     15 1200  413 (S36W32 L=295)   438    116        2 (1162/ 383-1251/ 453)  -7.1 W28-W36 S37-S34
  

    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