Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1136 1603 (N34W14 L=270)   706    129        2 (1068/1565-1183/1627) -29.7 W09-W16 N30-N35
      2 1506 1490 (N23W37 L=293)   242    107        1 (1460/1473-1568/1504)   0.0 W33-W42 N21-N23
      3 1411 1203 (N06W25 L=281)   931    200        4 (1315/1155-1499/1239) -20.0 W19-W30 N02-N08
      4 1777 1017 (S08W51 L=306)   295     88        0 (1756/ 980-1808/1056)  38.7 W48-W53 S09-S05
      5 1911  983 (S11W66 L=322)   759     78        1 (1889/ 949-1934/1025) -51.3 W62-W70 S12-S07
      6 1801  851 (S18W54 L=309)  1177    191        4 (1760/ 775-1844/ 929)  77.5 W49-W57 S22-S13
      7  298  861 (S04E50 L=206)   927    157        2 ( 262/ 808- 356/ 909) -71.6 E53-E44 S07-S01
      8 1887  847 (S19W64 L=320)   576     86        1 (1860/ 812-1903/ 880) -38.7 W60-W67 S20-S16
      9 1618  692 (S26W38 L=294)   245     83        1 (1586/ 670-1662/ 716)  21.8 W35-W42 S27-S25
     10 1740  659 (S29W51 L=307)   969    205        1 (1650/ 619-1830/ 685)   6.0 W42-W62 S31-S27
     11  388  593 (S21E50 L=206)   641    145        1 ( 364/ 521- 410/ 664)  66.0 E54-E47 S25-S16
     12  859  462 (S35E18 L=238)  2029    657        7 ( 577/ 348-1136/ 550)   6.3 E44-W02 S39-S30
     13 1383  454 (S41W22 L=278)  1264    341        3 (1237/ 402-1538/ 532)  13.5 W09-W34 S43-S36
     14  383  397 (S34E64 L=192)   833     96        2 ( 361/ 349- 404/ 446)  19.4 E74-E57 S36-S30
     15 1522  338 (S52W41 L=297)  1513    174        4 (1450/ 311-1610/ 365)   0.0 W31-W54 S53-S48
  

    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