Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  716 1811 (N39E46 L=330)   865     94        4 ( 676/1788- 764/1841)  -4.8 E52-E40 N36-N41
      2  967 1746 (N38E21 L=354)  1334    219        1 ( 865/1678-1024/1786) -14.9 E30-E15 N33-N41
      3 1305 1673 (N41W06 L= 21)   360     86        1 (1262/1656-1349/1686)  29.7 W02-W09 N38-N42
      4  364 1458 (N09E54 L=322)   890    142        1 ( 307/1409- 414/1508)  35.5 E58-E50 N05-N12
      5  683 1437 (N12E29 L=346)   370     74        0 ( 654/1405- 716/1469) -36.9 E30-E25 N10-N13
      6  907 1407 (N14E14 L=  1)   390    126        0 ( 850/1374- 953/1427)  -8.1 E17-E10 N12-N14
      7 1764 1218 (N21W46 L= 61)   481     78        0 (1731/1195-1805/1242)   8.1 W43-W50 N19-N21
      8  141 1141 (S12E70 L=305)  1057    131        3 ( 110/1086- 171/1189) -33.7 E76-E64 S14-S08
      9  204 1101 (S14E60 L=315)   602    118        0 ( 192/1047- 217/1161)  81.9 E61-E58 S17-S10
     10  181  788 (S33E66 L=309)  1413    130        2 ( 150/ 727- 207/ 849)  26.6 E76-E60 S36-S29
     11 1138  681 (S24W14 L= 29)   869    225        1 (1113/ 575-1171/ 789) -69.0 W11-W17 S30-S17
     12 1559  733 (S12W40 L= 55)   237     86        1 (1548/ 697-1577/ 779) -38.7 W37-W42 S14-S09
     13 1670  578 (S18W55 L= 71)   335     53        0 (1632/ 568-1700/ 592)   8.1 W51-W58 S19-S16
     14 1560  493 (S26W51 L= 66)  1094    220        1 (1461/ 435-1626/ 563)  59.0 W45-W54 S31-S20
     15 1323  476 (S33W34 L= 49)   746    129        3 (1263/ 451-1377/ 510)  39.8 W30-W36 S34-S29
  

    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