Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  886 1856 (N43E41 L= 86)   380     15        1 ( 870/1835- 906/1875) -31.0 E43-E38 N41-N45
      2  271 1367 (S02E61 L= 66)   699     94        1 ( 227/1338- 310/1399)  20.6 E65-E57 S03-N00
      3 1488 1198 (N14W23 L=150)   536    210        0 (1457/1096-1509/1289) -59.0 W19-W25 N08-N19
      4  170 1146 (S16E66 L= 60)  2993    303        7 ( 113/1055- 225/1268)  49.8 E75-E60 S21-S08
      5 1675 1212 (N21W36 L=163)   363    101        0 (1639/1197-1727/1237)   8.1 W33-W40 N19-N22
      6  257 1198 (S12E57 L= 70)   416     67        1 ( 239/1169- 278/1222) -21.8 E58-E53 S14-S10
      7  222 1034 (S23E58 L= 69)   376     56        0 ( 191/1016- 249/1051)   8.1 E61-E54 S23-S21
      8 1852  879 (N08W60 L=187)  1639    143        2 (1783/ 823-1914/ 933)  29.7 W54-W68 N03-N12
      9 1377  857 (S08W24 L=151)   219     11        0 (1359/ 838-1395/ 879) -63.4 W23-W25 S08-S06
     10 1355  737 (S15W27 L=154)   554    214        0 (1283/ 661-1429/ 806)  70.0 W25-W29 S20-S09
     11  896  732 (S27E00 L=126)   193     94        0 ( 862/ 697- 930/ 771)  80.5 E01-W00 S29-S23
     12  812  706 (S30E05 L=122)   687    166        2 ( 765/ 663- 876/ 750)  35.5 E08-E01 S33-S26
     13 1147  461 (S36W26 L=152)   271    101        0 (1101/ 438-1191/ 477)  15.9 W22-W29 S37-S35
  

    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