Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  375 1597 (N11E62 L=188)  3374    522        9 ( 268/1500- 443/1696)  58.4 E72-E56 N04-N19
      2  802 1620 (N22E31 L=219)   372    108        0 ( 757/1585- 855/1640)  -7.1 E34-E26 N20-N22
      3  487 1587 (N13E51 L=199)   479     67        1 ( 461/1557- 519/1613)  76.0 E53-E49 N10-N14
      4 1179 1370 (N16E01 L=250)   839    258        0 (1116/1269-1242/1494) -39.8 E07-W05 N11-N22
      5  539 1263 (S05E35 L=215)   247     77        0 ( 496/1252- 576/1273)  21.8 E37-E32 S06-S04
      6  323  983 (S26E45 L=205)   311     80        0 ( 300/ 960- 350/1002)  36.9 E46-E42 S27-S24
      7  360  889 (S31E40 L=210)   666    133        0 ( 307/ 865- 418/ 924)  -5.7 E45-E35 S31-S29
      8  988  833 (S19W03 L=253)  1005    324        0 ( 816/ 801-1145/ 857)  20.2 E07-W12 S22-S15
      9  660  829 (S27E17 L=233)   360     94        0 ( 613/ 807- 714/ 850)  15.9 E20-E13 S28-S25
     10 1267  651 (S21W25 L=275)  1411    377        3 (1113/ 551-1427/ 719)   9.9 W15-W38 S25-S16
     11 1603  571 (S14W50 L=301)   530    115        0 (1558/ 530-1654/ 616)  66.8 W48-W53 S17-S10
     12 1697  469 (S16W65 L=316)   696     76        2 (1659/ 437-1730/ 496)  51.3 W62-W68 S18-S13
     13 1589  447 (S21W56 L=307)   485    107        0 (1570/ 413-1605/ 484) -18.4 W53-W60 S22-S19
     14 1687  426 (S18W68 L=318)   600    134        3 (1658/ 408-1726/ 447)  23.2 W64-W72 S19-S16
     15 1318  335 (S36W45 L=295)   407     66        1 (1288/ 311-1347/ 356)  11.3 W41-W47 S37-S34
  

    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