Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  649 1791 (N38E57 L=145)  1244    147        3 ( 597/1747- 705/1842)  -7.9 E76-E47 N35-N41
      2  623 1675 (N29E48 L=155)  1074    192        2 ( 532/1637- 705/1723)  42.0 E53-E43 N24-N33
      3 1449 1536 (N40W18 L=220)  1223    227        3 (1369/1448-1490/1610) -39.3 W10-W21 N33-N45
      4  339 1540 (N14E66 L=137)   679     78        1 ( 315/1498- 368/1576) -68.2 E67-E63 N11-N16
      5  906 1518 (N25E20 L=182)   401    189        0 ( 846/1445- 964/1574) -22.6 E25-E13 N21-N27
      6 1355 1411 (N29W12 L=214)  1408    496        1 (1210/1211-1442/1553) -37.3 W00-W21 N17-N35
      7  939 1345 (N15E12 L=190)   862    299        4 ( 811/1303-1066/1393)   3.2 E21-E03 N12-N17
      8 1703 1210 (N25W42 L=244)   892    176        2 (1676/1134-1734/1270) -49.4 W39-W45 N20-N28
      9 1776 1222 (N27W50 L=252)   379     93        0 (1737/1190-1810/1241)  -7.1 W45-W54 N26-N28
     10  240 1198 (S08E60 L=143)   380     46        0 ( 222/1172- 259/1221) -45.0 E61-E57 S09-S06
     11  224 1139 (S12E60 L=142)  1777    213        4 ( 153/1055- 304/1200)  50.7 E69-E52 S17-S06
     12 1899 1015 (N18W68 L=270)   932    120        0 (1883/ 958-1912/1076) -54.5 W64-W71 N14-N21
     13  246 1019 (S19E55 L=147)   485     41        1 ( 224/ 989- 266/1046) -71.6 E57-E53 S20-S17
     14  371  958 (S20E42 L=160)   732    193        1 ( 309/ 893- 411/1040)  63.4 E47-E39 S24-S14
     15 1286  786 (S10W21 L=223)   248     55        2 (1258/ 757-1312/ 813) -14.0 W18-W22 S11-S08
     16 1127  683 (S20W14 L=216)   572    214        1 (1027/ 660-1218/ 705)  32.5 W08-W19 S23-S16
     17  509  625 (S38E28 L=174)  1998    352        6 ( 363/ 569- 646/ 702)  -2.1 E42-E15 S41-S35
     18  295  663 (S41E52 L=150)  1212    125        2 ( 234/ 643- 355/ 697)  11.9 E63-E44 S43-S38
     19  513  470 (S51E28 L=174)   347     62        1 ( 486/ 453- 541/ 490)   0.0 E31-E25 S51-S48
     20 1230  349 (S39W36 L=238)   530    100        1 (1208/ 322-1266/ 394) -20.6 W31-W39 S40-S35
     21  831  354 (S50W05 L=207)   327     87        0 ( 797/ 334- 876/ 377)  -6.3 W01-W10 S51-S49
  

    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