Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1062 1844 (N54W41 L=349)  2572    343        6 ( 924/1768-1196/1909)  -1.4 W22-W63 N50-N56
      2 1135 1661 (N38W29 L=336)   262     36        0 (1115/1641-1159/1678) -63.4 W26-W30 N37-N39
      3  427 1395 (N41E34 L=274)   860    291        0 ( 298/1370- 552/1439)  -6.1 E49-E21 N38-N43
      4  973 1366 (N25W06 L=314)  1810    455        3 ( 745/1327-1167/1392) -33.1 E07-W16 N17-N32
      5  645 1244 (N26E18 L=290)   329    104        1 ( 630/1190- 670/1297)  51.3 E19-E14 N22-N28
      6  783 1239 (N22E09 L=299)   328    133        1 ( 711/1209- 839/1269) -40.6 E12-E05 N19-N25
      7 1736 1106 (S10W47 L=355)  1295    266        4 (1688/ 993-1770/1243)  70.3 W44-W50 S16-S02
      8 1907 1175 (S12W69 L= 17)   783     84        3 (1887/1141-1929/1217)  63.4 W65-W74 S13-S09
      9  753 1059 (N13E15 L=293)   443    247        1 ( 676/ 962- 817/1138) -72.9 E17-E12 N06-N19
     10  847  633 (S13E20 L=287)   353    151        0 ( 799/ 586- 894/ 691)  24.0 E24-E15 S15-S11
     11 1287  558 (S30W04 L=311)  1350    473        2 (1168/ 390-1442/ 666)  21.8 E09-W16 S38-S25
     12 1607  597 (S37W29 L=336)   776    143        0 (1543/ 565-1665/ 642)   4.8 W22-W34 S38-S35
     13  330  418 (S16E75 L=233)   940     66        1 ( 304/ 388- 354/ 448)  78.7 E79-E71 S18-S13
     14  953  336 (S35E26 L=281)   352     48        0 ( 934/ 314- 974/ 369)  78.7 E28-E24 S37-S32
     15  776  253 (S37E45 L=262)  1677    280        5 ( 735/ 153- 827/ 360)  30.0 E59-E33 S45-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