Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1369 1833 (N40W65 L= 25)  1184    178        0 (1286/1810-1450/1852) -15.5 W54-W74 N37-N43
      2 1429 1698 (N31W53 L= 13)   469    148        0 (1359/1669-1468/1747)   3.8 W45-W60 N29-N32
      3  553 1688 (N63E19 L=302)   382     85        1 ( 519/1653- 584/1716)  26.6 E24-E14 N60-N64
      4  983 1597 (N40W16 L=337)   452     85        1 ( 942/1574-1017/1620)  -9.5 W13-W19 N37-N41
      5 1526 1508 (N18W46 L=  7)   381    130        0 (1494/1453-1563/1561)  76.0 W45-W48 N13-N21
      6  529 1436 (N43E23 L=298)   257     46        1 ( 510/1410- 553/1462)  33.7 E24-E20 N41-N45
      7 1239 1402 (N21W23 L=344)   285    119        0 (1190/1353-1268/1433) -71.6 W21-W24 N17-N23
      8 1813 1154 (S10W55 L= 15)   382     66        1 (1799/1118-1833/1195)  45.0 W52-W56 S11-S07
      9  234 1055 (N26E55 L=266)  1106    278        2 ( 155/ 949- 340/1145) -35.0 E65-E45 N18-N32
     10 1733 1035 (S13W44 L=  5)   274     63        0 (1710/1009-1750/1070)  36.9 W41-W45 S14-S11
     11 1477  755 (S21W19 L=340)   960    236        1 (1417/ 652-1527/ 850)  42.0 W13-W24 S25-S16
     12  939  693 (S10E13 L=307)   527    160        1 ( 914/ 613- 966/ 768)  45.0 E17-E09 S14-S06
     13 1033  409 (S30E18 L=303)   987    316        3 ( 903/ 364-1137/ 504) -52.4 E22-E11 S34-S20
     14  895  269 (S36E35 L=286)  1372    245        1 ( 788/ 229-1003/ 330)   0.0 E44-E23 S37-S33
  

    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