Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  826 1557 (N44E04 L=238)   305     53        1 ( 794/1534- 850/1578) -45.0 E06-E02 N41-N45
      2 1352 1375 (N21W28 L=271)  1404    558        1 (1114/1303-1572/1435) -29.7 W13-W41 N12-N29
      3  973 1375 (N29W03 L=246)   220    137        0 ( 912/1344-1015/1392) -26.6 E01-W05 N26-N30
      4  834 1282 (N25E08 L=235)   221     75        0 ( 809/1260- 868/1307) -45.0 E09-E05 N23-N27
      5  307 1252 (N30E52 L=191)   571    175        1 ( 247/1208- 382/1283)   7.6 E58-E43 N28-N32
      6  351 1155 (N24E46 L=197)  1404    220        5 ( 314/1055- 389/1238) -85.2 E50-E42 N17-N29
      7 1862 1097 (S07W63 L=306)   593     40        1 (1835/1080-1888/1117) -15.9 W59-W66 S08-S05
      8  232  865 (N07E61 L=182)   615     63        2 ( 212/ 834- 254/ 902)  53.1 E63-E57 N05-N09
      9  302  647 (S07E59 L=183)   667    139        1 ( 255/ 603- 358/ 698) -49.4 E63-E54 S10-S03
     10 1152  555 (S25E00 L=242)   309     99        0 (1107/ 537-1199/ 568)   9.5 E03-W03 S25-S23
     11  547  376 (S28E50 L=192)   579    138        0 ( 526/ 314- 577/ 427)  31.6 E57-E44 S32-S24
     12  715  333 (S34E38 L=204)   945    172        2 ( 654/ 279- 769/ 397)  21.3 E48-E30 S37-S28
     13 1411  292 (S54W19 L=261)   414     49        0 (1385/ 277-1446/ 304)  -8.1 W15-W22 S55-S51
  

    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