Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  569 1694 (N57E38 L= 75)   691     72        1 ( 524/1671- 614/1712)  -8.1 E45-E31 N54-N58
      2 1111 1243 (N18W08 L=122)   329    122        0 (1080/1189-1129/1298) -90.0 W06-W09 N14-N21
      3 1490 1248 (N13W33 L=146)   247     44        1 (1456/1230-1516/1269) -26.6 W30-W34 N11-N14
      4  307 1212 (N24E51 L= 63)   322     94        1 ( 274/1181- 350/1244) -26.6 E54-E46 N21-N26
      5 1571 1104 (N03W36 L=149)   772    215        1 (1538/1004-1594/1198)  84.8 W33-W38 S02-N09
      6 1788  760 (S22W53 L=167)  1576    167        3 (1739/ 697-1827/ 847)  48.8 W48-W57 S26-S17
      7 1775  577 (S35W58 L=171)  1676    132        2 (1746/ 518-1807/ 640) -29.5 W50-W73 S42-S29
      8  397  599 (S14E50 L= 64)   493     79        0 ( 361/ 577- 441/ 619)   6.3 E54-E45 S15-S13
      9 1374  547 (S29W18 L=131)   731    150        2 (1314/ 509-1438/ 591)   6.3 W13-W22 S31-S26
     10 1134  463 (S31E00 L=113)   586     97        2 (1089/ 436-1186/ 491)  18.4 E03-W03 S32-S29
     11  975  347 (S38E14 L= 99)   515    141        0 ( 907/ 312-1037/ 392)  18.4 E20-E08 S40-S35
     12 1362  292 (S51W18 L=132)   421     88        0 (1336/ 253-1391/ 324)  60.3 W16-W20 S54-S47
     13  724  265 (S42E39 L= 74)   519     68        0 ( 683/ 250- 763/ 283)   0.0 E44-E35 S43-S40
  

    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