Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  634 1518 (N11E37 L=186)   635    151        4 ( 598/1473- 674/1569)  90.0 E40-E34 N08-N14
      2  473 1461 (N05E46 L=177)   417     60        1 ( 447/1436- 499/1481)   0.0 E48-E44 N03-N06
      3 1206 1406 (N19E00 L=223)   357     66        1 (1171/1379-1239/1435)  68.2 E01-W01 N16-N21
      4  234 1277 (S10E61 L=162)  1671    242        6 ( 209/1182- 282/1355)  90.0 E66-E57 S16-S05
      5  284 1249 (S11E55 L=168)   318     71        2 ( 269/1221- 300/1274)  90.0 E56-E53 S12-S09
      6  298 1175 (S15E51 L=172)   695    177        3 ( 238/1141- 334/1226)  40.6 E56-E48 S17-S11
      7  910 1085 (S07E08 L=215)   630    209        4 ( 811/1053- 990/1118)  15.3 E13-E02 S09-S04
      8  798 1012 (S13E12 L=211)   555    293        1 ( 675/ 938- 932/1078)   0.0 E20-E02 S15-S11
      9  431  821 (S33E34 L=189)   629    165        0 ( 358/ 796- 497/ 843)  10.3 E39-E28 S35-S31
     10  999  672 (S27W09 L=232)   399    171        1 ( 925/ 652-1085/ 715)  11.3 W03-W13 S28-S24
     11 1391  636 (S17W33 L=256)  1296    416        0 (1198/ 600-1562/ 669)  20.6 W21-W45 S22-S13
     12 1695  527 (S13W61 L=285)   477     87        2 (1664/ 504-1726/ 547)  51.3 W58-W64 S15-S10
     13 1472  477 (S23W46 L=269)  1906    618        3 (1240/ 403-1633/ 530)  15.3 W30-W63 S30-S16
     14 1313  337 (S36W45 L=268)   576    154        0 (1239/ 315-1375/ 360)  15.3 W38-W49 S38-S34
  

    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