Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1406 1627 (N44W32 L=159)  1246    209        3 (1365/1551-1444/1695)  53.1 W28-W38 N37-N49
      2 1011 1629 (N44E02 L=124)  1068    230        5 ( 972/1556-1053/1694) -59.0 E06-W01 N37-N49
      3  352 1545 (N34E57 L= 69)   663    117        2 ( 328/1517- 386/1565)  11.3 E60-E53 N32-N35
      4  563 1447 (N29E35 L= 92)   288     73        0 ( 550/1408- 575/1484) -68.2 E36-E32 N26-N31
      5 1441 1437 (N30W30 L=156)   316     66        0 (1421/1405-1462/1466) -63.4 W28-W31 N27-N31
      6 1600 1447 (N30W43 L=170)   289     58        1 (1570/1425-1625/1465) -11.3 W40-W45 N28-N31
      7 1125 1330 (N23W06 L=133)   675    215        2 (1036/1267-1219/1398) -30.3 W00-W12 N18-N26
      8  323 1266 (N16E51 L= 75)   332     73        2 ( 298/1241- 345/1289) -31.0 E53-E48 N14-N17
      9 1161 1224 (N16W08 L=135)   416    170        2 (1067/1197-1220/1263)  11.3 W02-W12 N14-N18
     10  643 1191 (N13E25 L=102)   332    113        0 ( 613/1147- 675/1246) -50.2 E27-E22 N10-N16
     11 1694 1194 (N14W47 L=173)   299     54        1 (1667/1178-1716/1214) -14.0 W44-W48 N12-N14
     12 1092 1117 (N09W04 L=131)   598    234        0 (1001/1072-1215/1189) -30.3 E01-W11 N06-N13
     13 1458  887 (S05W28 L=155)   325     92        1 (1438/ 845-1479/ 935)  63.4 W26-W29 S07-S01
     14  377  855 (S09E44 L= 82)   328    121        1 ( 338/ 828- 425/ 885) -23.2 E47-E40 S10-S07
     15 1192  723 (S15W11 L=138)   275     88        1 (1174/ 675-1206/ 771)  90.0 W10-W12 S18-S12
     16  354  677 (S21E48 L= 78)   402    144        0 ( 312/ 653- 393/ 710)  14.0 E52-E44 S22-S18
     17 1161  648 (S20W10 L=136)   213     41        0 (1140/ 628-1183/ 670) -56.3 W08-W11 S21-S18
     18  525  411 (S40E41 L= 86)   438     91        1 ( 498/ 382- 545/ 443)  63.4 E43-E38 S42-S36
     19  609  380 (S42E34 L= 93)  1239    201        2 ( 547/ 337- 657/ 440)  33.7 E40-E28 S45-S36
     20 1454  379 (S40W37 L=164)  2334    358        3 (1302/ 338-1602/ 437)  10.9 W24-W50 S43-S35
     21  437  405 (S41E50 L= 76)   496     76        1 ( 415/ 388- 461/ 426)  23.2 E53-E46 S42-S39
  

    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