Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  684 1703 (N24E44 L=240)   783    105        2 ( 639/1676- 742/1726)   0.0 E48-E38 N21-N25
      2 1353 1611 (N38W03 L=286)  1099    368        1 (1197/1537-1501/1695)   0.0 E11-W15 N35-N40
      3  782 1457 (N11E26 L=258)   790    261        0 ( 714/1359- 860/1556) -28.1 E33-E18 N07-N15
      4  366 1520 (N06E58 L=225)  1042    128        4 ( 305/1474- 419/1553)  10.3 E65-E53 N03-N07
      5  214 1278 (S11E63 L=220)   522     81        3 ( 197/1235- 228/1317)  90.0 E66-E60 S13-S08
      6 1634 1233 (N23W31 L=315)   306     87        0 (1594/1206-1671/1261)   0.0 W27-W34 N22-N23
      7  136 1110 (S22E70 L=214)   776    122        2 ( 110/1056- 173/1160)  37.9 E74-E65 S25-S18
      8  225 1034 (S25E56 L=228)   508    122        2 ( 194/ 992- 248/1101)  54.5 E59-E53 S27-S20
      9 1863  902 (N13W60 L=344)  2125    347        6 (1782/ 790-1937/1031) -17.7 W48-W78 N09-N18
     10 1348  973 (S00W19 L=303)   222     53        0 (1316/ 956-1372/ 998)  45.0 W17-W20 S01-N01
     11  890  942 (S14E05 L=279)   238     53        1 ( 864/ 914- 915/ 969)  90.0 E06-E03 S16-S12
     12 1251  780 (S13W20 L=303)   351    133        0 (1219/ 724-1282/ 842) -35.5 W15-W22 S15-S10
     13 1830  701 (N01W65 L=349)   987    130        3 (1771/ 672-1887/ 732)  18.4 W57-W74 S01-N04
     14 1145  707 (S20W16 L=300)   312    118        0 (1083/ 690-1201/ 720)  23.2 W12-W19 S21-S18
     15  282  653 (S48E51 L=233)   517     57        1 ( 254/ 636- 318/ 674)   5.7 E56-E45 S49-S46
     16 1043  642 (S27W13 L=296)   381    157        0 ( 970/ 607-1113/ 660)  11.3 W07-W17 S28-S25
     17 1573  505 (S17W52 L=336)   758    156        2 (1497/ 474-1640/ 530)  37.9 W47-W57 S21-S14
     18  784  443 (S47W04 L=288)   849    249        2 ( 678/ 405- 906/ 481)  11.9 E05-W14 S49-S44
     19 1508  291 (S30W67 L=351)   604     77        1 (1479/ 264-1537/ 318)   0.0 W60-W74 S31-S29
  

    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