Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  792 1675 (N46E23 L=127)  2710    433        4 ( 663/1584- 940/1732)  15.9 E33-E08 N38-N51
      2 1162 1631 (N44W10 L=160)   511     99        2 (1123/1593-1207/1665)  35.5 W06-W14 N40-N46
      3 1568 1542 (N37W43 L=193)   511    101        0 (1532/1525-1608/1564)   0.0 W39-W46 N36-N39
      4  810 1315 (N21E15 L=135)   425    118        1 ( 778/1287- 852/1354) -33.7 E17-E11 N18-N23
      5  759 1233 (N15E18 L=133)   910    288        6 ( 658/1191- 879/1286)  19.7 E24-E10 N12-N18
      6  342 1204 (N12E49 L=102)   616    167        0 ( 314/1126- 384/1259) -41.2 E51-E43 N07-N14
      7  845 1177 (N12E12 L=139)   247     47        0 ( 831/1144- 859/1209)  90.0 E12-E10 N09-N14
      8  700 1137 (N09E21 L=130)   655    240        1 ( 627/1094- 824/1202) -23.2 E26-E12 N06-N12
      9 1072  893 (S05W03 L=154)   319    105        0 (1053/ 834-1090/ 948)  90.0 W02-W04 S08-S01
     10  218  796 (S15E61 L= 90)  1114    175        2 ( 172/ 757- 253/ 846) -63.4 E66-E56 S17-S11
     11  409  445 (S39E50 L=100)  1641    384        2 ( 347/ 392- 469/ 502)  31.4 E61-E43 S44-S33
     12 1298  406 (S38W23 L=174)   330     68        1 (1259/ 393-1341/ 419)   9.5 W20-W26 S38-S36
     13 1172  382 (S40W14 L=164)   283     36        0 (1147/ 368-1197/ 397) -11.3 W11-W16 S41-S38
     14 1059  358 (S42W05 L=155)   320     36        0 (1035/ 344-1086/ 377) -21.8 W02-W07 S43-S40
  

    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