Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  909 1901 (N73W45 L= 77)   928     83        1 ( 888/1864- 935/1942)   6.8 W31-W81 N68-N75
      2 1706 1446 (N14W60 L= 91)  1092    236        0 (1668/1353-1762/1513)  14.7 W52-W71 N09-N16
      3 1221 1497 (N30W25 L= 57)   262    116        0 (1169/1486-1276/1511) -23.2 W21-W28 N28-N31
      4 1069 1349 (N25W10 L= 42)  1082    394        2 ( 975/1208-1142/1494)  37.9 W01-W19 N18-N32
      5 1736 1410 (N11W61 L= 92)   514     28        0 (1712/1386-1760/1432) -45.0 W58-W62 N08-N12
      6  717 1240 (N26E15 L= 17)  1007    309        1 ( 651/1114- 766/1369) -80.5 E17-E13 N17-N35
      7 1741 1201 (S01W52 L= 83)   978    189        0 (1697/1110-1776/1276) -84.3 W49-W53 S06-N04
      8  586 1066 (N18E26 L=  5)   290    121        0 ( 537/1027- 621/1098) -50.2 E29-E24 N15-N21
      9  217  941 (N16E61 L=331)   440     78        1 ( 189/ 915- 248/ 962)   7.1 E64-E56 N14-N17
     10 1618  868 (S16W34 L= 66)   886    193        3 (1549/ 814-1681/ 937)  20.0 W27-W39 S17-S13
     11 1509  655 (S27W23 L= 55)   644     83        2 (1483/ 615-1535/ 703)  51.3 W20-W24 S30-S23
     12  882  431 (S26E24 L=  8)  1098    263        4 ( 787/ 381-1010/ 503)   9.0 E32-E13 S28-S23
     13  577  447 (S19E45 L=347)   356     55        1 ( 546/ 431- 610/ 459) -11.3 E46-E41 S20-S18
  

    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