Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1303 1715 (N48W37 L= 47)   436     68        0 (1272/1683-1329/1741) -90.0 W34-W38 N44-N50
      2 1232 1611 (N41W24 L= 35)   414     80        0 (1197/1572-1261/1640) -80.5 W22-W25 N37-N43
      3 1690 1479 (N25W59 L= 69)   697     83        0 (1650/1445-1721/1505) -45.0 W55-W61 N22-N27
      4  330 1425 (N35E55 L=315)   487     50        2 ( 302/1403- 363/1446) -12.5 E59-E50 N33-N36
      5 1014 1410 (N29W03 L= 14)   313    111        0 ( 967/1385-1066/1433) -33.7 W00-W06 N27-N31
      6  393 1321 (N28E45 L=326)   311     52        1 ( 376/1294- 410/1349) -63.4 E46-E43 N26-N30
      7 1548 1063 (N02W34 L= 45)   436    113        0 (1508/1019-1578/1117)  38.7 W30-W36 N00-N04
      8 1232 1050 (N05W13 L= 24)   226     79        0 (1212/1010-1256/1081)  53.1 W11-W14 N02-N06
      9 1930 1027 (S07W75 L= 85)  1135     87        1 (1909/ 985-1947/1065)  59.0 W70-W80 S09-S04
     10 1697  787 (S17W45 L= 55)   496    140        0 (1666/ 741-1722/ 824)  68.2 W41-W47 S20-S14
     11  964  706 (S14E07 L=  4)   455    246        1 ( 917/ 670-1025/ 802) -66.0 E09-E02 S16-S07
     12  472  655 (S14E41 L=329)   625    191        0 ( 418/ 617- 514/ 712)  20.6 E45-E37 S16-S10
     13  385  641 (S14E49 L=321)   865    201        1 ( 344/ 566- 457/ 711) -68.2 E52-E44 S19-S09
     14 1072  639 (S19E01 L= 10)   594    192        0 ( 996/ 595-1106/ 698)  39.8 E05-W01 S21-S15
     15 1681  621 (S28W46 L= 56)   436    103        1 (1627/ 604-1727/ 638)   0.0 W40-W50 S29-S27
     16  702  608 (S18E25 L=345)   321     96        2 ( 658/ 583- 732/ 635)  21.8 E28-E23 S19-S16
     17 1198  516 (S29W07 L= 17)  1354    400        1 (1069/ 419-1365/ 623)  24.2 E02-W18 S35-S23
     18 1785  558 (S36W64 L= 75)   886     74        2 (1743/ 542-1825/ 577)  -6.7 W56-W74 S36-S34
     19  777  530 (S24E22 L=349)   404     94        1 ( 754/ 491- 809/ 575)  39.8 E24-E18 S26-S21
     20 1293  436 (S36W14 L= 24)   816    334        2 (1156/ 401-1421/ 512)  11.3 W03-W23 S38-S32
     21  902  290 (S44E20 L=351)  1484    192        4 ( 847/ 221- 965/ 345)  28.1 E27-E12 S50-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