Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1181 1797 (N46W46 L= 87)   492     89        1 (1162/1768-1213/1844)  45.0 W42-W53 N43-N49
      2  759 1750 (N61W09 L= 50)   349     44        0 ( 736/1724- 775/1771)  68.2 W06-W11 N57-N62
      3  582 1682 (N62E15 L= 26)   935    145        2 ( 528/1642- 654/1717)   3.2 E23-E04 N59-N64
      4 1438 1656 (N29W51 L= 92)   406    101        1 (1408/1630-1480/1675) -15.9 W48-W55 N27-N30
      5  873 1569 (N42W08 L= 49)   713    177        0 ( 811/1506- 940/1623) -74.7 W05-W10 N36-N48
      6 1317 1527 (N26W34 L= 75)   620    173        1 (1225/1502-1400/1544) -35.0 W28-W38 N21-N28
      7  947 1346 (N26W05 L= 45)   626    148        3 ( 880/1298- 998/1381) -54.5 W01-W08 N22-N30
      8 1006 1277 (N21W06 L= 47)   319    135        0 ( 944/1248-1035/1305)  -9.5 W01-W07 N18-N22
      9 1150 1271 (N16W14 L= 55)   266     78        1 (1125/1230-1165/1305)  68.2 W12-W15 N13-N18
     10  808 1175 (N20E08 L= 32)   479    214        0 ( 711/1146- 906/1203) -38.7 E13-E03 N16-N24
     11 1798 1035 (S16W51 L= 91)  1328    200        3 (1767/ 941-1841/1115)  84.3 W46-W56 S21-S11
     12 1834  930 (S24W53 L= 93)  1619    395        2 (1687/ 840-1936/1041)   3.4 W36-W70 S27-S20
     13 1139  499 (S27E08 L= 32)  1398    503        1 ( 951/ 389-1284/ 641)  12.5 E23-W04 S31-S21
     14 1202  358 (S39E10 L= 31)   412     58        0 (1177/ 327-1228/ 387)  31.0 E12-E07 S41-S37
     15 1048  250 (S43E27 L= 14)  1066    179        2 ( 987/ 199-1115/ 309)  16.4 E35-E18 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