Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1270 1647 (N35W26 L=322)   273     39        0 (1245/1630-1298/1662)   0.0 W23-W28 N34-N36
      2  569 1498 (N33E27 L=269)   722    182        0 ( 485/1441- 628/1546) -31.6 E35-E22 N28-N37
      3  422 1464 (N33E40 L=256)   335     45        1 ( 398/1444- 452/1488) -18.4 E42-E36 N31-N34
      4  700 1095 (N06E19 L=277)  1743    394        6 ( 521/1037- 880/1140)  -2.5 E30-E07 N02-N09
      5 1863 1066 (S06W60 L=356)   404     77        0 (1845/1039-1881/1105) -90.0 W57-W62 S08-S04
      6 1807  938 (S13W53 L=349)   514     85        1 (1783/ 892-1833/ 979)  59.0 W51-W56 S16-S11
      7 1469  863 (S15W26 L=322)   439    157        0 (1428/ 797-1501/ 933) -66.0 W23-W28 S19-S10
      8  800  725 (S16E17 L=279)   808    299        1 ( 700/ 626- 866/ 773) -56.3 E22-E12 S22-S13
      9 1764  723 (S26W51 L=348)   473     89        0 (1716/ 710-1807/ 740)   0.0 W46-W56 S27-S25
     10 1107  658 (S24W01 L=297)   417     97        1 (1071/ 626-1149/ 694)  31.0 E01-W04 S25-S21
     11  389  616 (S18E49 L=247)   666    104        2 ( 366/ 569- 414/ 673)  49.4 E53-E46 S21-S14
     12 1727  487 (S43W58 L=354)   631     47        1 (1698/ 471-1760/ 504) -10.3 W52-W63 S43-S41
     13  542  437 (S32E44 L=252)  1488    289        2 ( 438/ 376- 658/ 487) -11.3 E57-E35 S37-S27
     14  942  401 (S39E14 L=282)   933    285        1 ( 816/ 344-1062/ 463)  13.4 E25-E04 S42-S36
  

    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