Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  516 1668 (N18E54 L= 43)   962    172        0 ( 471/1582- 571/1735) -76.0 E56-E51 N11-N23
      2  825 1677 (N26E32 L= 64)   444     89        1 ( 779/1655- 859/1701)  53.1 E34-E29 N23-N27
      3  417 1628 (N14E60 L= 36)  1418    133        4 ( 368/1577- 467/1686) -83.7 E65-E56 N09-N18
      4 1333 1589 (N35W02 L= 99)   658    154        1 (1306/1515-1381/1647) -84.8 W00-W04 N29-N40
      5  939 1528 (N19E19 L= 78)   230     61        0 ( 926/1496- 953/1562) -63.4 E20-E17 N17-N21
      6  402 1353 (S03E47 L= 49)   379     76        1 ( 383/1318- 433/1378)  63.4 E49-E45 S05-S01
      7  188 1232 (S13E65 L= 32)  3837    408       10 (  80/1099- 268/1358)  36.4 E84-E56 S21-S06
      8 1765 1196 (N25W43 L=140)   759    165        1 (1735/1117-1800/1272)  70.0 W40-W46 N19-N30
      9  268 1127 (S18E53 L= 44)  1545    266        2 ( 164/1086- 370/1188)  24.2 E65-E44 S22-S13
     10 1392 1109 (N08W18 L=115)   217     42        1 (1364/1086-1410/1132)  56.3 W16-W19 N06-N09
     11 1635  973 (N08W37 L=134)   247     46        1 (1615/ 951-1658/1004) -45.0 W35-W38 N06-N09
     12  953  925 (S14E01 L= 95)   328    101        0 ( 932/ 876- 972/ 972) -53.1 E03-W00 S16-S12
     13 1922  899 (N14W68 L=165)  1326     93        3 (1896/ 850-1949/ 941)  71.6 W63-W73 N11-N17
     14 1686  392 (S19W74 L=171)   634     63        1 (1663/ 364-1715/ 408)  63.4 W70-W77 S21-S17
  

    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