Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1182 1507 (N27W24 L=312)   388     56        0 (1153/1477-1217/1532)   9.5 W21-W27 N25-N28
      2 1578 1513 (N16W50 L=339)   923    149        2 (1506/1488-1649/1530) -20.0 W44-W56 N13-N18
      3  231 1328 (N43E57 L=232)   646     94        2 ( 190/1299- 276/1354)   4.8 E63-E50 N41-N44
      4 1247 1260 (N12W19 L=307)  1176    411        0 (1088/1166-1409/1317) -43.0 W10-W25 N02-N17
      5 1711 1263 (S01W49 L=337)   845    170        1 (1641/1223-1761/1289)  -5.2 W42-W53 S04-N00
      6 1758  957 (S19W44 L=333)  3900    734        3 (1631/ 673-1892/1245)  34.4 W29-W67 S32-S05
      7  755 1097 (N16E13 L=275)   590    174        1 ( 721/1014- 806/1170) -90.0 E14-E11 N10-N20
      8  654  879 (N06E25 L=264)   661    101        4 ( 604/ 839- 711/ 915) -26.6 E27-E21 N04-N08
      9 1313  676 (S22W07 L=295)   508    136        1 (1264/ 630-1369/ 738)  26.6 W03-W11 S23-S19
     10  259  693 (N04E61 L=228)   435     44        3 ( 238/ 667- 282/ 716)  33.7 E63-E58 N03-N05
     11  673  577 (S11E33 L=256)  1294    359        1 ( 602/ 521- 754/ 673) -79.7 E36-E27 S15-S04
     12 1565  566 (S38W22 L=311)   300     80        0 (1533/ 543-1592/ 606)  31.0 W19-W25 S39-S35
     13  349  462 (S11E65 L=224)  5000    283       10 ( 268/ 358- 433/ 589)  60.6 E75-E59 S18-S02
     14 1169  523 (S27E06 L=283)   235     66        0 (1141/ 499-1191/ 553)  26.6 E08-E04 S28-S25
     15  452  531 (S09E50 L=238)   299     40        2 ( 427/ 505- 475/ 551)   0.0 E52-E47 S10-S07
     16  265  507 (S07E73 L=216)   742     53        0 ( 245/ 478- 290/ 530) -63.4 E76-E69 S09-S05
     17  509  506 (S11E47 L=241)   330     55        0 ( 482/ 484- 534/ 525) -76.0 E48-E45 S13-S09
     18 1404  385 (S45W06 L=294)   503    114        2 (1370/ 335-1433/ 440)  53.1 W02-W09 S49-S41
     19  586  407 (S19E47 L=242)   672    130        3 ( 545/ 361- 639/ 438)   0.0 E51-E42 S21-S16
     20  466  363 (S19E61 L=228)   612     93        0 ( 446/ 319- 481/ 408)  40.6 E64-E56 S22-S16
     21  971  302 (S36E28 L=261)   921    115        1 ( 925/ 267-1015/ 346)  14.0 E31-E23 S39-S33
  

    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