Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1441 1752 (N36W56 L=137)  1237    102        3 (1392/1710-1477/1784) -59.0 W50-W62 N33-N38
      2  768 1455 (N33E07 L= 74)  1678    349        0 ( 621/1375- 901/1515) -32.9 E17-W00 N25-N39
      3 1313 1419 (N19W27 L=108)  1204    352        1 (1161/1364-1450/1511)   2.5 W16-W39 N16-N21
      4  246 1336 (N37E55 L= 26)  1905    172        3 ( 213/1258- 287/1416) -42.7 E64-E48 N31-N43
      5  230 1024 (N18E55 L= 26)  1563    288        3 ( 198/ 937- 287/1147) -77.0 E58-E50 N12-N25
      6 1890 1043 (S16W63 L=145)   516     87        0 (1865/1008-1913/1090)  33.7 W59-W67 S17-S13
      7 1077  802 (S11E02 L= 80)   460    145        0 (1058/ 727-1099/ 869)  63.4 E04-W00 S15-S07
      8 1582  758 (S25W30 L=112)   248     12        1 (1564/ 737-1601/ 777) -45.0 W28-W31 S26-S23
      9  809  602 (S18E22 L= 59)   331     53        1 ( 781/ 576- 840/ 629) -63.4 E23-E20 S19-S15
     10 1494  581 (S35W22 L=103)   269     42        1 (1467/ 562-1522/ 595)   0.0 W19-W24 S35-S33
     11  338  469 (S17E66 L= 16)  1044    119        2 ( 298/ 421- 376/ 524)  41.2 E70-E60 S20-S13
     12  483  414 (S23E54 L= 27)  1103    187        2 ( 430/ 334- 524/ 502)  63.4 E61-E51 S28-S16
     13  656  339 (S31E45 L= 36)   382     78        0 ( 617/ 309- 696/ 360)  11.3 E50-E40 S32-S30
  

    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