Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1448 1645 (N28W51 L=342)   537    183        0 (1396/1579-1499/1713)  74.7 W49-W54 N22-N33
      2  632 1552 (N49E12 L=279)   459     81        0 ( 601/1514- 661/1584)  23.2 E15-E08 N47-N51
      3  867 1538 (N41W06 L=297)   650    107        2 ( 822/1506- 911/1566)   0.0 W02-W10 N38-N42
      4  415 1525 (N54E38 L=253)   415     53        1 ( 391/1491- 433/1551) -78.7 E41-E35 N51-N56
      5 1000 1520 (N35W14 L=305)   493     81        2 ( 962/1487-1037/1548)   8.1 W11-W18 N33-N36
      6  330 1516 (N56E53 L=238)   639    102        0 ( 292/1493- 381/1535)  -3.4 E60-E42 N54-N57
      7 1657 1368 (N07W50 L=341)  1304    210        4 (1584/1322-1718/1441)   8.1 W42-W56 N04-N09
      8 1348 1331 (N14W28 L=318)   433     72        0 (1316/1305-1387/1361) -68.2 W25-W29 N11-N16
      9  668 1216 (N26E16 L=274)   219     50        1 ( 647/1185- 691/1237)  71.6 E17-E14 N24-N28
     10  179 1175 (N35E65 L=226)   938    108        0 ( 140/1135- 217/1206) -21.8 E73-E58 N31-N37
     11  713 1127 (N20E16 L=275)   296    106        0 ( 663/1087- 743/1154) -51.3 E18-E14 N17-N22
     12 1858 1091 (S15W59 L=350)   427     70        1 (1827/1061-1883/1120) -45.0 W56-W62 S17-S12
     13 1676 1050 (S11W40 L=331)   273     57        1 (1658/1020-1700/1070)  33.7 W38-W42 S12-S09
     14 1836  954 (S22W54 L=344)   413     86        0 (1803/ 935-1865/ 983)   0.0 W49-W57 S23-S20
     15  699  904 (N08E22 L=269)   421    143        3 ( 633/ 881- 766/ 924) -20.6 E25-E17 N06-N10
     16 1580  715 (S28W26 L=317)   613    242        2 (1518/ 624-1641/ 807)  33.7 W20-W32 S31-S23
     17  808  688 (S07E21 L=269)   301     58        0 ( 777/ 670- 837/ 708) -14.0 E23-E19 S08-S05
     18 1336  563 (S29W06 L=297)   989    231        2 (1264/ 498-1397/ 661)  30.3 W00-W12 S31-S24
     19  995  605 (S17E13 L=277)   486    138        0 ( 949/ 572-1034/ 658)   9.5 E15-E09 S18-S14
     20 1681  568 (S42W35 L=325)  1272    132        3 (1631/ 515-1721/ 620)   5.7 W29-W39 S45-S37
     21  579  352 (S22E52 L=238)   431     81        0 ( 547/ 327- 600/ 389)  18.4 E57-E48 S23-S20
     22 1050  225 (S46E29 L=262)  1585    248        2 ( 936/ 179-1136/ 285)   4.8 E42-E18 S47-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