Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1716 1554 (N22W70 L=273)  1378    173        1 (1636/1528-1792/1579) -20.9 W61-W82 N17-N25
      2 1455 1550 (N29W44 L=246)   277    158        0 (1388/1526-1516/1564) -21.8 W37-W47 N26-N30
      3 1509 1441 (N21W42 L=245)   393     56        2 (1475/1418-1534/1469)  -9.5 W38-W44 N19-N23
      4  873 1266 (N24E05 L=198)  1089    258        2 ( 791/1164- 931/1370) -71.6 E09-E02 N16-N31
      5 1121 1304 (N22W11 L=214)   221    151        0 (1055/1292-1194/1315) -20.6 W07-W15 N19-N22
      6 1640 1298 (N10W46 L=249)   342    101        0 (1599/1269-1688/1313)   0.0 W42-W51 N09-N10
      7  637  997 (N11E24 L=178)   240    141        1 ( 608/ 957- 704/1025)  15.9 E26-E19 N09-N12
      8 1374  819 (S12W18 L=220)   519    126        0 (1345/ 760-1411/ 873)  50.2 W15-W20 S15-S09
      9 1025  800 (S06E04 L=199)   418    171        0 ( 994/ 743-1096/ 838)  18.4 E06-W00 S09-S04
     10  801  737 (S07E19 L=184)   655    205        2 ( 716/ 689- 894/ 785) -35.0 E23-E13 S10-S02
     11 1633  732 (S24W36 L=239)   273     88        0 (1592/ 707-1661/ 766)  18.4 W32-W38 S24-S21
     12 1767  713 (S29W50 L=253)   515     96        0 (1736/ 675-1805/ 749)  20.6 W46-W54 S30-S26
     13 1245  490 (S31W04 L=207)   697    246        0 (1183/ 412-1321/ 561)  36.0 E01-W10 S35-S26
     14 1029  484 (S27E10 L=193)   546    210        0 ( 965/ 418-1105/ 552)  28.3 E16-E03 S30-S23
     15  634  431 (S24E40 L=163)   290     47        0 ( 608/ 408- 655/ 456)  18.4 E42-E36 S25-S22
  

    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