Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1358 1860 (N44W63 L=323)  1242     97        2 (1325/1824-1392/1902)   6.8 W55-W80 N42-N46
      2 1257 1832 (N46W50 L=309)   611     57        1 (1232/1794-1284/1861)  18.4 W44-W56 N43-N47
      3 1287 1635 (N32W35 L=295)   721    111        0 (1230/1604-1345/1664) -50.2 W31-W37 N28-N34
      4 1061 1551 (N33W16 L=276)   411    119        1 (1033/1487-1086/1602)  45.0 W12-W18 N29-N36
      5  992 1573 (N36W13 L=272)   278     64        1 ( 968/1539-1013/1599) -90.0 W11-W14 N33-N38
      6 1683 1473 (N12W56 L=315)  2012    238        3 (1582/1415-1787/1544) -42.7 W49-W63 N06-N18
      7  427 1518 (N48E35 L=225)   768    116        1 ( 371/1488- 480/1540)  -4.8 E41-E28 N45-N49
      8 1253 1464 (N23W25 L=285)   306    103        0 (1211/1431-1288/1484) -63.4 W22-W26 N20-N24
      9  726 1386 (N31E10 L=250)   967    261        0 ( 591/1368- 841/1402) -16.4 E19-E02 N28-N34
     10 1219 1335 (N16W19 L=278)   400    204        0 (1139/1286-1300/1384)   9.5 W12-W24 N15-N17
     11 1003 1333 (N21W06 L=266)   268    123        0 ( 965/1290-1060/1367) -56.3 W04-W08 N17-N23
     12  972 1100 (N09E01 L=258)   915    330        2 ( 852/1069-1151/1134) -14.0 E08-W08 N04-N11
     13 1640 1049 (S09W38 L=297)   894    199        0 (1592/ 957-1694/1122) -74.7 W35-W40 S15-S04
     14 1809 1020 (S16W52 L=311)   555     94        1 (1783/ 971-1830/1067)  51.3 W48-W54 S18-S13
     15  219  933 (N14E57 L=203)  1212    206        1 ( 153/ 837- 284/1001) -50.7 E64-E51 N08-N19
     16  404  768 (N02E44 L=216)   421    108        1 ( 372/ 740- 441/ 797)   9.5 E46-E40 N00-N03
     17  865  683 (S12E17 L=243)   686    175        4 ( 816/ 614- 914/ 746) -90.0 E19-E14 S16-S08
     18 1491  581 (S34W20 L=279)   919    187        2 (1401/ 523-1564/ 637)   4.4 W12-W25 S35-S31
     19  442  531 (S13E50 L=210)   414     61        2 ( 414/ 504- 478/ 554)  -9.5 E52-E46 S14-S10
     20  496  427 (S20E52 L=208)  1066    181        4 ( 452/ 365- 548/ 477)  69.4 E55-E47 S24-S16
     21  542  330 (S27E55 L=204)   825    156        2 ( 469/ 299- 582/ 384)  10.0 E65-E48 S29-S24
     22  868  198 (S45E41 L=219)  1540    147        2 ( 800/ 157- 924/ 254)   9.0 E51-E31 S48-S41
  

    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