Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1424 1632 (N42W38 L=217)   334     67        0 (1386/1616-1459/1646)  -8.1 W34-W41 N40-N43
      2 1674 1503 (N31W57 L=236)   495     97        0 (1638/1481-1720/1521) -26.6 W52-W61 N28-N32
      3 1242 1488 (N33W18 L=197)   305     57        0 (1214/1462-1275/1511) -45.0 W15-W20 N30-N34
      4  253 1312 (N23E61 L=118)   630    117        1 ( 217/1274- 305/1340)  26.6 E65-E55 N20-N24
      5  548 1298 (N22E32 L=147)   509    141        0 ( 493/1266- 593/1322)   7.1 E36-E28 N20-N23
      6 1271 1241 (N17W17 L=196)   299      1        1 (1232/1198-1306/1289) -51.3 W14-W18 N13-N19
      7  398 1217 (N17E43 L=136)   383     84        2 ( 374/1185- 421/1253)  76.0 E45-E41 N15-N19
      8  789 1127 (N11E14 L=165)   221    100        0 ( 754/1100- 838/1149)  31.0 E16-E11 N09-N12
      9  893 1055 (N06E08 L=171)   231     65        1 ( 857/1041- 931/1069)   0.0 E10-E05 N05-N07
     10 1113  867 (S06W05 L=184)   689    201        2 (1031/ 803-1178/ 931) -41.2 W00-W08 S09-S01
     11 1554  809 (S12W34 L=213)   851    272        2 (1506/ 728-1593/ 907) -74.7 W30-W37 S16-S05
     12  716  818 (S08E20 L=159)   391    157        1 ( 677/ 779- 777/ 865) -33.7 E22-E16 S10-S04
     13  262  743 (S13E58 L=121)   972    197        2 ( 240/ 651- 294/ 824)  57.5 E63-E53 S18-S07
     14 1657  625 (S25W46 L=225)   886    364        2 (1532/ 528-1777/ 745)  34.4 W36-W55 S30-S17
     15  787  684 (S16E16 L=163)   793    197        1 ( 709/ 644- 871/ 721)  18.4 E22-E10 S18-S14
     16 1148  596 (S23W07 L=186)  1127    239        3 (1063/ 509-1236/ 674)  45.0 W00-W12 S29-S18
     17 1554  601 (S25W37 L=216)   447    138        0 (1510/ 545-1601/ 650)  50.2 W33-W40 S29-S22
     18  870  603 (S22E12 L=167)   311     66        3 ( 835/ 580- 899/ 625)  11.3 E14-E09 S23-S20
     19 1605  488 (S34W46 L=224)   390     71        2 (1576/ 462-1631/ 520)  68.2 W42-W47 S36-S31
     20 1013  225 (S54E06 L=173)   540     58        1 ( 994/ 194-1031/ 262) -82.9 E07-E03 S58-S50
     21 1136  206 (S57W08 L=187)   871    108        3 (1087/ 178-1185/ 239) -28.3 W02-W15 S61-S53
     22 1225  186 (S61W20 L=199)   613     69        0 (1210/ 156-1242/ 225) -73.3 W16-W25 S65-S55
  

    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