Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1102 1614 (N32E03 L= 47)   286     67        0 (1064/1589-1130/1631) -21.8 E05-W00 N30-N32
      2  315 1467 (N14E57 L=354)  6797      0       20 ( 201/1318- 484/1612)  38.3 E67-E44 N04-N24
      3  497 1474 (N16E41 L= 10)   405     90        1 ( 460/1442- 540/1497)  18.4 E43-E37 N13-N17
      4 1939 1121 (N15W70 L=120)  1076    107        1 (1893/1077-1975/1158)  -3.6 W62-W79 N12-N16
      5 1822 1079 (N09W54 L=104)   687    138        1 (1798/1015-1844/1140)  76.0 W51-W56 N05-N13
      6  214 1017 (S14E57 L=353)  1265    204        6 ( 175/ 955- 253/1131)  54.0 E62-E53 S17-S06
      7  140 1082 (S10E67 L=343)   553     69        2 ( 125/1035- 155/1120) -68.2 E69-E64 S12-S07
      8 1547  857 (S08W35 L= 85)   368    174        0 (1508/ 780-1570/ 933)  84.3 W33-W35 S13-S03
      9  946  859 (S17E03 L= 48)   461    156        0 ( 918/ 782- 968/ 928) -69.4 E05-W00 S20-S12
     10  269  856 (S23E52 L=358)  2898    524        7 (  95/ 775- 528/ 901)   8.3 E85-E30 S27-S18
     11 1259  762 (S18W18 L= 68)   485    260        0 (1175/ 675-1344/ 861)  61.7 W14-W21 S24-S11
     12  553  713 (S30E28 L= 22)  1910    435        6 ( 363/ 631- 696/ 857)  31.3 E46-E18 S36-S19
     13 1478  673 (S20W35 L= 85)   673    245        1 (1411/ 632-1559/ 741)   0.0 W28-W39 S22-S16
     14 1102  415 (S43W16 L= 67)  2462    472        6 ( 895/ 372-1313/ 469)  10.6 W00-W33 S45-S38
     15 1580  377 (S36W59 L=110)   687     99        0 (1545/ 353-1621/ 405)  14.0 W53-W63 S37-S33
  

    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