Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1114 1769 (N42E20 L=205)   313     33        0 (1087/1755-1140/1785)  26.6 E21-E17 N40-N43
      2  376 1481 (N04E56 L=169)   474    133        1 ( 346/1437- 401/1511) -20.6 E59-E51 N01-N05
      3  467 1462 (N04E47 L=177)   534     88        0 ( 437/1435- 505/1487)  -9.5 E49-E43 N03-N06
      4 1185 1413 (N19E01 L=223)   359     69        1 (1152/1388-1217/1439)  68.2 E02-W00 N16-N21
      5  237 1303 (S09E62 L=162)  2414    320        8 ( 197/1184- 309/1413)  86.2 E67-E58 S16-S01
      6  274 1173 (S16E53 L=171)   513     91        1 ( 235/1145- 300/1207)  45.0 E56-E50 S17-S13
      7  905 1094 (S06E08 L=216)   448    175        1 ( 814/1058- 982/1111)  11.3 E13-E03 S08-S04
      8  719 1047 (S13E18 L=206)   338    144        0 ( 660/ 984- 761/1083)  -7.1 E22-E14 S16-S11
      9  656  880 (S24E18 L=206)   331    160        0 ( 589/ 854- 728/ 925)  41.2 E22-E14 S27-S20
     10  413  827 (S34E35 L=189)   667    172        0 ( 345/ 806- 482/ 848)   9.5 E41-E29 S35-S31
     11  983  677 (S27W08 L=232)   313    135        0 ( 917/ 660-1048/ 707)  12.5 W02-W11 S28-S25
     12 1392  642 (S17W33 L=257)  1572    506        1 (1175/ 605-1612/ 678)  20.8 W19-W48 S22-S10
     13 1591  474 (S19W55 L=279)   789    275        0 (1534/ 406-1630/ 537)  -7.1 W47-W63 S21-S16
     14 1429  486 (S24W43 L=267)   807    194        2 (1335/ 464-1510/ 512)  31.0 W36-W47 S26-S20
     15 1304  345 (S36W44 L=268)   555    163        2 (1230/ 324-1365/ 368)  15.3 W37-W48 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