Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1408 1348 (N19W31 L=132)   662    234        0 (1353/1291-1477/1383) -40.6 W26-W34 N15-N22
      2  860 1323 (N27E06 L= 95)   237     63        0 ( 827/1304- 891/1339) -36.9 E08-E04 N25-N28
      3  139 1052 (N17E73 L= 28)   637     43        1 ( 118/1031- 167/1072)  11.3 E77-E67 N15-N17
      4 1665  926 (S11W41 L=142)   316     33        0 (1642/ 910-1694/ 943)   0.0 W38-W43 S11-S09
      5  142  904 (N07E73 L= 28)   660     61        0 ( 116/ 891- 174/ 924)   0.0 E80-E67 N06-N08
      6 1137  659 (S18W02 L=103)   955    250        2 (1055/ 558-1210/ 743)  39.8 E05-W07 S23-S12
      7 1378  560 (S29W17 L=118)  1048    371        0 (1236/ 441-1489/ 666)  28.8 W05-W25 S35-S23
      8 1705  641 (S30W45 L=146)   485     62        1 (1669/ 621-1729/ 664)   9.5 W41-W48 S32-S29
      9  783  507 (S23E24 L= 77)   668    229        0 ( 699/ 444- 862/ 583)  28.1 E32-E17 S26-S18
     10  376  546 (S16E56 L= 45)   420     62        1 ( 364/ 512- 392/ 579)  35.5 E59-E52 S18-S13
     11 1382  446 (S38W17 L=118)   605    158        0 (1313/ 414-1441/ 486)  15.3 W10-W21 S39-S35
     12  878  418 (S31E21 L= 80)   893    220        1 ( 792/ 368- 973/ 469)  10.6 E28-E12 S33-S27
     13  476  407 (S27E54 L= 47)   907     75        3 ( 449/ 365- 511/ 443)  66.8 E58-E50 S30-S23
  

    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