Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1638 1496 (N21W56 L=136)   558     52        0 (1613/1466-1666/1525)   7.1 W51-W60 N19-N22
      2 1528 1436 (N20W43 L=123)   562    141        2 (1471/1396-1584/1469) -11.3 W37-W47 N18-N22
      3 1266 1198 (N12W18 L= 98)   293     75        0 (1224/1183-1304/1214) -21.8 W15-W20 N10-N13
      4  194 1164 (N26E64 L= 16)   637     83        2 ( 165/1120- 222/1196) -68.2 E68-E59 N23-N28
      5 1820 1141 (S04W58 L=138)   679    159        1 (1765/1076-1868/1184) -41.6 W53-W62 S08-N00
      6 1380  936 (S05W20 L=100)   716    272        3 (1315/ 863-1441/1052) -71.6 W17-W23 S10-N02
      7 1715  980 (S10W44 L=125)   322    104        0 (1702/ 934-1729/1031)  80.5 W43-W45 S12-S06
      8 1651  943 (S11W39 L=119)   249     59        0 (1634/ 917-1673/ 973) -76.0 W37-W40 S12-S08
      9 1769  928 (S15W49 L=129)   744     76        2 (1739/ 899-1807/ 967) -51.3 W45-W52 S17-S12
     10 1903  910 (S20W67 L=147)   951    130        0 (1881/ 879-1934/ 954)  18.4 W62-W73 S22-S17
     11  513  877 (N06E35 L= 46)   238     78        0 ( 481/ 857- 556/ 908)   0.0 E37-E31 N04-N07
     12 1447  831 (S13W22 L=103)   309     82        2 (1423/ 800-1474/ 862)  36.9 W20-W24 S14-S11
     13 1489  752 (S19W24 L=105)   326    131        0 (1474/ 685-1509/ 799)  63.4 W23-W26 S23-S15
     14  428  605 (S10E48 L= 32)  1220    192        6 ( 372/ 540- 491/ 685) -68.2 E51-E44 S14-S04
     15  858  589 (S17E18 L= 62)   413    122        0 ( 840/ 533- 874/ 648)  66.8 E19-E16 S20-S13
     16  593  522 (S17E38 L= 42)  1104    333        4 ( 549/ 395- 626/ 642)  50.9 E47-E34 S25-S09
     17 1568  574 (S33W30 L=110)  1024    155        3 (1498/ 542-1627/ 614)   0.0 W23-W35 S35-S30
     18  304  566 (S11E63 L= 17)   769     65        2 ( 278/ 533- 331/ 601) -90.0 E67-E61 S13-S08
     19  378  519 (S15E57 L= 23)   698     59        0 ( 359/ 478- 398/ 556)  59.0 E60-E55 S17-S12
     20 1146  493 (S29E02 L= 78)   429    102        2 (1122/ 442-1175/ 542)  50.2 E05-W00 S31-S25
     21  296  499 (S16E70 L= 10)  1580     95        3 ( 266/ 455- 324/ 540) -90.0 E78-E65 S19-S13
     22  684  354 (S30E40 L= 40)   340    113        0 ( 628/ 339- 739/ 367)   0.0 E45-E34 S30-S29
  

    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