Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  651 1772 (N68E25 L=190)   606     68        1 ( 610/1750- 684/1789)   0.0 E34-E19 N65-N69
      2 1683 1490 (N20W60 L=276)  1387    264        0 (1564/1438-1786/1523) -26.6 W49-W69 N13-N24
      3 1354 1454 (N26W31 L=246)   547    259        1 (1282/1372-1390/1506) -90.0 W27-W34 N21-N30
      4 1494 1424 (N21W40 L=255)   267     88        1 (1460/1384-1514/1453) -90.0 W38-W41 N18-N23
      5 1617 1355 (N14W47 L=262)   461    170        0 (1536/1338-1690/1374) -12.1 W39-W53 N11-N15
      6  570 1305 (N31E27 L=189)   228    110        0 ( 528/1263- 605/1341)  23.2 E30-E23 N29-N33
      7  704 1213 (N23E17 L=198)   926    248        1 ( 641/1129- 759/1319) -65.2 E20-E14 N17-N30
      8 1769 1207 (N02W55 L=270)   356     72        1 (1754/1175-1782/1249)  76.0 W53-W56 N00-N04
      9  462  950 (N11E38 L=178)   311    113        1 ( 441/ 905- 502/ 988)  51.3 E39-E34 N07-N12
     10 1189  753 (S12W05 L=220)   205     62        1 (1175/ 717-1211/ 780)  76.0 W03-W06 S14-S10
     11 1474  676 (S23W23 L=238)   231    107        0 (1435/ 645-1502/ 715)  26.6 W19-W25 S24-S21
     12 1634  642 (S30W36 L=251)   492    128        0 (1598/ 593-1674/ 696)  45.0 W32-W39 S32-S26
     13  712  551 (S17E29 L=186)   291     89        1 ( 689/ 512- 732/ 595)  45.0 E31-E26 S19-S14
     14 1091  449 (S31E07 L=208)   469    168        0 (1037/ 391-1152/ 516)  35.0 E12-E01 S34-S27
     15  862  440 (S27E23 L=193)   500    192        1 ( 799/ 362- 919/ 495)  29.7 E30-E16 S32-S23
  

    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