Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1609 1533 (N24W56 L=246)   710    143        1 (1572/1476-1644/1594)  66.0 W52-W58 N19-N28
      2 1497 1501 (N25W44 L=234)   493    169        1 (1423/1486-1576/1520) -24.4 W38-W50 N22-N27
      3 1721 1439 (N15W61 L=251)   935    169        2 (1667/1414-1797/1474)  -2.9 W54-W74 N13-N17
      4 1040 1332 (N25W07 L=197)  1167    279        2 ( 949/1237-1106/1440) -76.0 W02-W09 N17-N33
      5  886 1402 (N32E02 L=189)   205     73        0 ( 860/1369- 916/1433)  45.0 E03-W00 N30-N34
      6  614 1096 (N18E25 L=166)   247     93        0 ( 588/1060- 634/1136) -68.2 E26-E23 N15-N20
      7  828 1045 (N11E11 L=179)   274    142        1 ( 798/1002- 889/1075)  26.6 E13-E07 N09-N13
      8 1771  949 (S14W50 L=240)   354     63        0 (1754/ 917-1791/ 982)  45.0 W47-W52 S15-S11
      9  295  846 (N07E54 L=136)   316     38        1 ( 271/ 830- 316/ 863)  11.3 E56-E51 N05-N07
     10  953  811 (S05E08 L=182)   470    116        0 ( 904/ 778-1015/ 850) -45.0 E10-E04 S07-S01
     11 1083  676 (S15E03 L=187)   478    154        0 (1053/ 616-1101/ 747)  58.0 E05-W00 S18-S10
     12 1277  593 (S25W08 L=198)  1194    463        0 (1133/ 463-1437/ 742)  26.6 E04-W20 S30-S18
     13 1438  576 (S30W19 L=209)   925    294        1 (1347/ 474-1527/ 661)  31.0 W11-W26 S35-S25
     14  340  532 (S14E62 L=129)  1072     95        2 ( 295/ 491- 386/ 562) -11.3 E67-E56 S16-S11
     15  815  472 (S24E25 L=165)   406     73        0 ( 780/ 442- 840/ 507)  26.6 E28-E22 S25-S21
  

    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