Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1032 1779 (N40E28 L=343)   989    196        1 ( 941/1728-1101/1819)  -7.1 E36-E20 N38-N42
      2  590 1623 (N17E47 L=324)   794    200        0 ( 564/1530- 620/1704) -47.7 E52-E41 N11-N22
      3  695 1613 (N19E39 L=332)   763    180        1 ( 673/1522- 718/1694) -42.3 E45-E34 N13-N23
      4  465 1620 (N14E57 L=314)   365     62        0 ( 447/1588- 482/1645) -76.0 E59-E55 N11-N15
      5 1511 1451 (N34W18 L= 29)   990    156        2 (1486/1384-1540/1527) -60.9 W14-W20 N29-N38
      6  795 1408 (N09E24 L=347)  1050    281        1 ( 712/1322- 897/1486)  70.3 E27-E20 N02-N16
      7  267 1246 (S12E57 L=314)  1249    274        3 ( 158/1210- 372/1288)  16.9 E71-E47 S16-S07
      8 1000 1173 (N01E05 L=  6)   930    287        1 ( 914/1135-1081/1235)  21.8 E11-E01 S01-N06
      9  583 1073 (S15E27 L=344)   301     65        0 ( 546/1048- 613/1097)  45.0 E29-E25 S17-S13
     10 1495 1053 (N09W26 L= 37)   377     81        0 (1479/1009-1509/1093) -68.2 W24-W27 N06-N11
     11  216  871 (S36E58 L=313)  1421    225        1 ( 137/ 796- 287/ 948)  24.0 E77-E49 S41-S29
     12  925  719 (S26W03 L= 15)  1293    331        4 ( 777/ 667-1077/ 788)  49.1 E04-W10 S32-S17
     13 1495  638 (S13W40 L= 51)   275     83        0 (1447/ 621-1534/ 652)  26.6 W37-W43 S14-S11
     14 1351  504 (S24W38 L= 49)   319    103        0 (1299/ 493-1405/ 513)  29.7 W34-W41 S26-S22
     15 1212  335 (S39W41 L= 52)  2303    347        3 (1064/ 264-1353/ 419)  66.0 W34-W45 S48-S29
  

    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