Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  698 1607 (N35E24 L=135)   258     46        0 ( 671/1587- 723/1625)  33.7 E25-E21 N33-N35
      2 1033 1588 (N33W01 L=159)   564    126        0 ( 970/1570-1106/1601)  -6.3 E03-W06 N31-N33
      3 1605 1524 (N29W43 L=201)   291     79        0 (1567/1510-1642/1539)  -9.5 W39-W45 N27-N29
      4 1423 1155 (N05W25 L=183)   607    101        2 (1377/1105-1458/1201) -63.4 W21-W26 N01-N07
      5  228 1023 (S01E56 L=102)   874    123        2 ( 197/ 972- 252/1086) -71.6 E59-E53 S04-N02
      6 1391  984 (S06W23 L=181)   507    136        1 (1351/ 911-1444/1018)  54.5 W20-W25 S10-S03
      7  300  948 (S06E49 L=109)   391     80        0 ( 280/ 899- 320/ 985)  51.3 E51-E47 S09-S04
      8  206  830 (S13E60 L= 98)  5057    733       13 ( 130/ 724- 280/ 964) -49.1 E69-E52 S19-S04
      9 1854  808 (S15W62 L=220)  4417    735       15 (1727/ 717-1954/ 896)  25.6 W49-W76 S21-S09
     10 1676  776 (S18W45 L=203)   611    144        3 (1615/ 732-1733/ 817)  15.5 W40-W49 S20-S15
     11  307  709 (S21E52 L=106)   871    276        3 ( 265/ 626- 385/ 760)  36.0 E57-E44 S25-S17
     12  416  632 (S26E44 L=114)   612    251        0 ( 356/ 584- 512/ 679)  18.4 E50-E35 S28-S23
     13  571  519 (S34E34 L=124)   797    217        1 ( 554/ 435- 601/ 610)  59.7 E37-E29 S40-S28
     14 1560  560 (S32W40 L=198)   411    101        2 (1515/ 536-1609/ 595)  33.7 W36-W42 S33-S29
  

    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