Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  480 1672 (N35E55 L=359)  2310    554        6 ( 437/1590- 547/1749) -25.5 E65-E44 N30-N40
      2  926 1582 (N35E15 L= 38)   425    107        1 ( 879/1553- 975/1609) -14.0 E19-E11 N33-N36
      3 1429 1500 (N36W24 L= 77)  1364    254        5 (1365/1388-1494/1602) -63.4 W18-W28 N29-N43
      4 1127 1422 (N27W02 L= 55)  1155    246        3 (1045/1311-1221/1519) -40.6 E05-W09 N20-N32
      5  742 1371 (N19E23 L= 31)  2083    510        6 ( 607/1221- 835/1512) -37.3 E35-E14 N10-N26
      6 1738 1082 (N12W49 L=102)  2591    629       10 (1668/ 941-1851/1300) -49.6 W42-W62 N03-N25
      7 1539 1192 (N17W32 L= 85)   701    263        1 (1469/1134-1581/1257)  58.0 W26-W35 N12-N21
      8 1899 1073 (N13W67 L=121)  3291    336        3 (1867/ 981-1937/1162) -74.7 W62-W74 N07-N18
      9 1121 1060 (N04W05 L= 59)   620    168        2 (1031/1036-1207/1088)  21.8 W00-W10 N01-N06
     10  486  939 (S11E34 L= 20)  1264    449        2 ( 308/ 902- 659/ 998)   0.0 E48-E21 S13-S08
     11  329  810 (S21E47 L=  7)   331     52        0 ( 313/ 782- 354/ 840) -45.0 E47-E44 S22-S19
     12  270  774 (S24E53 L=  1)   572    112        2 ( 242/ 746- 290/ 815)  51.3 E55-E50 S26-S21
     13 1745  702 (S11W56 L=110)   786    180        1 (1715/ 661-1792/ 758) -56.3 W52-W62 S13-S07
     14 1511  375 (S35W49 L=102)  1098    196        2 (1450/ 352-1582/ 404)  15.3 W43-W55 S37-S32
  

    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