Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  720 1748 (N34E39 L=126)   328     53        0 ( 691/1730- 749/1765)  26.6 E41-E36 N32-N35
      2  771 1705 (N31E33 L=133)   404     40        1 ( 748/1683- 797/1727)  33.7 E35-E30 N29-N33
      3  451 1624 (N21E54 L=111)  2700    309        6 ( 385/1540- 520/1721) -24.8 E71-E44 N15-N28
      4 1076 1597 (N29E08 L=157)   446    171        0 (1007/1531-1121/1638) -26.6 E13-E03 N25-N31
      5  922 1592 (N26E18 L=148)   391     86        1 ( 900/1552- 951/1630) -80.5 E19-E16 N23-N29
      6  393 1559 (N16E56 L=110)   583     69        3 ( 367/1528- 422/1593)  90.0 E58-E53 N13-N18
      7 1819 1297 (N27W53 L=219)  2013    163        8 (1766/1226-1878/1355) -33.7 W46-W62 N23-N31
      8  258 1291 (S02E58 L=108)   856     68        2 ( 229/1249- 292/1325) -38.7 E62-E54 S04-N00
      9 1545 1230 (N16W28 L=194)   726    188        1 (1519/1135-1582/1312)  85.2 W27-W30 N09-N21
     10 1801 1198 (N20W50 L=216)   630     80        0 (1780/1147-1817/1238) -78.7 W48-W52 N17-N22
     11 1621 1120 (N11W35 L=201)   435     94        0 (1604/1063-1634/1170) -71.6 W33-W36 N07-N13
     12  458 1090 (S12E37 L=129)   429    111        2 ( 430/1059- 490/1133) -76.0 E38-E34 S13-S09
     13  332 1098 (S13E47 L=119)   302     70        0 ( 301/1074- 364/1116)  21.8 E49-E44 S14-S11
     14  730  960 (S15E17 L=149)   298     78        0 ( 696/ 928- 753/ 996)  59.0 E18-E14 S17-S12
     15  429  951 (S20E37 L=128)   349     89        3 ( 394/ 922- 458/ 975) -21.8 E40-E35 S21-S18
     16  198  899 (S26E61 L=105)   435     83        0 ( 159/ 868- 228/ 924) -12.5 E66-E57 S27-S24
     17  178  728 (S36E70 L= 96)   715     44        1 ( 155/ 704- 217/ 748)  -5.2 E75-E62 S37-S35
     18  840  694 (S29E05 L=160)  1094    344        3 ( 681/ 648- 993/ 738)   5.4 E16-W05 S32-S27
     19 1467  644 (S20W36 L=202)   406    161        0 (1411/ 600-1497/ 704)  82.9 W34-W37 S23-S15
     20 1720  576 (S17W61 L=226)  1365    226        1 (1635/ 508-1795/ 662)  59.7 W55-W64 S22-S10
     21  358  589 (S44E48 L=118)  1248    214        0 ( 276/ 558- 442/ 637)  12.3 E60-E37 S46-S39
     22  969  562 (S35W06 L=172)   223     58        0 ( 944/ 530- 996/ 585)  63.4 W05-W07 S37-S33
     23 1556  475 (S27W52 L=217)   440     77        0 (1517/ 460-1598/ 491)  14.0 W47-W55 S27-S25
     24  644  426 (S52E19 L=147)   342     45        0 ( 621/ 405- 669/ 453) -26.6 E20-E15 S53-S49
     25  542  407 (S56E31 L=134)   689     92        0 ( 513/ 385- 590/ 443) -23.2 E35-E25 S57-S52
     26 1589  310 (S35W73 L=239)   684     69        1 (1562/ 288-1627/ 328)  10.3 W66-W79 S36-S32
     27  504  283 (S69E54 L=112)   717    108        0 ( 462/ 271- 559/ 305)  -2.6 E68-E39 S69-S66
  

    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