Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  943 1684 (N34E18 L=253)   726    256        1 ( 869/1575-1012/1763) -36.9 E26-E10 N27-N39
      2  652 1613 (N25E36 L=235)   257     43        0 ( 630/1595- 682/1631) -11.3 E37-E32 N23-N26
      3 1431 1539 (N33W19 L=290)   274    110        0 (1397/1498-1458/1594) -50.2 W16-W21 N30-N36
      4 1644 1278 (N20W37 L=307)   256     87        1 (1624/1231-1657/1314) -59.0 W34-W37 N16-N21
      5  378 1087 (S10E43 L=228)   496    121        1 ( 341/1033- 419/1136)  56.3 E45-E40 S13-S07
      6  700  944 (S15E19 L=252)   265    101        0 ( 651/ 913- 725/ 984)  51.3 E21-E17 S17-S12
      7  139  925 (S21E69 L=201)   541     84        0 ( 127/ 881- 151/ 970) -90.0 E71-E67 S24-S18
      8  254  931 (S21E54 L=217)   472     54        2 ( 233/ 905- 287/ 958)  21.8 E56-E50 S22-S19
      9  964  917 (S13E02 L=269)   177     62        1 ( 941/ 888- 982/ 935) -33.7 E03-W00 S14-S12
     10  654  754 (S27E20 L=251)  1946    563       11 ( 462/ 653- 917/ 868)  30.1 E35-E04 S36-S16
     11 1062  764 (S21W06 L=277)   216    101        0 (1028/ 728-1100/ 801) -26.6 W03-W09 S22-S19
     12 1647  527 (S24W56 L=326)  2342    444        2 (1498/ 421-1798/ 683)  59.4 W48-W62 S33-S11
     13  851  257 (S61W02 L=273)  1078    162        2 ( 784/ 219- 904/ 308) -19.7 E06-W09 S65-S57
  

    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