Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1226 1722 (N43W17 L= 76)   983    162        0 (1174/1646-1287/1784) -63.4 W13-W21 N36-N48
      2 1773 1554 (N31W66 L=124)  1979    171        1 (1686/1511-1843/1597) -10.8 W55-W79 N28-N33
      3 1030 1549 (N29W01 L= 59)   415     78        1 (1000/1516-1062/1583) -63.4 W00-W03 N27-N31
      4 1743 1423 (N22W53 L=112)   962    161        3 (1708/1357-1771/1497) -90.0 W49-W56 N17-N26
      5 1561 1466 (N24W38 L= 96)   291     50        1 (1538/1440-1589/1481) -14.0 W36-W40 N22-N24
      6 1817 1294 (N14W58 L=116)  1382    290        2 (1779/1160-1849/1414) -86.4 W55-W60 N05-N21
      7 1695 1316 (N15W46 L=104)  1073    217        1 (1647/1226-1772/1393) -51.3 W42-W51 N09-N19
      8  198 1286 (N15E61 L=357)  2164    235        2 ( 157/1195- 252/1375) -84.8 E67-E55 N09-N20
      9  299 1301 (N15E50 L=  8)   499     87        2 ( 282/1253- 321/1350) -80.5 E51-E48 N12-N18
     10  126 1171 (N09E69 L=349)  1998     86        5 (  85/1135- 165/1208)  14.0 E79-E63 N06-N10
     11  368 1069 (N01E42 L= 16)   500    134        0 ( 318/1030- 420/1097)  -7.1 E46-E38 S01-N02
     12  624  898 (S10E25 L= 33)  1440    456        1 ( 578/ 676- 652/1083)  87.6 E27-E22 S23-N01
     13  273  853 (S11E52 L=  6)  2947    287        7 ( 207/ 724- 333/ 989)  61.9 E58-E46 S18-S03
     14 1378  926 (S09W22 L= 80)   315     82        0 (1343/ 910-1421/ 951) -11.3 W19-W24 S10-S07
     15  394  874 (S11E42 L= 17)   846    138        2 ( 338/ 821- 439/ 919) -29.7 E45-E38 S13-S07
     16 1803  893 (S11W54 L=113)   355     21        1 (1784/ 871-1825/ 916)  90.0 W52-W56 S11-S09
     17  809  897 (S10E13 L= 45)   265     75        2 ( 775/ 875- 844/ 915) -14.0 E15-E11 S11-S09
     18  200  689 (S21E66 L=352)  3615    302        4 ( 165/ 582- 232/ 837)  31.0 E85-E58 S26-S11
     19  365  784 (S16E45 L= 13)   353     65        1 ( 339/ 757- 395/ 815) -53.1 E47-E42 S17-S13
     20 1055  695 (S23W02 L= 60)  1342    405        1 ( 915/ 658-1223/ 772)  -6.0 E07-W12 S25-S18
     21  314  706 (S20E52 L=  6)   306     93        0 ( 273/ 684- 354/ 734)  12.5 E56-E47 S21-S18
     22  461  485 (S35E46 L= 12)  3028    461        5 ( 316/ 367- 639/ 643)  15.4 E84-E26 S42-S25
     23 1701  535 (S33W55 L=113)   899    112        1 (1655/ 513-1747/ 568)  26.6 W50-W60 S34-S30
     24 1611  526 (S34W46 L=104)   397     32        0 (1588/ 505-1636/ 552) -21.8 W43-W48 S35-S32
     25 1360  422 (S42W27 L= 85)   369     42        1 (1337/ 397-1384/ 452) -45.0 W24-W28 S43-S39
     26 1270  382 (S45W20 L= 78)   669    114        1 (1223/ 353-1319/ 418)  33.7 W15-W23 S47-S41
     27 1134  334 (S49W09 L= 67)   270     23        0 (1117/ 317-1153/ 359) -45.0 W07-W10 S50-S46
     28 1281  239 (S57W27 L= 86)   620     72        1 (1254/ 216-1315/ 267)  38.7 W23-W31 S59-S54
  

    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