Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1390 1549 (N36W08 L= 82)  2323    529        1 (1303/1318-1506/1761) -49.6 E04-W20 N24-N52
      2  373 1637 (N15E68 L=  6)  3411    156        5 ( 321/1575- 445/1710) -51.3 E79-E58 N09-N20
      3  748 1515 (N15E30 L= 44)   369    118        0 ( 708/1483- 777/1539)  14.0 E32-E27 N13-N16
      4 1199 1473 (N25E02 L= 72)   298    106        0 (1155/1432-1241/1500) -18.4 E05-W01 N23-N25
      5  480 1431 (N04E45 L= 29)   336     56        0 ( 446/1416- 512/1448)  26.6 E47-E42 N02-N05
      6 1314 1319 (N19W09 L= 83)   237     79        0 (1288/1288-1348/1354) -21.8 W06-W11 N18-N20
      7  419 1260 (S07E43 L= 31)   493    133        1 ( 385/1193- 438/1311) -74.1 E46-E40 S10-S03
      8 1634 1284 (N27W31 L=105)   272     45        0 (1612/1260-1658/1310) -26.6 W29-W33 N26-N28
      9 1750 1269 (N30W42 L=116)   334     55        0 (1737/1239-1762/1298) -76.0 W40-W43 N28-N32
     10 1720 1189 (N24W40 L=114)   573    125        1 (1665/1159-1757/1224)  18.4 W34-W43 N21-N27
     11  981 1082 (S03E04 L= 70)   211     26        1 ( 960/1059- 999/1108) -45.0 E05-E02 S04-S01
     12  113 1038 (S25E74 L=360)  1461     97        2 (  80/1000- 155/1068)   9.0 E85-E65 S27-S23
     13  966  944 (S11E01 L= 73)   506    136        2 ( 903/ 899-1006/ 990)  66.8 E03-W00 S14-S07
     14 1611  773 (S02W42 L=116)  1377    264        2 (1583/ 640-1653/ 890) -47.7 W37-W47 S09-N04
     15 1799  780 (N04W58 L=132)  1694    241        2 (1760/ 689-1840/ 871) -52.1 W53-W63 N00-N09
  

    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