Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  646 1689 (N25E42 L= 23)   428    126        0 ( 595/1641- 670/1729) -29.1 E48-E38 N21-N27
      2  508 1619 (N18E49 L= 16)   614    113        4 ( 482/1582- 551/1661) -39.8 E52-E44 N15-N21
      3  320 1612 (N16E69 L=356)   822     70        2 ( 285/1587- 349/1637)  26.6 E74-E65 N13-N17
      4  658 1592 (N19E37 L= 29)   286     39        1 ( 633/1572- 681/1621)  71.6 E37-E34 N17-N20
      5  803 1502 (N16E24 L= 41)   409    163        0 ( 769/1432- 849/1567)  90.0 E24-E23 N11-N20
      6  383 1366 (N01E48 L= 17)   647    135        1 ( 311/1352- 449/1385)   4.8 E54-E42 N00-N02
      7 1713 1270 (N24W39 L=104)   850    260        0 (1606/1199-1811/1336)  39.8 W31-W49 N16-N31
      8  364 1059 (S17E43 L= 22)   257     57        0 ( 337/1032- 387/1080) -26.6 E45-E40 S18-S16
      9 1677  985 (N06W40 L=106)   413     81        1 (1626/ 965-1714/1007)   8.1 W36-W43 N04-N08
     10 1232  946 (S07W13 L= 79)   198     92        0 (1222/ 900-1249/ 990) -78.7 W12-W14 S09-S04
     11  454  949 (S22E34 L= 31)   438    134        0 ( 395/ 912- 520/ 981)  36.9 E38-E29 S25-S19
     12  899  953 (S14E06 L= 60)   483    147        0 ( 822/ 925- 973/ 979)   5.7 E10-W00 S14-S12
     13  138  783 (S36E73 L=352)   710     69        1 ( 105/ 753- 172/ 812)   5.4 E86-E65 S38-S34
     14 1560  763 (S09W38 L=104)   283    106        0 (1526/ 728-1605/ 794)  63.4 W37-W40 S11-S05
     15 1448  702 (S15W33 L= 98)   238     57        0 (1415/ 679-1479/ 715)   0.0 W30-W35 S15-S14
     16 1312  674 (S20W26 L= 91)   259    100        0 (1265/ 655-1362/ 696)  45.0 W23-W28 S22-S17
     17 1628  593 (S16W51 L=116)   469     52        2 (1602/ 565-1655/ 620)   0.0 W47-W53 S17-S14
     18  354  591 (S47E46 L= 19)   397     58        0 ( 322/ 574- 389/ 605)   6.3 E50-E41 S48-S45
     19 1710  552 (S15W60 L=126)  1157    112        2 (1680/ 502-1752/ 600) -56.3 W56-W64 S18-S12
     20  806  542 (S40E02 L= 63)   360    130        0 ( 752/ 513- 868/ 582)  -6.3 E07-W02 S41-S38
     21 1581  547 (S20W49 L=115)   262     57        0 (1552/ 525-1602/ 578) -18.4 W45-W52 S20-S18
     22 1450  446 (S29W46 L=111)   778    164        1 (1369/ 421-1535/ 479)  35.0 W40-W50 S32-S24
     23 1599  381 (S28W64 L=129)   436     29        1 (1575/ 359-1622/ 401)  33.7 W60-W66 S28-S26
  

    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