Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1476 1576 (N25W42 L=189)   335    125        1 (1427/1544-1500/1627)  18.4 W37-W46 N23-N28
      2 1520 1459 (N17W40 L=187)  1184    340        1 (1383/1413-1660/1515) -19.3 W32-W52 N13-N22
      3  227 1289 (N30E56 L= 91)  1479    204        1 ( 184/1214- 297/1387)  48.0 E60-E49 N25-N35
      4  479 1329 (N28E31 L=115)   520    141        1 ( 432/1263- 519/1381) -60.9 E34-E27 N23-N32
      5  849 1311 (N21E06 L=141)   943    402        0 ( 659/1270-1006/1345) -18.4 E17-W04 N18-N25
      6  131 1215 (N27E69 L= 77)  1212     85        2 (  86/1181- 170/1245) -12.3 E84-E61 N24-N29
      7  438 1064 (N13E36 L=110)   921    324        1 ( 346/ 980- 501/1175)  36.9 E43-E30 N08-N18
      8 1132 1131 (N05W08 L=154)   255     81        0 (1100/1091-1163/1164) -68.2 W06-W09 N02-N07
      9 1885 1028 (S14W62 L=208)  2224    233        4 (1850/ 948-1941/1147) -69.0 W57-W70 S19-S06
     10 1469 1099 (S02W28 L=174)   205     66        0 (1455/1068-1493/1130)  33.7 W26-W29 S03-N00
     11 1540 1055 (S06W31 L=178)   381    108        0 (1524/ 991-1553/1109)  81.9 W29-W32 S09-S02
     12 1413 1027 (S05W23 L=169)   381     99        1 (1378/ 980-1444/1057) -68.2 W20-W24 S08-S03
     13 1159 1003 (S02W07 L=154)   259     74        3 (1130/ 976-1182/1031)  45.0 W05-W08 S03-N00
     14  237  946 (N09E55 L= 92)   902    141        1 ( 211/ 882- 273/1015) -90.0 E56-E51 N05-N13
     15 1825  962 (S17W54 L=200)   350     41        0 (1809/ 932-1843/ 986)  45.0 W52-W56 S18-S15
     16 1738  907 (S18W45 L=191)   848    130        1 (1710/ 843-1779/ 967)  74.1 W42-W49 S21-S14
     17 1516  907 (S14W28 L=174)   356    108        0 (1466/ 875-1544/ 951)  31.0 W24-W29 S15-S11
     18  631  793 (S06E27 L=119)   321    148        0 ( 610/ 727- 651/ 874)  58.0 E29-E24 S09-S01
     19 1199  780 (S16W06 L=152)   255     36        0 (1172/ 758-1223/ 805)  33.7 W04-W07 S17-S14
     20  215  706 (S04E64 L= 82)  2854    195        6 ( 161/ 641- 288/ 796) -60.9 E75-E56 S08-N01
     21  402  711 (S07E45 L=101)   296     75        0 ( 371/ 685- 437/ 743) -53.1 E47-E43 S08-S04
     22  323  646 (S09E55 L= 92)   881    132        2 ( 297/ 604- 357/ 711) -90.0 E58-E51 S12-S05
     23  984  666 (S19E09 L=138)   482    177        0 ( 915/ 636-1079/ 708)   5.2 E13-E02 S20-S17
     24 1508  630 (S31W25 L=171)   400     94        0 (1479/ 589-1539/ 683)  51.3 W22-W27 S33-S28
     25  429  630 (S12E46 L=100)   357     61        1 ( 404/ 607- 451/ 657)  26.6 E48-E43 S13-S10
     26 1124  583 (S27E02 L=144)   408    147        0 (1059/ 567-1200/ 603) -14.0 E05-W03 S27-S24
     27 1017  179 (S56E27 L=119)  1983    351        4 ( 879/ 118-1150/ 245)   6.0 E49-E10 S61-S51
     28  748  179 (S49E52 L= 94)  1273    143        0 ( 725/ 105- 767/ 241)  27.4 E72-E45 S56-S42
  

    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