Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  534 1682 (N26E56 L=101)   990    137        3 ( 505/1621- 559/1744) -42.0 E64-E50 N21-N30
      2  339 1571 (N15E68 L= 89)  3232    237        6 ( 256/1488- 397/1635)  67.4 E77-E62 N08-N20
      3  490 1561 (N17E51 L=107)  1201    164        2 ( 430/1514- 557/1593)  40.6 E56-E46 N13-N20
      4  565 1508 (N16E42 L=115)   452     49        1 ( 547/1477- 583/1543) -68.2 E44-E39 N13-N18
      5 1681 1460 (N42W40 L=198)   398     33        2 (1658/1441-1703/1481)   0.0 W37-W43 N39-N43
      6 1795 1293 (N33W52 L=210)   471     31        0 (1770/1274-1819/1311)  15.9 W48-W55 N31-N34
      7  252 1217 (S08E58 L= 99)   924    106        1 ( 212/1184- 304/1251)  11.3 E62-E52 S09-S05
      8  237  948 (S24E56 L=102)  1127    192        1 ( 204/ 870- 268/1044)  74.7 E60-E51 S29-S18
      9 1335  722 (S13W26 L=183)   233     93        0 (1309/ 677-1361/ 757)  78.7 W24-W26 S15-S10
     10  924  662 (S26W03 L=160)   217     35        0 ( 905/ 638- 944/ 690)  76.0 W01-W03 S27-S23
     11  422  555 (S47E37 L=120)  1303    244        1 ( 343/ 523- 541/ 598)  14.6 E48-E24 S49-S41
     12 1438  544 (S21W40 L=197)   613    112        1 (1414/ 476-1458/ 593) -60.3 W37-W43 S24-S17
     13  922  494 (S37W08 L=165)   287     41        1 ( 896/ 475- 947/ 519)  56.3 W05-W09 S38-S35
     14 1502  431 (S26W51 L=209)   434     82        1 (1477/ 401-1527/ 457) -18.4 W48-W54 S27-S23
     15  885  278 (S55W15 L=173)  1633    212        1 ( 843/ 192- 926/ 372) -61.2 W11-W23 S65-S45
  

    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