Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1499 1686 (N28W55 L=116)   470     86        0 (1454/1663-1544/1703) -38.7 W51-W57 N25-N30
      2 1611 1568 (N19W55 L=117)   706    105        2 (1569/1538-1656/1592) -33.7 W51-W58 N16-N20
      3 1439 1513 (N20W39 L=101)   900    220        1 (1354/1455-1538/1589) -59.7 W36-W43 N14-N26
      4  430 1500 (N47E34 L= 28)   813    149        0 ( 375/1470- 494/1529)   4.4 E39-E26 N44-N48
      5 1003 1490 (N30W11 L= 73)   954    230        0 ( 905/1437-1107/1523)  -4.1 W03-W17 N27-N32
      6 1332 1446 (N19W29 L= 91)   940    255        0 (1223/1367-1430/1494) -56.3 W23-W32 N12-N24
      7 1655 1464 (N12W53 L=114)   314     26        0 (1632/1447-1679/1480) -26.6 W50-W54 N10-N13
      8 1073 1331 (N19W10 L= 72)   304    136        1 (1011/1315-1148/1348) -26.6 W06-W14 N16-N21
      9 1761 1208 (S05W51 L=113)   562     91        1 (1745/1153-1785/1249)  39.8 W48-W54 S07-S02
     10 1819 1171 (S08W56 L=117)   407     43        0 (1808/1138-1832/1203)  76.0 W53-W57 S10-S06
     11 1291 1026 (S03W15 L= 76)   350    108        2 (1256/ 986-1333/1071)  26.6 W12-W18 S04-N00
     12  181 1038 (N22E60 L=  1)   579     62        1 ( 156/1009- 211/1064) -29.7 E63-E56 N20-N24
     13 1389  922 (S11W18 L= 80)   278    103        0 (1336/ 903-1434/ 947)  -9.5 W15-W21 S11-S09
     14  952  781 (S08E10 L= 52)  1180    274        6 ( 893/ 687-1032/ 861)  45.0 E14-E03 S13-S04
     15  527  693 (S04E38 L= 24)  3085    595        9 ( 342/ 527- 722/ 850) -46.5 E49-E29 S16-N06
     16  144  805 (N09E71 L=351)   731    109        0 ( 102/ 783- 194/ 844) -19.7 E78-E63 N07-N12
     17  824  737 (S08E18 L= 43)   657    215        0 ( 764/ 681- 879/ 790)  12.5 E22-E13 S10-S05
     18 1021  570 (S22E11 L= 50)  2236    627        4 ( 831/ 484-1242/ 697) -41.8 E19-W01 S29-S10
     19  381  659 (S03E50 L= 12)   271     42        2 ( 364/ 635- 401/ 681) -90.0 E51-E47 S04-S01
     20  317  597 (S05E58 L=  3)  1563    230        2 ( 270/ 537- 385/ 660) -63.4 E63-E53 S09-S01
     21  368  483 (S13E60 L=  1)  4285    308        9 ( 247/ 342- 477/ 553)  60.6 E79-E48 S22-S06
     22  852  300 (S36E34 L= 27)  3878    460        6 ( 742/ 121- 935/ 489)  29.6 E68-E23 S47-S22
     23  496  461 (S17E50 L= 12)   299     43        1 ( 469/ 435- 524/ 473) -14.0 E51-E47 S18-S15
  

    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