Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  664 1742 (N32E44 L= 95)   636    105        1 ( 640/1689- 679/1791) -45.0 E48-E39 N28-N36
      2  555 1594 (N20E44 L= 95)   805    225        3 ( 529/1486- 582/1687) -60.3 E48-E39 N12-N26
      3 1041 1667 (N34E13 L=126)   324     79        1 (1000/1649-1078/1685)  45.0 E15-E11 N31-N35
      4  808 1518 (N19E23 L=116)  1817    436        6 ( 682/1389- 952/1650) -29.5 E35-E12 N12-N25
      5  491 1607 (N20E50 L= 89)   496    112        1 ( 458/1562- 535/1636)  63.4 E51-E47 N16-N22
      6 1310 1476 (N26W09 L=148)   427     80        1 (1292/1442-1335/1524) -59.0 W07-W11 N23-N29
      7 1472 1442 (N28W21 L=159)   343    138        0 (1435/1380-1502/1498) -45.0 W17-W23 N24-N30
      8  934 1383 (N12E12 L=127)   329    131        2 ( 860/1347- 972/1420)  45.0 E15-E10 N09-N15
      9  507 1307 (N01E37 L=102)   328     42        1 ( 489/1275- 529/1340) -56.3 E38-E35 N00-N03
     10 1867 1051 (N14W59 L=197)  2079    301        5 (1822/ 912-1910/1179) -49.4 W52-W66 N06-N20
     11 1053 1069 (S04W01 L=140)   292     76        1 (1021/1046-1082/1100) -33.7 E01-W02 S05-S02
     12  679 1023 (S13E21 L=118)   366    137        0 ( 629/ 970- 726/1051)  39.8 E23-E17 S16-S10
     13  777  986 (S13E14 L=125)   744    218        3 ( 702/ 952- 893/1036)   9.5 E18-E06 S15-S10
     14  683  895 (S20E18 L=120)   208     47        2 ( 664/ 873- 706/ 923) -45.0 E19-E16 S21-S18
     15  466  846 (S27E34 L=105)   672    167        0 ( 396/ 789- 516/ 895) -26.6 E39-E29 S29-S24
     16 1158  824 (S16W12 L=151)   274     78        0 (1119/ 807-1195/ 843)  36.9 W09-W13 S17-S14
     17  412  723 (S35E39 L=100)   444     99        0 ( 378/ 693- 460/ 758) -23.2 E41-E34 S36-S33
     18 1151  680 (S24W15 L=154)   225     77        0 (1114/ 666-1190/ 704)   0.0 W12-W17 S24-S23
     19 1205  573 (S29W22 L=161)  1175    340        1 (1046/ 513-1342/ 608)   5.0 W10-W33 S32-S27
     20 1716  519 (S19W64 L=203)   736    158        0 (1655/ 477-1758/ 583)  76.0 W60-W67 S23-S15
     21  624  532 (S45E20 L=119)  1298    255        2 ( 520/ 504- 749/ 574)  20.9 E30-E09 S47-S39
     22 1629  490 (S24W57 L=196)   374     94        0 (1587/ 457-1661/ 528)  71.6 W55-W58 S26-S20
     23 1283  437 (S36W33 L=172)   697    106        1 (1240/ 400-1337/ 473)  66.8 W29-W35 S39-S32
     24  672  259 (S68E16 L=123)   876    134        0 ( 607/ 231- 738/ 282)  -2.5 E27-E04 S69-S65
  

    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