Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  955 1615 (N33E07 L=293)   705     97        2 ( 920/1563- 989/1665)  90.0 E09-E04 N29-N36
      2  548 1625 (N33E39 L=262)   353     57        0 ( 516/1611- 582/1640)   0.0 E41-E35 N31-N34
      3 1386 1483 (N26W23 L=323)   742    231        0 (1302/1446-1495/1538) -21.0 W16-W30 N23-N29
      4  813 1416 (N19E15 L=286)   336    107        0 ( 790/1360- 835/1463) -81.9 E16-E12 N15-N22
      5  216 1331 (N14E61 L=239)   887    130        3 ( 164/1291- 257/1381)  21.8 E67-E57 N11-N16
      6 1582 1305 (N15W35 L=336)   851    266        0 (1456/1231-1681/1349) -20.6 W26-W42 N11-N17
      7 1869 1193 (N11W61 L=  1)  1536    188        0 (1840/1125-1926/1281) -78.7 W58-W69 N06-N16
      8  160 1243 (N08E66 L=234)   643     51        1 ( 125/1222- 194/1264) -10.3 E72-E61 N07-N09
      9  265 1231 (N07E53 L=247)   405     48        0 ( 241/1208- 289/1257)  14.0 E55-E50 N05-N08
     10 1543 1193 (N08W32 L=332)   320    106        0 (1495/1176-1598/1222)  14.0 W28-W36 N06-N10
     11 1569 1065 (N01W34 L=334)   504    135        0 (1550/ 999-1594/1130) -80.5 W32-W36 S02-N04
     12 1162  908 (S11W09 L=309)   294    129        0 (1129/ 854-1207/ 962)  56.3 W06-W11 S13-S07
     13 1826  820 (S12W59 L=359)  1817    175        4 (1771/ 756-1894/ 874)  30.3 W53-W66 S15-S08
     14  986  685 (S25E01 L=299)  1306    361        1 ( 896/ 563-1145/ 761)  38.2 E07-W08 S32-S19
     15 1797  689 (S20W60 L=  0)   415     44        2 (1768/ 668-1825/ 712)  31.0 W56-W62 S20-S17
     16 1846  654 (S21W69 L=  9)   591     83        1 (1819/ 608-1874/ 673)  90.0 W63-W74 S23-S19
     17 1641  593 (S27W48 L=348)  1141    160        2 (1552/ 563-1707/ 626)   8.7 W39-W53 S28-S24
     18  259  576 (S32E65 L=236)   821     82        2 ( 222/ 545- 303/ 599)   3.6 E73-E57 S34-S30
     19 1013  541 (S34W01 L=302)   381     94        0 ( 970/ 524-1063/ 562)   0.0 E01-W04 S35-S32
     20 1468  376 (S43W43 L=343)  2520    417        1 (1275/ 350-1655/ 416)   5.9 W23-W63 S45-S38
     21  662  346 (S50E31 L=269)  1840    305        4 ( 498/ 312- 796/ 388)   3.3 E52-E17 S52-S46
  

    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