Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  889 1748 (N46E09 L= 75)   281     29        0 ( 870/1723- 909/1769)  76.0 E10-E07 N43-N47
      2  914 1672 (N39E07 L= 78)   240     49        0 ( 896/1654- 941/1694) -26.6 E08-E04 N37-N40
      3 1547 1555 (N29W40 L=124)  2401    408        4 (1376/1476-1720/1656) -23.7 W28-W53 N24-N37
      4  603 1554 (N31E29 L= 56)   521     92        2 ( 549/1522- 647/1579) -18.4 E34-E25 N29-N33
      5 1299 1472 (N24W19 L=104)   248     88        2 (1246/1451-1336/1484)   9.5 W15-W21 N22-N24
      6 1505 1307 (N13W31 L=116)   806    253        2 (1466/1187-1525/1411)  85.6 W29-W32 N06-N19
      7 1808 1239 (N09W56 L=140)   681     78        0 (1787/1194-1826/1279) -78.7 W53-W57 N06-N11
      8  289  786 (S14E52 L= 32)  3024    637        6 ( 195/ 512- 340/1063)  83.1 E63-E49 S31-N02
      9  918  927 (S08E07 L= 78)   211     86        1 ( 882/ 910- 964/ 948) -11.3 E08-E03 S09-S07
     10  158  799 (S13E67 L= 17)  3852    303       13 (  90/ 695- 236/ 938) -68.2 E77-E59 S19-S04
     11 1014  870 (S12E01 L= 84)   394    144        2 ( 979/ 817-1048/ 922) -90.0 E03-W01 S15-S08
     12  777  763 (S18E16 L= 69)   885    335        1 ( 701/ 659- 820/ 884) -90.0 E20-E13 S24-S10
     13  229  830 (S11E57 L= 27)   390     84        0 ( 212/ 784- 245/ 871) -80.5 E58-E56 S14-S08
     14  459  776 (S16E38 L= 47)   262     79        0 ( 443/ 730- 477/ 813) -90.0 E38-E36 S18-S13
     15  588  678 (S22E30 L= 55)   878    257        3 ( 499/ 644- 693/ 764) -28.3 E35-E22 S24-S16
     16 1835  733 (S21W62 L=146)   421     53        2 (1812/ 703-1855/ 758)  33.7 W59-W64 S22-S19
     17 1541  620 (S28W36 L=120)   380     90        0 (1502/ 587-1578/ 654)  38.7 W33-W38 S30-S25
     18 1690  595 (S30W50 L=135)   299     52        1 (1676/ 569-1710/ 626) -45.0 W48-W53 S31-S27
     19 1402  551 (S33W26 L=111)   343     89        1 (1363/ 534-1450/ 568)   0.0 W23-W29 S33-S31
     20  996  396 (S43E04 L= 81)  1545    397        4 ( 825/ 305-1152/ 490)  23.2 E20-W08 S49-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