Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  891 1745 (N49W02 L=338)   284     65        0 ( 857/1728- 928/1763)   8.1 E01-W05 N47-N52
      2 1423 1544 (N26W36 L= 12)   239     47        2 (1398/1532-1451/1563) -14.0 W35-W38 N25-N27
      3  554 1301 (N22E27 L=308)  1906    402        6 ( 417/1182- 630/1372) -39.5 E40-E22 N14-N29
      4  135 1207 (N22E70 L=265)  1382    208        2 (  94/1167- 176/1245)   7.6 E85-E62 N19-N26
      5  298 1191 (N19E49 L=287)   353    154        0 ( 246/1177- 345/1211) -11.3 E54-E44 N18-N21
      6 1239 1058 (S01W13 L=349)   439    135        0 (1177/1018-1317/1090)  11.3 W10-W17 S04-N02
      7  407 1016 (N07E39 L=296)   261    101        2 ( 367/ 996- 433/1040)  11.3 E42-E38 N06-N09
      8 1866  905 (S18W61 L= 37)  1804    329        6 (1828/ 805-1908/ 985) -74.7 W56-W71 S25-S13
      9 1335  955 (S08W18 L=353)   403    133        0 (1272/ 939-1405/ 976) -18.4 W14-W22 S10-S06
     10 1209  879 (S11W09 L=345)   317    113        1 (1172/ 808-1243/ 932)  50.2 W08-W11 S16-S08
     11 1049  805 (S13E01 L=334)   621    170        1 (1032/ 729-1065/ 896)  71.6 E01-E01 S18-S08
     12  207  665 (S11E68 L=267)  6005    629       12 ( 140/ 537- 328/ 786) -62.1 E72-E61 S20-S03
     13 1606  661 (S30W38 L= 13)  1791    347        4 (1501/ 548-1657/ 778)  63.4 W28-W46 S39-S21
     14  545  567 (S21E40 L=296)  1490    370        5 ( 498/ 435- 583/ 701)  43.3 E39-E44 S30-S12
     15 1375  536 (S35W19 L=354)   464     96        2 (1351/ 488-1392/ 585) -81.9 W17-W21 S39-S31
  

    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