Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  667 1744 (N35E40 L=278)   434     68        1 ( 640/1716- 691/1765) -26.6 E42-E36 N33-N36
      2  304 1520 (N16E61 L=258)  2904    508        7 ( 248/1427- 354/1653) -70.6 E67-E54 N09-N26
      3  745 1560 (N23E27 L=292)   717    156        1 ( 687/1497- 794/1593) -26.6 E30-E22 N18-N24
      4  527 1508 (N17E40 L=278)  1242    265        3 ( 484/1376- 609/1591)  90.0 E43-E36 N08-N23
      5  902 1510 (N21E15 L=303)   612    136        1 ( 882/1451- 921/1585) -71.6 E16-E12 N17-N26
      6  812 1391 (N13E18 L=300)   580    179        1 ( 738/1337- 893/1414)  36.9 E21-E13 N08-N14
      7  380 1326 (N04E47 L=272)   621    126        0 ( 364/1254- 399/1387) -74.1 E48-E45 N00-N07
      8 1362 1357 (N19W16 L=334)   207     56        0 (1346/1326-1377/1387) -56.3 W14-W17 N17-N20
      9 1253 1156 (N05W11 L=330)   394    136        2 (1202/1106-1291/1198) -33.7 W07-W13 N01-N06
     10  208 1058 (S13E58 L=260)  3129    656        5 (  75/ 996- 366/1132)  12.7 E76-E43 S16-S07
     11 1560  912 (S04W35 L=353)   299     78        1 (1522/ 892-1599/ 930)  -9.5 W31-W37 S04-S02
     12  746  827 (S22E14 L=304)   967    233        1 ( 628/ 790- 852/ 882)  29.7 E22-E08 S25-S17
     13  441  683 (S34E37 L=282)   413    107        1 ( 416/ 625- 460/ 732) -74.1 E38-E35 S38-S31
     14 1165  546 (S33W18 L=336)   417     68        1 (1138/ 512-1194/ 577)  63.4 W15-W20 S35-S30
  

    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